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■ PROGRAMAÇÃO DE UMA MELODIA 


■ 


COMO COMPRIMIR OS DADOS 


■ 


DIVISÃO DA MÚSICA 


■ 


ECONOMIA DE NOTAS 


■ 


MODIFICAÇÃO DO ANDAMENTO 





Amplie a capacidade musical de seu 
micro reduzindo os dados necessários 
à execução de uma melodia. 
As técnicas apresentadas aplicam-se à 
compressão de diferentes tipos de dados. 



Tocar música utilizando o computa- 
dor é uma experiência fascinante, prin- 
cipalmente quando se é o autor da pe- 
ça. Existem, porém, várias dificuldades 
a superar, e uma delas é a quantidade 
de dados que um programa requer para 
executar determinada melodia — mais 
de uma leia cheia de números, na maio- 
ria dos casos. Além de serem difíceis de 
digitar, esses dados ocupam muito es- 
paço na memória. Neste artigo, você ve- 



rá como comprimir os dados de suas 
melodias dentro dos programas BASIC, 
de maneira que eles tomem o menor es- 
paço possível, liberando parte da memó- 
ria RAM para outro uso. 

A aplicação das técnicas de compres- 
são de dados não se restringe, natural- 
mente, aos programas destinados à exe- 
cução de música. Estende-se a dados de 
todo tipo, desde que sejam repetitivos 
e limitados a certos valores. 



sos. Para executá-la, precisaremos escre- 
ver um programa em BASIC contendo 
um determinado número de linhas DA- 
TA, como o apresentado a seguir: 



UMA NOVA MELODIA 



Seja qual for seu estilo, as melodias 
que o computador toca seguem um cer- 
to padrão que permite sua compressão. 
Tomemos como exemplo uma música 
simples, com um total de doze compas- 



10 LET T-.2 
20 RESTORE 100 
30 READ D 

50 IF D-255 THEN GOTO 20 

60 SOUND T , D 

70 GOTO 30 
100 DATA 12,12,15,16.19,19,21, 
19 

110 DATA 12,24,22.21,19,17,16, 
14 

120 DATA 12.12,15,16,19,19,21, 
19 

130 DATA 12,24,22.21.19,17.16, 
14 

140 DATA 17,17,20,21,24,24.26. 
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24 

150 DATA 17,24.22.21,19,17.16, 
14 

160 DATA 12.12,15.16,19.19.21, 
19 

170 DATA 12,24,22,21.19,17,16, 
14 

1B0 DATA 19.19.23.24,26.26.24, 
23 

190 DATA 17,17.20.21.24,24.20. 
21 

200 DATA 12.12.15,16,19.19.21, 

19 

210 DATA 12,24,22.21,19,17,16, 
14 

220 DATA 255 



9.169,189 

160 DATA 213,213,179.169,142,14 
2.126,142 

170 DATA 213,106.119,126,142,15 
9,169,189 

180 DATA 142.142,112,106,94,94, 
106,112 

190 DATA 159,159,134.126,106,10 
6,134, 126 

200 DATA 213,213,179.169,142,14 
2,126,142 

210 DATA 213,106,119,126,142,15 



140 DATA 35,35,29.28.23,23,21 



fffi 



150 DATA 
,42 

160 DATA 
8,31 

170 DATA 
7,42 

180 DATA 

.25 

190 DATA 
,2B 

200 DATA 
8,31 

210 DATA 
7,42 

220 DATA 



35,23,26.28.31,35,37 
47,47,40,37,31,31,2 
47, 23. 26. 2B, 31,35. 3 

31,31,25,23.21,21,23 

35,35,29.28.23,23,29 
47,47.40.37,31,31,2 
47,23.26,28, 31,35,3 

255 



80 



10 SOUHD 7,56:S0UND 8,15 
20 SOUND 1.0 -.RESTORE 
30 READ D 

50 IF D=255 THEN 20 
60 SOUND 0.D 

70 FOR T=0 TO 100:NEXT:GOTO 30 
100 DATA 213.213,179.169,142,14 
2,126,142 

110 DATA 213.106,119,126,142,15 
9,169.189 

120 DATA 213,213,179,169,142,14 
2,126,142 

130 DATA 213, 106. 119, 126, 142, ]5 
9,169.189 

140 DATA 159.159.134,126,106,10 
6,94 , 106 

150 DATA 159.106,119,126,142,15 



10 RESTORE 
20 FOR I = 0 TO 22: READ A: PO 
KE BOO + I,A: NEXT 
30 DATA 160,0,174,133.3,238,4 
8,192,136.208,5,206,132,3,240,6 
,202,208,245,76,34,3.96 
40 READ D 

50 IF D - 255 THEN 10 

60 POKE 900, T: POKE 901, D: CAL 



.31 

110 DATA 47.23,26,28,31,35,37 
.42 

120 DATA 47.47,40,37,31,31,28 
.31 

130 DATA 47,23,26,28,31.35.37 



D 



.4; 



10 T-3 

20 RESTORE 

30 READ D 

S0 IF D-255 THEN 20 
60 SOUND D,T 
70 GOTO 30 

100 DATA 175.175.189,193,204,20 
4,210.204 

110 DATA 175,216.213.210,204.19 
7.193,185 

120 DATA 175,175,189,193.204.20 
4,210,204 

130 DATA 175,218,213,210,204.19 
7,193.165 

140 DATA 197,197.207,210,218.21 
8.223.218 



- Ê\ 
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150 DATA L97, 216,213, 210, 204. 19 
7,193.185 

160 DATA 175,175,189,193.204,20 
4.210,204 

170 DATA 175,218,213,210,204.19 
7,193.185 

180 DATA 204.204,216,216,223,22 
3.218.216 

190 DATA 197,197,207,210,218,21 
6,207.210 

200 DATA 175,175,189,193,204.20 
4,210,204 

210 DATA 175,218,213,210,204.19 
7. 193, 185 
220 DATA 255 

Se quiserem, os usuários do TK-2000 
poderão modificar este e os próximos 
programas a fim de usar o comando 
SOUND. Mas isto não é necessário: lai 
como estão, os programas funcionam 
tão bem em seu micro quanto no Apple. 

Em geral, o MSX requer o dobro dos 
dados utilizados pelos outros micros, já 
que emprega dois bytes para definir a 
nota musical — o byte mais significati- 
vo e o menos significativo. A melodia 
que escolhemos, no entanto, é tão sim- 
ples que o byte mais significativo de to- 
das as suas notas é igual a 0, o que nos 
permite especificar só os bytes menos 
significativos. 

A variável T estabelece um fator de 
tempo para a velocidade da música. A 



linha 20 acerta o apontador das notas 
no início dos dados. O laço FOR ... 
NEXT entre as linhas 30 e 70 lê os valo- 
res das notas — os números nas linhas 
DATA — , colocando-os dentro do co- 
mando musical apropriado na linha 60. 
A linha 50 detecta o fim da melodia, 
marcado por um valor arbitrário — 255. 

Se quisermos introduzir pausas no 
meio da melodia, podemos definir um 
outro valor arbitrário, 254 por exemplo, 
e incluir um teste para esse valor na li- 
nha 40. Ao surgir uma pausa no meio 
dos dados, a linha 40 desviaria o pro- 
grama para uma outra linha. Esta pro- 
duziria um certo atraso, voltando depois 
para a linha 30 a fim de continuar a exe- 
cução da música. 

Tal como o programa está, as notas 
são fornecidas aos comandos musicais 
do BASIC e emitidas conforme vão sen- 
do lidas nas linhas DATA. 

Embora esse processo funcione a 
contento, ele exige um número muito 
grande de dados, mesmo para uma 
lodía curta. Além de dificultar a digita 
ção e tomar espaço na memória, o 
cesso de dados traz ainda um outro 
conveniente: enquanto a música está 
sendo lida e processada, o computador 
não pode se ocupar com outra tarefa. 

Alguns micros, como o MSX, solu- 
cionam parcialmente esse problema com 



um buffer musical, capaz de guardar al- 
gumas notas. Se houver espaço no buf- 
fer para o som que está sendo emitido, 
o computador é liberado para outras ati- 
vidades. Porém, havendo mais notas a 
processar, o micro fica novamente com- 
prometido. Seja como for, o buffer não 
alivia o trabalho de digitação das linhas 
DATA nem reduz o espaço por elas ocu- 
pado na memória. 

Para contornar efetivamente esses 
problemas, o usuário só tem uma alter- 
nativa: encontrar um meio de compri- 
mir os dados, tornando mais fácil seu 
processamento e economizando espaço. 



A compressão de dados é viabiliza- 
da pela existência, em uma melodia, de 
padrões que se repetem. Quanto mais 
padrões pudermos reconhecer, maior se- 
rá o grau de compressão. 

Para identificar esses padrões de da- 
dos, convém, em primeiro lugar, ouvir 
ou tocar a melodia em um instrumen- 
to, tentando distinguir as passagens que 
se repetem. Depois, escreva a música em 
um papel, preocupando-sc apenas com 
a frequência das notas — ignore pautas, 
claves, compassos etc. 

Não há dificuldade em escrever, em 
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sequência, as letras equivalentes às no- 
tas, se estas têm sempre a mesma dura- 
ção. Mas, e se as notas tiverem duração 
variada? Nesse caso, o trabalho torna- 
se um pouco mais complicado, pois pre- 
cisaremos levar em conta, além da to- 
nalidade, o tempo de cada uma — o que 
duplicará o volume de dados. 

Outra saída consiste em repetir as no- 
tas de maior duração. Se, por exemplo, 
uma nota dura duas batidas, ela será re- 
gistrada duas vezes. Esta foi a alterna- 
tiva que utilizamos ao transcrever a me- 
lodia do programa anterior. Obtivemos 
a seguinte tabela: 

TABELA I 

G G A# B D D E DG 

G2 F E D C B A 

GGA#BDDEDG 

G2 F E D C B A 

C C D# E G2 G2 A2 G2 C 

G2 F E D C B A 

G G A# B D D E DG 

G2 F E D C B A 

D D Ff G2 A2 A2 G2 F# 

C C D# E G2 G2 D# E 

G G A# B D D E D G 

G2 F E D C B A 

Se você examinar a tabela I com 
atenção, verá que a melodia se compõe 
de apenas cinco sequências, ou minime- 
lodias — identificadas como T1.T2, 
etc, como mostra a tabela 2 — , em sua 
maioria tocadas repetidas vezes. 



qúência em que devem ser tocadas. Co- 
mo costuma ocorrer quando comprimi- 
mos dados, o programa que lê a melo- 
dia assim digitada é maior que a an- 
terior: 



10 LET C-0: LET T-.2 

20 RESTORE 100 

30 FOR N-l TO C+l: READ P: 

NEXT N 

40 IF P=0 THEN GOTO 10 
50 RESTORE P 
60 READ N 

70 IF N>=255 THEN LET C-C+l : 
GOTO 20 

80 SOUND T,N 

90 GOTO 60 
100 DATA 110,120.110,120,130, 
120,110,120,140,150,110,120,0 
110 DATA 12,12,15,16.19.19,21, 
19,12,255 

120 DATA 24.22,21.19,17,16,14. 
255 

130 DATA ] 7, 17,20.21.24. 24,26. 
24.17,255 

140 DATA 19.19,23.24,26,26.24. 
23,255 

150 DATA 17.17,20.21,24.24.20. 
21,255 









TABELA 2 






Tl = 


0 


c 


A# B D D 


E 


D G 


T2- 


G2 


F 


E D C B 


A 




T3- 


c 


C 


D# E 02 G2 


A2 


G2 C 


T4 = 


D 


D 


F# G2 A2 A2 


G2 


F# 


TS = 


c 


C 


D* E G2 G2 


Dl 


E 



29 RESTORE : FOR W - 1 TO P + 
23: READ WU: NEXT 

30 READ K: IF K - 255 THEN C ' 
C+l: GOTO 20 

40 POKE 900, T: POKE 901. K 
50 CALL 800 
70 GOTO 30 

100 DATA 13,23,13.23,31.23,1: 

,23,41,50.13,23,0 

110 DATA 47,47,40,37.31,31,: 

8.31,47.255 

120 DATA 23. 26, 28. 31. 35, 37,. 
2.255 

130 DATA 35.35.29,28.23,23 
21,23,35,255 

140 DATA 31.31.25.23.21,21.: 
3,25,255 

150 DATA 35,35,29.28.23.23.: 

9,28,255 

220 DATA 255 



1 SOUND 7,56:SOUND 8.15 

2 SOUND 1.0 
10 C-0:T-120 
20 RESTORE 

27 FORZ-1TOC+1 :READP:NEXT 

28 IFP-0THEN10 

29 RESTORE:FORW-lTOP:READWW:NEX 

T 

30 READK:IFK-255THENO-C+1:GOT02 

0 

50 SOUND O.K 

60 FORZ-1TOT:NEXT 

70 GOTO 30 

100 DATA 13,23.13.23.31.23,13,2 
3,41,50,13,23,0 

110 DATA 213.213,179,169,142.14 

2.126.142,213,255 

120 DATA 106,119,126,142,159,16 

9,189,255 

130 DATA 159.159.134.126,106,10 
6,94.106.159,255 

140 DATA 142.142,112.106,94,94, 
106,112,255 

150 DATA 159,159.134.126.106,10 

6.134,126,255 

10013 ,23,13.23.0 



Podemos agora utilizar uma técnica 
de compressão: as minimelodias não se- 
rão digitadas sempre que aparecem na 
música completa, mas uma única vez, 
I junto a códigos que especificam a se- 



1 FOR I - 0 TO 22: READ A: POK 
E 800 + I,A: NEXT 

2 DATA 160.0,174, 133,3,238,4 
8.192,136,208.5,206,132.3,240.6 
,202,208.245,76,34.3,96 

10 C - 0:T - 100 
20 RESTORE 

27 FOR Z - 1 TO C + 24: READ P 
: NEXT 

28 IF P - 0 THEN 10 



1 DIM A(5.1):FOR K-l TO 1 3 : READ 
P: NEXT: GOTO 3 

2 READ P:IF P0255 THEN 2 

3 N-N+1:A{N.0)-PEEK(51) :A(N.U- 
PEEK (52) :IF N<5 THEN 2 

10 C-0:T-3 
20 RESTORE 

30 FOR N-l TO C+l: READ PrNEXT 

40 IF P-0 THEN 10 

50 POKE 51,A(P,0) :P0KE 52.A(P,1 

) 

60 READ N 

70 IF N-255 THEN C-C+l: GOTO 20 
BO SOUND N,T 
90 GOTO 60 

100 DATA 1.2,1,2.3.2.1,2.4,5.1. 
2.0 

110 DATA 175.175,189,193.204.20 

4.210.204,175,255 

120 DATA 218,213,210,204,197.19 

3,185,255 

130 DATA 197,197,207,210,218.21 

8,223,218,197.255 

140 DATA 204,204.216,218,223,22 

3.218,216.255 

150 DATA 197,197.207.210.218.21 
8.207.210,255 

Note que o número de dados neces- 
sários para a execução da melodia foi 
muito reduzido — no Spectrum, por 
exemplo, diminuiu de 97 para 59 bytes. 
Rodando o programa, você verá que a 
música é exatamente a mesma do pro- 
grama anterior. Os usuários do Spec- 
trum vão estranhar o andamento da me- 
lodia, mas logo terão uma explicação. 

Os dados que definem as minimelo- 
dias estão nas linhas 110 a 150 e a se- 
quência principal — isto é, a ordem em 
que as minimelodias são executadas — 
fica na linha 100. O laço na linha 30 
acerta o valor de P (variável de traba- 
lho utilizada na leitura das linhas DA' 
TA) de acordo com a sequência princi 
pai, definindo a minimelòdia a ser to 
cada. Na realidade, a sequência princi 



um 
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pai é uma lista de números — ou de va- 
lores que, combinados com uma cons- 
tante, resultam em números de linha — 
correspondentes às linhas onde se encon- 
tram as minimelodias. 

Identificada a minimelodia a ser exe- 
cutada, a linha 50 calcula o número da 
linha DATA correspondente. Só o Spec- 
irum permite o uso da instrução RES- 
TORE durante a leitura do bloco de da- 
dos. O Apple e o MSX empregam laços 
FOR.. -NEXT e o TRS-Color tem os 
pontos de entrada gravados na linha 3. 

A linha 10 utiliza a variável C para 
a contagem do número de minimelodias 
já tocadas. A duração de cada nota é 
controlada por T, que também determi- 
na o andamento da música. A linha 40 
(28, no Apple e no MSX) verifica a úl- 
tima minimelodia, que é marcada com 
0 na linha 100. O número 255 assinala 
o final de cada minimelodia. Ao 
encontrá-lo, o computador volta à se- 
quência principal para saber qual será 
a próxima minimelodia. 

Existem várias alternativas para a di- 
visão de uma música em sequência prin- 
cipal e minimelodias. De um modo ge- 
ral, quanto menores as minimelodias, 
maior é a sequência principal. Devemos 
buscar um equilíbrio entre esses dois ele- 
mentos, a fim de evitar que minimelo- 
dias muito curtas exijam uma sequên- 
cia principal tão longa que anule as van- 
tagens da compressão. 



DIVIDINDO PARA VENCER 



A segunda técnica de compressão é 
ainda mais eficiente. Ela parte do prin- 
cípio de que. embora os micros possam 
tocar um grande número de notas — ge- 
ralmente 256 — , poucas delas são de fa- 
to utilizadas durante a execução de uma 
melodia. Assim, não nos interessa — e 
não é económico — empregar um siste- 
ma planejado para aceitar um grande 
número de notas. 

Cada posição de memória em seu mi- 
crocomputador de oito bits é capaz de 
armazenar um número inteiro entre 0 e 
255. Restringindo a quantidade de no- 
tas a serem armazenadas, será possível 
colocar duas delas em cada posição — 
uma em cada quatro bits. Por exemplo, 
o número binário 10100010, de oito bits, 
pode ser interpretado como um só va- 
lor decimal — 162 — ou como dois va- 
lores — 10 (1010 em binário) e 2 (0010 
em binário). 

Dividir por dois o espaço disponível 
diminui drasticamente o intervalo de va- 
lores que podemos armazenar: 0 a 15. 
Contudo, muitas vezes isso é suficien- 
te, pois o número de notas diferentes em 



uma melodia simples raramente ultra- 
passa dezesseis. 

Para utilizar essa técnica de compres- 
são, precisamos reduzir o número de no- 
tas a quinze, deixando o 16? valor co- 
mo um código de controle. Já comen- 
tamos que, quanto mais comprimidos os 
dados, maior é o programa necessário 
para interpretá-los. Aqui, o programa 
deve decifrar cada nota abreviada que 
vai lendo nas linhas DATA. 

O usuário, por sua vez, terá o traba 
lho de selecionar as notas que serão usa 
das na melodia, classificando-as em or 
dem crescente, conforme a frequência 
a partir da nota mais baixa da primeirí 
oitava — nesse caso, Gl. Em seguida 
precisará calcular os números codifica- 
dos que aparecerão nas linhas DATA. 
Nossa melodia inclui doze notas: G, A. 
A# , B, C, D, D# , E, F, F# , G2 e A2. 

Digite o terceiro programa e veja o 
sistema em ação. 



12 GOSUB 1000: LET T=-15: LET 

NT=130: LET MS-170: LET MT= 
210; GOSUB 300 
90 STOP 

100 DATA 12,14,15,16,17,19,2o, 

21,22,23,24,26.0,0,0,0 

200 DATA 1,2.1,2.3,2.1,2,4,5.1 

.2,0 

210 DATA 0,35,85,117,15.255 

220 DATA 166,117.67,31,255 

230 DATA 68.103.170,166.79,255 

240 DATA 85.154,187.169.255 

250 DATA 68.103.170.103,255 

310 BESTOBE NT 

320 FOB N=23410 TO 23425 

330 BEAD X: POKE N.X: NEXT N 

345 LET NM-0 

350 BESTOBE MS: LET HL=23426 
360 BEAD X 

365 IF X>NM THEN LET NM=X 
370 IF X=0 THEN GOTO 400 
380 POKE HL.X: LET HL-HL+1: 
GOTO 360 

400 POKE HL.X: LET HL=HL+1 

401 LET X=HL: GOSUB 600 

402 POKE 23403 , LSB 

403 POKE 23404, MSB 
430 BESTOBE MT 
440 FOR N=l TO NM 
450 BEAD X 

460 IF X = 255 THEN GOTO 500 
470 POKE HL.X: LET HL-HL+1 : 
GOTO 450 

500 POKE HL.X: LET HL = HL+ 1 

510 NEXT N 

511 RAND USR 23371 

512 POKE 2.1409,0 
530 LET X-USR 23296 

540 IF X=255 THEN RETURN 
550 SOUND T.X: GOTO 530 
600 LET MSB=INT (X/256) 
610 LET LSB=X- [MSB*256) : 
RETURN 



1000 RESTORE 2000: LET TO-0: LE 
T L=2000 

1030 FOR N=23296 TO 23296+111 S 
TEP 6 

1040 FOR K=0 TO 7: READ A: LET 
TO=TO+A: POKE K+N.A: NEXT K 
1050 READ A: IF A O TO THEN GOT 
O 1080 

1060 LET L=L+10: LET TO=0: NEXT 
N 

1065 RESTORE : BETUBN 

1080 PRINT "ERRO DE DADOS NA LI 

NHA " ;L : STOP 

2000 DATA 42,109,91.235.42,111, 
91 ,58, 779 

2010 DATA 113.91,70,183,202,24, 
91,175,949 

2020 DATA 8,35,62.15,160.195,36 
,91,602 

2030 DATA 61.1.8.203.56.203.56, 
203, 791 

2040 DATA 56,203,56,120,254.15. 
202,65,971 

2050 DATA 91,34,111.91,235.34.1 
09.91, 796 

2060 DATA 8,50.113.91.33,114.91 
,22,522 

2070 DATA 0,8.95.25,126.6.0,79, 
339 

2080 DATA 201.26,19,183,194.81, 
91,1,796 

2090 DATA 255.0,201,17,130,91.1 
95.65.954 

2100 DATA 91.71.42.107.91,43,62 
,255,762 

2110 DATA 16,5,35,175.195,10,91 
.35,562 

2120 DATA 190,194.103.91,195,88 
.91. 35.987 

2130 DATA 195.96.91,0.0,0,0,0.3 
82 

m 

10 SOUND 7.56:SOUND 8.15 
20 SOUND 1,0 

23 DIM X (16) : RESTORE : FOR N-l TO 
16 ! READ X(N) : NEXT 

25 C-0:T=10Q 

26 RESTORE1000 

27 F0BZ«1T0C+1:READP:NEXT 

28 IFP=0THEN25 

29 RESTOBE1010:FORW=1TOP+2:BEAD 
UW:NEXT 

50 READN : SS=N 

60 N=INT[N/16) 

70 IFN-15THENC=C+1 :GOT026 

80 GOSUB130 

90 N=SS:N-1SANDN 

100 IFN-15THENOC+1:GOT026 

110 GOSUB130 

120 GOTO50 

130 SOUND0.X(N+l) 

140 FOBZ«lTOT:NEXT 

150 RETUBN 

450 DATA 213.189.179,169.159.14 
2.134,126,119,112,106.94,0.0.0. 
0 

1000 DATA 5.10.5,10.15.10 
1010 DATA 5,10,20,25.5,10,0 
1110 DATA 0,35,85,117.15 
1120 DATA 168,117.67,31,255 
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1130 DATA 66.103,170,186,79 
1140 DATA 85,154.187.169,255 
1150 DATA 68.103,170,103,255 



H]E] 



1 FOR I - 0 TO 22: HEAD A: POK 
E 800 + I.Al NEXT 

2 DATA 160.0,174.133,3,236,4 
8,192,136,208,5,206,132,3,240,6 
,202,208,245,76.34,3,96 

23 DIM X<16) : FOR N - 1 TO 16: 
READ X (N) : NEXT 

25 C - 0:T - 100 

26 RESTORE 

27 FOR Z - 1 TO C + 40: READ P 
! NEXT 

28 IF P - 0 THEN 25 

29 RESTORE : FOR W - 1 TO P + 
47: READ WW : NEXT 

50 READ N:SS - N 

60 H - INT (N / 16) 

70 IF N - 15 THEN C - C + 1: G 

OTO 26 

80 GOSUB 130 

90 N = SS - N * 16 

100 IF N = 15 THEN C = C + 1: 

GOTO 26 

110 GOSUB 130 

120 GOTO 50 

130 POKE 900, T: POKE 901, X (N + 

1) 

140 CALL 800: RETURN 
450 DATA 47,42,40,37.35,31,29 
.28.26.25,23.21,0,0.0,0 
1000 DATA 5, 10, 5, 10,. 15, 10 
1010 DATA 5, 10. 20, 25. 5 . 10 , 0 
1110 DATA 0.35,85,117,15 
1120 DATA 168,117,67,31,255 
1130 DATA 68.103,170.186,79 
1140 DATA 85. 154. 1B7. 169. 255 
1150 DATA 68.103,170.103.255 



Q 



10 DIM A(5,l) ,XU6) :FOB K-l TO 
16: READ X (K) :NEXT : A (0 . 0) -PEEK (5 
1) :A(0,1)-PEEK(S2) 
15 FOR K-l TO 13 : READ P:NEXT:GO 
TO 30 

20 FOR K-l TO 5 : READ P : NEXT 
30 N-N+1:A(N,0)-PEEK(51) :A(N,1) 
-PEEK (52) :IF N<5 THEN 20 
40 C-0:T-3 

50 POKE 51. AIO, 0) :POKE 52,A(0,1 
):F0R N-l TO C+1:READ P :NEXTr IF 

P-0 THEN 40 
60 POKE 51,A(P,0) :POKE 52,A(P.l 

) 

65 READ N:S-N 
70 N-INTfN/16) 

75 IF N-15 THEN OC+1:GOTO 50 

80 GOSUB 130 

90 N-S:N-15 AND N 

100 IF N-15 THEN C-C+l :GOTO 50 

110 GOSUB 130 

120 GOTO 65 

130 SOUND X (N+l) ,T : RETURN 

450 DATA 175,185,189.193,197,20 

4.207.210.213.216,218,223,0,0.0 



1110 DATA 0,35,65,117,15 

1120 DATA 168,117,67,31,255 

1130 DATA 68,103.170,186,79 

1140 DATA 65,154.187,169.255 

1150 DATA 68.103.170,103.255 

Os valores das frequências dessas no- 
tas estão codificados na linha 450 (100 
no Spectrum). Essa linha deve conter de- 
zesseis valores. No MSX, poderíamos 
precisar de 32 valores para outras me- 
lodias, já que ele requer dois parâmetros 
para um valor de nota. 

Em todas as versões, codificamos só 
doze notas; assim, quatro espaços são 
preenchidos com 0. Os quatro dígitos bi- 
nários (chamados nybble) que formam 
cada nota das minimelodias estão codi- 
ficadas nas linhas 1000 e 1010 (200 e 210 
no Spectrum). Para entender como se 
calculam esses valores, tomemos como 
exemplo a minimelodia Tl . Veja os nú- 
meros da seqíiência principal na linha 
450 (100 no Spectrum). Chamemos a 
primeira nota dessa linha de 0, a segun- 
da de 1 e assim por diante, até a última 
nota, que será 15. Se escrevermos a mi- 
nimelodia Tl com esses códigos, tere- 
mos Tl - 0, 0, 2, 3, 5, 5, 7, 5, 0, 15. 
O número 15, no caso, indica o final da 
minimelodia, e não uma nota. Cada um 
desses valores cabe em um nybble; as- 
sim, precisamos combiná-los em pares 
para obter os bytes. 

O primeiro par de nybbles é 0 e 0, va- 
lores que correspondem em binário, a 
0000 e 0000. Combinados em um byte, 
resultam no decimal 0. O primeiro va- 
lor da linha DATA 1 1 10 (210 no Spec- 
trum), que equivale a Tl , é, portanto, 0. 
O próximo par é 2 e 3 — em binário, 
0010 e 001 1 . Combinados, esses valores 
resultam em 0010001 1, ou 35 em deci- 
mal. Este é o segundo valor da linha 
1 1 10 (ou 210). Procedendo dessa manei- 
ra com a minimelodia seguinte, teremos 
T2 = 10, 9, 7, 5, 4, 3, l, 15. Combina- 
dos, os valores 10e9 — 1010 e 1001 em 
binário — resultam 168 em decimal. Es- 
te é o primeiro valor de T2 na linha 1 1 20 
(220 no Spectrum). 

Utilizamos esse método para calcu- 
lar os valores correspondentes às mini- 
melodias, armazenados nas linhas 1 1 10 
a 1150 (210 a 250 no Spectrum). Como 
no programa anterior, a sequência prin- 
cipal (linhas 1000 e 1010, ou 200 no 
Spectrum) aponta para as linhas DATA 
onde estão as minimelodias, na ordem 
em que devem ser tocadas. 



0 PROCESSO INVERSO 



Outra parte importante do programa 
é a que se encarrega de extrair os nybbles 




MAIS MELODIAS 

Como exercício, tente codificar outras 
melodias . utilizando o último programa 
deste artigo. Identifique as minimelo- 
dias e as sequências principais, calcu- 
le os valores correspondentes e colo- 
que- os em linhas DATA. Será preciso 
redefinir as matrizes — XI 1 — da se- 
quência principal para cada nova me- 
lodia, o que pode exigir a renumeração 
do programa. 



dos números decimais lidos nas linhas 
DATA. O Spectrum faz isso colocando 
o valor em uma variável (linha 401) e 
chamando, em seguida, uma sub-rotina 
(linhas 600 e 610) que separa os dois 
nybbles do byte. Devidamente proces- 
sados, esses valores são utilizados para 
emitir duas notas. 

Nos outros micros, as linhas 50 a 100 
cuidam da decodificação. Primeiro, o 
byte em exame, N, é armazenado na li- 
nha 50. A linha 60 extrai o nybble mais 
significativo e a linha 70 verifica o có- 
digo de final de melodia. A linha 80 cha- 
ma a sub-rotina que executa a nota cor- 
respondente e a linha 90 extrai o nybble 
menos significativo, usando a operação 
lógica AND (menos no Apple e no 
TK-2000, cuja função AND não permi- 
te o cálculo de valores diferentes de 0 e 
1). A nota é então emitida. Note que o 
byte em exame é preservado, sem o que 
não seria possível recuperar o segundo 
nybble. 

Ao executar esse programa, os usuá- 
rios do Spectrum observarão que os pro- 
blemas de andamento causados pela 
compressão já não ocorrem. O defeito 
era provocado por um tempo extra de 
processamento, necessário ao realinha- 
mento dos ponteiros, ou seja, ao uso de 
RESTORE. O programa reduziu esse 
tempo de processamento por meio de 
uma rotina em código, armazenada nas 
linhas 1000 a 2130. Esta é a razão das 
diferenças de tamanho e numeração en- 
tre o Spectrum e os demais micros. 

Para alterar a velocidade de execu- 
ção, altere o valor de T. Ele fica na li- 
nha 12, no Spectrum, e na linha 40, nos 
outros computadores. Observe, porém, 
que o intervalo de tempo entre o final 
de uma minimelodia e o inicio da seguin- 
te torna-se mais acentuado à medida que 
T diminui. 
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AS CINCO VIDAS 
DE WILLIE 



A morte vem para todos - mas não tão 
insistentemente como para Witlie. 
Ele morre cinco vezes em cada jogo... 
e está sempre pronto a reiniciar 
a aventura na hora que você quiser! 



Mesmo que você seja um exímio jo- 
gador, mais cedo ou. mais larde a morte 
levará Willie. Mas não se afobe. Ele tem 
cinco vidas — nem tantas como um ga- 
to; bem mais, porém, do que os pobres 
mortais. Quando a fatalidade atingir 
Willie defini ti vamenle, você deverá 
enterrá-lo, imprimir o placar final e 
ajustar todas as variáveis. 

Os sons emitidos pelo Spcctrum são 
muito simples, acompanhando a execu- 
ção dos programas. O TRS-Color pode 
produzir sons sofisticados. Mas, como 
para isso é necessário utilizar o proces- 
sador, não se pode tocar um som e exe- 
cutar o jogo simultaneamente. 



A rotina apresentada a seguir promo- 
ve a morte de Willie e verifica se ele po- 
de ser ressuscitado. 

10 REM org 59652 

20 REM die ld de, 196 

30 REM ld hl , 1086 

40 REM call 949 

50 REM ld de, 131 

60 REM ld hl. 1646 

70 REM call 949 

60 REM dead ld hl, (57332) 



REM ld bc, 15616 
REM ld a, *5 
REM call 58217 
REM ld de, 32 
REM add hl.de 
REM ld (57332) .hl 
REM ld bc, 57000 
REM ld a. 40 
REM ld de, 258 
REM call 58970 
REM ld de, 30 
REM ld hl, 878 
REM ld a,r 
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■ 


NOTAS FÚNEBRES 




DE WILLIE 


■ 


DESCIDA PARA 


■ 


FUNERAL 




0 INFERNO 


■ 


IMPRESSÃO 


■ 


PERDENDO VIDAS 




DO PLACAR 


■ 


A ULTIMA MORTE 


■ 


SONS FINAIS 



220 BEM ld 1 ,a 

230 REM call 949 

240 REM ld hl , (57332) 

250 REM ld de, 704 

260 REM sbc hl .de 

270 REM jr ç.dead 

280 REM ld a, 9 

290 REM ld (60005) ,a 

300 REM ld a, (57343) 

310 REM dec a 

320 REM ld (57343) ,a 

330 REM jp nz.5B606 

340 REM ld hl. 330 



350 REM 
360 REM 
370 REM 
380 REM 
390 REM 
400 REM 
410 REM 
420 REM 
430 REM 
440 REM 
450 REM 
460 REM 
470 REM 



ld a, 142 
ld b.ll 
ld ix. 57992 
call me 
call 58939 
ld de. 261 
ld hl, 1646 
call 949 
ld de. 392 
ld hl. 1086 
call 949 
ld de. 261 
ld hl ,1646 



480 REM call 949 

490 REM ld a, 50 

500 REM ld (5B732) ,a 

510 REM jp 58576 

Se Willie se atogou no mar, caiu num 
buraco, foi picado por uma cobra ou 
atingido por uma pedra, os sinos tocam, 
anunciando sua morte. Para que soem 
as duas badaladas fúnebres, a rotina 
BEEPER é chamada em 949 duas vezes 
— em cada uma delas, com parâmetros 
diferentes nos pares HL e DE. 




DESCIDA PARA 0 INFERNO 



Quando Willie morre, ele desce para 
o inferno, que se situa no fundo da te- 
la. Para criar esse efeito, começamos 
por apagar sua cabeça — se não o fizer- 
mos, teremos uma coluna de cabeças 
descendo até o fundo da tela! 

Assim, a posição de Willie na tela — 
que aponta para a posição de sua cabe- 
ça — é carregada da variável em 57332 
e 57333 para o par HL. BC é carregado 
com o endereço de um caractere limpo 
de céu do topo da tela. A é ajustado pa- 
ra ciano sobre dano. Finalmente, a ro- 
tina prínl em 58217 é chamada, apagan- 
do a cabeça de Willie. 

O valor 32 é então somado ao apon- 
tador de tela em HL, através do par DE, 
o que o faz se mover para a linha de bai- 
xo da leia. O resultado é colocado de 
volta em 57332 e 57333 para ajustar 
também a variável. 

BC é carregado com o endereço ini- 
cial da figura de Willie com as pernas 
juntas. A é ajustado com o código da 
cor de Willie, azul sobre ciano. DE é 
carregado com 258, especificando um 
bloco de um por dois — o conteúdo do 
registro D define a largura do bloco, e 
o conteúdo do registro E, sua profun- 
didade: I x 256 + 2 - 258. A rotina de 
impressão de bloco em 58970, blk, é 
chamada, exibindo na tela a figura de 
Willie com as pernas juntas, uma posi- 
ção abaixo da que ele ocupava antes. 

Enquanto Willie desce, ouve-se uma 
música "celestial". Mais uma vez, os 
pares de registros HL e DE são carre- 
gados com parâmetros que a rotina 
BEEPER utilizará, quando for chama- I 
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da cm 949. Desta vez, porém, em vez de 
um som constante, o programa precisa 
de um som intermitente. Para isso, 
carrega-se o conteúdo do registrador R 
na pane menos significativa de HL, que 
é o registro L. A operação é realizada 
via acumulador porque não existe ne- 
nhuma instrução Id l,r. 

Usamos o registro R para manter a 
memória dinâmica. Este é um recurso 
do hardware com o qual você não pre- 
cisa se preocupar. Para nossos fins, bas- 
ta saber que o valor' desse registro é va- 
riável. Assim, cada vez que esta parte da 
rotina for acessada irá produzir um som 
diferente. 



SEIS PÉS OE PROFUNDIDADE 



A posição da cabeça de Willie é car- 
regada da variável em 57332 e 57333 pa- 
ra o par HL; 704 é carregado em DE e 
subtraído do conteúdo de HL. O núme- 
ro 704 — 32 x 22 — indica o começo 
da penúltima linha. Como Willie tem 
dois caracteres de altura, essa sjibtração 
colocará o valor 1 na baliza carry até 
que os pés de Willie tenham tocado o 
fundo da teta. 

Enquanto a baliza carry contiver 1, 
a instrução jr c, dead manda o proces- 
sador de volta ao início da rotina de en- 



terro do personagem. Willie será afun 
dado mais uma posição e os sinos vol 
tarão a tocar — num tom diferente 
Quando os pés de Willie tocarem o 
ferno, ele estará completamente enter 
rado. A baliza carry não será ajustada 
com 1 pela subtração, não haverá salto 
e o processador passará a executar a 
próxima instrução. 

Tendo Willie chegado ao seu destino 
final, convém tocar uma canção confor- 
tadora. Assim, carrega-se A com 9 e a 
rotina sound em 60006 é chamada. Ela 
executa uma versão curta da melodia 
inicial do jogo. Para obter maiores de- 
talhes sobre rotina da música, reveja o 
artigo da página 788. 

Como nosso personagem perdeu uma 
vida, precisamos reajustar — ou me- 
lhor, decrementar — o número de vidas. 
O valor dessa variável é carregado de 
57343 para o acumulador, decremenla- 
do e recolocado cm 57343. 

Se Willie ainda dispõe de alguma vi- 
da, a instrução jp nz manda o proces- 
sador de volta ao programa de iniciali- 
zação, em 58606. Caso contrário, con- 
tinua na rotina de nova partida. 



ACABARAM-SE AS VIDAS 



Quando Willie tiver morrido pela 
quinta vez, o jogo acaba. Precisamos, 
então, imprimir a mensagem "GAME 
OVER!". Para isso, chamamos a roti- 
na de mensagens, ou me, em 58155. Co- 
mo sempre, os parâmetros devem ser co- 
locados nos registros HL, A, B e IX. 

A posição de impressão é carregada 
em HL. A cor é ajustada em A. B car- 
rega o comprimento da mensagem e IX 
é usado como apontador de dados. Os 
dados para a mensagem estão em 57892. 

A rotina que imprime o escore em 
58939 é chamada para imprimir o pla- 
car. Em seguida, ouve-se o toque que 
marca o final do som no jogo. Para 
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produzi-lo, a rotina BEEPER é chama- 
da em 949 três vezes, com valores dife- 
rentes em HL e DE a cada vez. 

Para reajustar o atraso inicial 
carrega-se o acumulador com 50 i 
transfere-se o valor na posição 58732 
Esse endereço ainda não foi menciona- 
do: ele pertence à rotina final do jogo 
e é incumbido de controlar o atraso ge- 
ral. O processador salta para 58578, 
ajustando-o de maneira que você possa 
dar reinício à aventura, se quiser. 



A rotina a seguir coloca Willie em seu 
túmulo: 




LDX 4140 
JSR SOUND 
LDA «131 
LDX «213 
JSR SOUND 
DI LDX 18249 
LDU «1536 
I JSR CHARPR 
i LEAX 254.X 
' STX 18249 
' LDU #17774 
i JSR CHARPR 
i LEAX 254.X 

< JSR CHARPR 
' LDA «30 

LDX 4113 
I JSR SOUND 

< LDX 18249 

i CWPX (6912 

< BLO DI 

i DEC 18239 
' LBHE NLU 



390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 

530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
64 0 
650 
660 



PB LDA 15 
PAA LDX (65535 
LEAX -1,X 
BNE PAA 
DECA 
BNE PB 
JSR CLS 
LDA SFF 2 2 
ANDA |15 
STA SFF22 
STA 3FFC2 
STA SFFC4 
STA 3FFC6 
LDY ISS0B 
LDX l$701 
STX ,Y++ 
LDX |$D05 

stx ,y++ 

LDX IS200F 

stx ,y++ 

LDX 131605 

STX 

LDX #31221 

STX , Y++ 

LDA 4200 

LDX 4255 

JSR SOUND 

LDA 4200 

LDX 4200 

JSR SOUND 

LDA 4255 

LDX 4255 

JSR SOUND 

LDA 4100 

STA DLL+1 

LBRA GBIN 

SOUND EQU $5133 

CHARPR EQU S4BCA 

DLL EQU 551ED 

GBIN EQU 34BE2 

NLV EQU S4BF7 

CLS EQU S4ACC 



Quando a rotina começa, ouve- se um 
sino bater duas vezes. A homenagem so- 
nora ao finado Willie, porém, é promo- 
vida pela rotina SOUND, que será for- 
necida no próximo artigo de Avalanche, 

Antes de testar o programa aqui 
apresentado, lembre-se de colocar um 
RTS no endereço inicial de SOUND, 
S5133. Caso contrário, haverá um erro. 

SOUND requer dois parâmetros que 
especifiquem o tipo e a duração do som. 
Eles são utilizados pela rotina nos regis- 
tradores A e X. Como as duas notas 
produzidas diferem uma da outra, a ro- 
tina SOUND trabalha com parâmetros 
distintos a cada chamada. 



DESCENDO PARA 0 INFERNO 



Willie descerá na tela em direção ao 
inferno. Sua figura anterior deve, assim. 



X é carregado com o conteúdo de 



18249, que aponta para a posição que 
o personagem ocupa na tela; U é carre- 
gado com 1536, o endereço do céu no 
topo da tela. Em seguida, a rotina 
CHARPR é chamada e imprime um 
bloco de céu, apagando a metade supe- 
rior da figura de Willie. O conteúdo de 
X é então adicionado a 254 e recoloca- 
do em 18249, para que o apontador de 
Willie desça um caractere na tela. 

U é carregado com 17774, o endere- 
ço inicial dos dados para a figura de 
Willie com as pernas juntas. Depois, o 
processador salta para a rotina 
CHARPR, que imprime a metade supe- 
rior de Willie uma posição abaixo da úl- 
tima impressão. Novamente, X é incre- 
mentado com 254 e CHARPR é chama- 
da para imprimir a metade inferior da 
figura. 

Enquanto Willie está descendo na te- 
la, ouve-se um grito de agonia — para 
isso, A e X são carregados de novo e o 
processador salta para SOUND. 

Willie deve chegar ao fundo da tela. 
Verificamos se isso já ocorreu carregan- 
do X com o conteúdo de 18249 e com- 
parando esse valor com 6912, o início 
de 28? linha da tela. Se a posição de Wil- 
lie em X for menor do que 6912, a ins- 
trução BLO manda o processador rei- 
niciar o laço Dl e move Willie um ca- 
ractere para baixo. Caso contrário, o 
processador segue em frente, pois Wil- 
lie chegou ao fundo da tela. 

O conteúdo de 18249 — que arma- 
zena o número de vidas que restam a 
Willie — é então decrementado e LBNE 
NLV manda o processador para a roti- 
na que dá nova vida a Willie e traz de 
volta a última tela. Uma instrução de 
desvio longo é usada neste ponto, por- 
que a rotina NLV encontra-se numa 
parte bem anterior do programa — cer- 
tamente mais do que 128 bytes, o limite 
para um desvio curto. 



Se o conteúdo de 18249 foi reduzido 
a 0, Willie não tem mais nenhuma vi- 
da, o jogo terminou e o processador exe- 
cuta a instrução seguinte. 

A é carregado com 5; X é carregado 
com 65535 e, depois, decrementado. O 
processador fica nesse laço até que X se- 
ja 0. Em seguida, A é decrementado e 
X volta a ser carregado com 65535. O 
processo se repete até que A também te- 
nha sido reduzido a 0. 

O processador fica nesse laço 5 x 
65535 vezes — pausa suficiente para que 
o jogador medite sobre o trágico desti- 
no de Willie. Ao sair do laço de atraso, 
o processador salta para a rotina CLS, 
que limpa a tela. 
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O conieúdo de SFF22 é então carre- 
gado em A, onde se executa a operação 
lógica AND com o valor 15. O resulta- 
do é armazenado nas posições de memó- 
ria $FF22, SFFC2, SFFC4 e SFFC6. 

Informamos, assim, ao VDG (gera- 
dor do sinal de vídeo) e ao SAM (multi- 
plexador síncrono de endereços) que es- 
tamos voltando ao modo texto. O pro- 
cedimento é o inverso do que utilizamos 
ao mudar para o modo gráfico. 

Y é carregado com S50B, posição on- 
de iremos imprimir a expressão "GA- 
ME OVER!". X, por sua vez, é carre- 
gado com $701, códigos de tela para as 
letras GA. Essas letras são colocadas na 
tela na posição apontada por Y, que é 
incrementado duas vezes. 

Em seguida, X é carregado com os 
códigos de tela para ME e as duas leiras 
são impressas na nova posição aponta- 
da por Y, dois blocos à direita do início 
de GA. Por fim, os últimos caracteres 
— O, VE e R! — são carregados e im- 
pressos nas posições adequadas. 

Um som anuncia o fim do jogo. Co- 
mo esse som é formado por três notas, 
A e X são carregados e a rotina SOUND 
é chamada três vezes. 

O número 100 é carregado no acumula- 
dor e armazenado em S51EE. Com isso, 
ajustamos o atraso com o valor inicial. 
Quando o jogo for novamente executa- 



do, começará com a mesma velocidade. 

Encerrando a execução da rotina, o 
processador faz um longo desvio para 
o inicio do programa em GBIN. 



A rotina a seguir enterra Willie e ve- 
citado: 



ri fica 


se pode ser ressi 








1 d hl (~5205) 


Tf) 


ld de (62407) 


40 


add hl de 


50 




60 


ld a, 255 


70 


puah hl 


80 


ca 11 77 


90 




100 


dec hl 


110 


dec hl 


120 


ld a. 255 


130 


puah hl 


140 


call 77 


150 




160 


ld de ,32 


170 


add hl.de 


180 


ld a. 255 


190 


puah hl 


200 


call 77 


210 




220 


inc hl 


230 


inc hl 


240 


ld a, 255 


250 




260 


call 77 



270 
280 
290 

300 

310 

320 
330 
340 
350 
360 
370 

360 
390 
400 
410 
420 
430 
440 

4S0 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
56G 
570 
580 
590 
600 
610 
620 



inc hl 
ld a, 255 
call 77 

mo ld hl. (-5205) 

push hl 

ld de. (62407) 

add hl .de 

ld a. 255 

call 77 

ld de. 32 
add hl.de 
ld (-5205) .hl 
ld de. (62407) 
add hl.de 
ld a.O 
push hl 
call 77 

ldTde, 32 
add hl.de 



ld i 



,1 



ld hl. (-5205) 
ld de, 704 
abe hl.de 
jr cbo 
ld a, (-5221) 

ld (-5221), a 
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630 
640 

650 
660 
670 
680 
640 
700 

710 
720 

7.10 

740 

750 

760 



RIO 
820 
830 
840 
650 
860 
870 
880 
890 
900 
910 



jp nz, 53888 
ld de, 234 
ld a, 114 
ld b.12 
tt puah bc 
puah de 

ld hl , (62407) 
add hl, de 
call 77 
pop af 



djnz tt 
ld b,30 



ld (54133) . 
jp 53855 



Essa rotina é executada quando nos- 
so personagem morre — depois de se 
afogar no mar, cair num buraco, ser pi- 
cado por uma cobra ou ser atingido e 
esmagado por uma pedra. 




APAGANDO OS VESTÍGIOS 



Antes de mandar Willie para o infer- 
no, a rotina apaga seus vestígios na su- 
perfície. Se ele foi atingido por uma pe- 
dra, esta também será apagada, evitan- 
do a deformação de figuras. Para isso, 
coloca-se o padrão do céu, código 255, 
em cinco posições ao redor de Willie. 
Examinando todas as situações de coli- 
são, você verá que essas são as posições 
necessárias. 

O par HL é carregado com a posição 
de Willie na tela, que está no apontador 
em -5205 e -5204; DE é carregado 
com o endereço inicial da TN da V RAM 
e somado em HL, o apontador na im- 
pressão. Em seguida, a rotina 77 da 
ROM é chamada cinco vezes, com o va- 
lor de HL apontando para cinco dife- 
rentes posições ao redor de Willie. 
Lembre-se de que a rotina 77 — utiliza- 
da no decorrer do jogo para imprimir 
um padrão na tela — coloca o valor 
de A no endereço da VRAM apontado 
por HL. 



DESCIDA PARA 0 INFERNO 



Willie chega até o fundo da tela, em 
sua descida ao inferno. Para criar esse 
efeito, começamos por apagar sua ca- 
beça — se não o fizermos, veremos no 
vídeo uma coluna de cabeças! 

A posição de Willie, que aponta pa- 
ra a sua cabeça, é carregada da variável 
em - 5205 e - 5204 para HL, par de re- 
gistros guardado na pilha. O endereço 
inicial da TN na VRAM é carregado em 
DE e somado em HL. A rotina 77 colo- 
ca o padrão 255 nessa posição, apagan- 
do a cabeça de Willie. A posição é re- 
cuperada da pilha para HL, sendo so- 
mada a 32 através de DE e colocada de 
volta em - 5205 e - 5204. Assim, Wil- 
lie afunda uma posição na tela. 

Esse novo valor é somado com o en- 
dereço inicial da TN na VRAM através 
de DE. O acumulador é carregado com 
0, o código do primeiro padrão da fi- 
gura de Willie com as pernas juntas. O 
apontador é colocado na pilha e a roti- 
na 77 é chamada. O apontador é recu- 
perado da pilha e somado com 32, mo- 
vendo-se para a posição de baixo. A é 
carregado com 1, o código do segundo 
padrão da figura de Willie. Chama-se a 
rotina 77 e Willie desce uma posição. 

Em seguida, B e A são carregados 
com 255. O acumulador é decrementa- 
do até 0 no laço dl. Quando chega a es- 
se valor, o processador, por meio da ins- 
trução djnz alr, decrementa B, reajusta 
A com 255 e repete o processo até que 
B também seja 0. Esse laço é executado 



255 x 255 vezes e tem como único fim 
atrasar a descida de Willie, para que o 
jogador possa vê-la. 

A posição de Willie é carregada da 
variável em - 5205 e - 5204 para HL, 
onde é subtraída de 704 através de DE. 
Esse valor indica o começo da penúlti- 
ma linha na tela. Como Willie tem dois 
caracteres de altura, a subi ração irá co- 
locar o valor I na baliza carry até que 
seus pés tenham tocado o fundo da te- 
la. Enquanto a baliza tiver esse valor, 
a instrução jr c,mo manda o processa- 
dor de volta ao início da rotina do en- 
terro, que afunda Willie mais uma po- 
sição. Quando seus pés tocarem o chão. 
ele estará completamente enterrado; a 
baliza carry não terá mais o valor 1 e 
não haverá o salto. O processador pas- 
sa, então, a executar a próxima ins- 
trução. 

O número de vidas precisa ser reajus- 
tado — ou melhor, decrementado, pois 
o pobre Willie perdeu uma vida. O nú- 
mero de vidas é carregado no acumula- 
dor em - 5221 , decrementado e recolo- 
cado no mesmo endereço. Se ainda res- 
tam vidas a Willie, o processador salta 
para o programa de inicialização, em 
53888. Caso contrário, continua na ro- 
tina de nova partida. 



ACABARAM-SE AS VIDAS 



Quando Willie tiver consumido suas 
cinco vidas, o jogo acaba. Devemos, en- 
tão, imprimir "NOVA PARTIDA", 
com os padrões previamente colocados 
na tabela de padrões da VRAM pela ro- 
tina fornecida no artigo da página 1001 . 

O par DE é carregado com 234, po- 
sição da tela onde a primeira letra será 
impressa. A contém o código de padrão 
da primeira letra; B, o número de pa- 
drões (doze, incluindo o espaço em 
branco). O laço tt é executado doze ve- 
zes, usando a rotina 77 para imprimir 
a mensagem no centro da tela. Note que 
este trabalho foi bem simplificado, por- 
que os padrões para a mensagem já es- 
tavam na VRAM, em sequência. 

Depois, o laço formado por tu, du e 
su é executado 30 x 255 x 255 vezes, pro- 
movendo o atraso necessário para a 
mensagem ser lida na tela. A rotina que 
imprime o escore em 54023 é chamada 
para imprimir o placar final. 

Para reajustar o atraso geral do jo- 
go, carregamos o acumulador com 50 e 
transferimos esse valor para 54133 — 
endereço que pertence à rotina final e 
controla a velocidade do jogo. 

O processador salta para 53855, o ini- 
cio da rotina principal, para que você 
tente de novo, se quiser. 



IIIIIIIIIIIHH 



©PEIRÂCÕES 
COM CÁDEiÂS 



A programação dos blocos básicos de 
um processador de textos em BASIC 
não é difícil. Aprenda aqui a remover 
espaços em branco e a converter 
maiúsculas em minúsculas e vice-versa. 



A linguagem BASIC tem excelentes 
recursos para programação com variá- 
veis literais (alfanuméricas). Diversas 
funções de manipulação de cadeias de 
caracteres (string) garantem a essa lin- 
guagem uma grande versatilidade. Va- 
mos relembrar, resumidamente, o que 
faz cada uma dessas funções. 
Funções gerais 

LEN(X$) • Retorna o comprimenio 
da cadeia XS (um núme- 
ro inteiro entre 0 e 255). 
Existe para todas as ver- 
sões de BASIC. Nos mi- 
crocomputadores ZX-81 e 
Speclrum não é necessá- 
rio colocar X$ entre pa- 
rênteses. 

ASC(X$) - Retorna o código ASCII 
(um número inteiro entre 
0 e 255) do primeiro ca- 
ractere da cadeia XS. No 
micro Sinclair ZX-81 de- 
nomina-se CODE. 

CHRStX) - Tem a função inversa de 
ASC, ou seja, retorna o 
caractere correspondente 
ao código ASCII indica- 
do pela variável X. 

STRINC$(X,V) - Retorna uma cadeia com 
X caracteres iguais, com 
código ASCII estipulado 
por Y. Não existe para os 
microcomputadores das 
linhas Apple, Sinciair 
ZX-81 e Spectrum. 

[■'unções do subcadeias 



LEFTS (X$,N) -Extrai os N primeiros ca- 
racteres da cadeia X$. 

R1GHT$ (XS.N)-Extrai os N últimos carac- 
teres da cadeia XS. 

MIDS (XS,N,L) -Extrai L caracteres a par- 
tir da posição N da cadeia 
X$. Pode ser utilizado 
também no formato 
MIDS(XS,N), extraindo 
então lodos os caracteres 
que existirem na cadeia 
■ XS, a partir da posição N. 



Nos micros da linha Sinclair 
ZX-81 e Spectrum — não são 
rias funções especiais para tratamento 
de subcadeias. Damos, abaixo, a equi- 
valência entre a referência padronizada 
a subcadeias na linha Sinclair e as fun- 
ções anteriores mencionadas. 



X$(l TO N) « LEFT$(XS,N) 

XS(LEN X$-N TO + 1) «* RIGHTS(XS.N) 
XS(N TO N + L-I) « MID$(X$,N,L) 
XS(N TO) ~MID$(X$,N) 



não ocorre erro: o valor que se 
retorna é igualado a 0. 
Nem todas as versões do BASIC di- 
põem do conjunto completo de funções 
string. Além disso, faltam certas fun- 
ções, necessárias para a programação 
avançada com cadeias (sobretudo em 
processamento de textos): 



INSTR (XS.VS) - A função inslring retorna 
a posição em que se está 
o caractere Y$ (ou o pri- 
meiro caractere da cadeia 
Y$), dentro da cadeia X$. 
Essa função pode ser simulada nos 
computadores onde não existe, por meio 
de um laço de repetição em que cada ca- 
ractere em XS é extraído, sucessivamen- 
te, sendo comparado com YS. Isso po- 
de ser feito com a função MIDS(X$,1, 1), 
onde I é o indicador do laço. 

Funções de conversão 



• eliminação de espaços em branco no 
começo ou no fim de uma cadeia; 

• conversão de minúsculas para maiús- 
culas e vice-versa; 

• extraçào de palavras de uma frase. 

Neste artigo, examinaremos como re- 
solver alguns dos problemas menciona- 
dos acima por meio de pequenas sub-ro- 
tinas, que podem ser acrescentadas a 
qualquer programa. 



Para muitas aplicações de processa- 
mento de cadeias, é preciso remover an- 
tes os espaços em branco existentes no 
começo ou no final de um string. A sub- 
rotina que apresentamos a seguir mos- 
tra como remover brancos à direita. Ne- 
la, a variável A$ contém a cadeia que 
deve ser processada, e BS, o resultado 
da rotina: 



Números podem ser representados 
na forma de uma cadeia de dígitos, 
mais os sinais de ponto (.), mais ( + ), 
menos (-), e as letras E ou D (notação 
científica em precisão simples ou dupla, 
respectivamente. Esta última só existe 
nos micros das linhas TRS-80, TRS- 
Color e MSX). Para efetuar a conver- 
são da representação numérica para ca- 
deia, ou vice-versa, existem duas fun- 
ções especiais em ASCII: 

STRS(X) - Retorna a cadeia corresponden- 
te ao número X. Um espaço em 
branco é adicionado ao início da 
cadeia. 

VAL (XS) - Efetua a operação inversa, ou 
seja, retorna o valor numérico 
correspondente à cadeia XS. Se 
XS não contiver um número, 



1000 FOR I=LEN(AS) TO 1 STEP -. 
1010 IF MIDStAS.I.DO" " THEN 
1030 

1020 NF.XT I 

1030 BS^LEFTS <AS . I ) : RETURN 



1000 FOR I=LEN AS TO 1 STEP -1 

1010 IF A3(I TO I)<>- - THEN 

GOTO 1030 

1020 NEXT I 

1030 LET BS-AS(TO I) 

1040 RETURN 

Para testar a rotina, acrescente este 
pequeno programa: 

5SQQK<IIli 
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■ 


MANIPULAÇÃO DE 


■ 


ELIMINAÇÃO DE 




CADEIAS DE CARACTERES 




ESPAÇOS EM BRANCO 


■ 


CONJUNTO DE FUNÇÕES STRING 


■ 


CONVERSÃO PARA 


■ 


NOVAS ROTINAS 




MAIÚSCULAS 




DE PROCESSAMENTO DE TEXTOS 


■ 


CONVERSÃO PARA MINÚSCULAS 



30 GOSUB 1000 
40 PRINT BS 
50 GOTO 10 

A linha 1000 da sub-rotina percorre 
a cadeia de caracteres do fim ao come- 
ço, recuando um caractere por vez. A 
linha 1010 verifica se o caractere é um es- 
paço em branco. Enquanto for, o laço 
se repete. A ocorrência do primeiro ca- 
ractere não branco causa a interrupção 
do laço e a extração dos I caracteres à 
esquerda (linha 1030). 

Ao testar o programa nos micros das 
linhas TRS-80, TRS-Color, MSX, Apple 
ou TK-2000, não se esqueça de digitar 
a cadeia entre aspas, pois, normalmen- 
te, o comando INPUT já realiza a fun- 
ção de retirar os espaços colocados a di- 
reita da mesma. 

Nas versões do BASIC que permitem 
funções programadas (DEF FN), a ro- 
tina anterior pode ser substituída por al- 
go bem mais compacto: 



Para fazer um teste, troque a linha 
30 do programa de verificação por: 

30 BS-FNTBS (AS! 

Observe que a função só opera cor- 
retamente se não houver mais do que 
um espaço em branco entre as palavras 
de uma cadeia. 

Para remover os espaços em branco 
à esquerda podemos usar a seguinte 
versão da rotina anterior: 

1200 FOR 1-1 TO LEN(AS) 
1210 IF MIDSÍA3.I.DO" " ' 
1230 

1220 NEXT 1 

1230 BS=KIDS(AS.I) :RETURN 



Note que apenas a primeira e a ulti- 
ma linhas da sub-rotina são diferentes, 
pois é necessário percorrer a cadeia do 
primeiro ao último caractere, até en- 
contrar o primeiro não branco. Feito is- 
so, eliminam-se todos os caracteres à 
direita. 



MINÚSCULAS E MAIÚSCULAS 



Outro recurso útil é a conversão de 
todas as letras minúsculas de uma cadeia 
em maiúsculas, ou vice-versa. Lembre- 
se de que o código ASCII de uma letra 
minúscula é igual ao código da maiús- 
cula correpondente, mais o valor 32. O 
código de A, por exemplo,é 65, e o de 
a, 97. Portanto, para converter maiús- 
culas em minúsculas, precisamos apenas 
somar 32 ao código das letras — quan- 
do o código ASCII for menor do que 65, 
que é a letra A, ou maior do que 90, que 
é a letra Z, o caractere não deve ser con- 
vertido. 

1300 BS="" 

1305 FOR 1 = 1 TO LEN (AS) 
1310 OASC(MIDS(A$.I.U) 
1320 IF C>64 AND CX91 THEN 
C-C+32 

1330 BS-BS+CHR$(C> 
1340 NEXT I : RETURN 



1200 FOR 1=1 TO LEN AS 

1210 IF AS(I TO I)<>" " THEN 

GOTO 1230 

1220 NEXT I 

1230 LET B$-AS(I TO) 

1240 BETURN 

Para testar a rotina, substitua a li- 
nha 30 do programa de verificação por 
GOSUB 1200. 



1300 LET bS = " 

1305 FOR 1=1 TO LEN ãO 

1310 LET c-ASC aS(i TO í) 

1320 IF c>64 AND c<91 THEN LET 

c-c+32 

1330 LET bS-bS+CHRS c 
1340 NEXT 1 
1350 RETURN 

Não apresentamos uma versão para 
os compatíveis com o ZX-81, pois estes 
não têm letras minúsculas. 

Para testar a rotina acima, substitua 
a linha 30 de nosso programa de verifi- 
cação por GOSUB 1300. 

O funcionamento da rotina é simples: 
o laço que vai de 1305 a 1340 percorre 
a cadeia de entrada, tomando um carac- 
tere de cada vez, na linha 1310. Se o seu 
código estiver entre 65 e 90, trata-se de 




Como uma cadeia é armazenada na 
memória do computador? 

A cadeia é uma estrutura de dados 
muito útil, pois não exige um espaço 
fixo para armazenagem de cada variá- 

riáveis numéricas. Uma variável de pre- 
cisão simples sempre ocupa quatro 
bytes na memória; uma variável de pre- 
cisão dupla (quinze decimais) ocupa 
seis bytes e assim por diante. 

Manter esse esquema de alocação 
fixa de espaço na memória para as ca- 
deias levaria a um grande desperdício, 
pois o comprimento das cadeias usa- 
das em um programa pode variar mui- 
to. Assim, o interpretador BASIC colo- 
ca todas as cadeias em um único es- 
paço, reservado para esse fim. 

Para saber onde começa e acaba ca- 
da cadeia, o interpretador mantém 
duas outras estruturas de dados: uma 
série de apontadores indica as locações 
de memória onde começam as cadeias. 
No byte 0 da cadeia está indicado o seu 
comprimento, em bytes. É por isso que 
o comprimento máximo de uma cadeia, 
no dialeto M<crosoft BASIC, é 255 (o 
maior número decimal representável 
em oito bits). 



uma letra maiúscula; portanto, devemos 
somar 32 ao mesmo. A linha 130 con- 
catena o novo caractere à cadeia de saída. 

Para converter minúsculas em maiús- 
culas basta alterar apenas uma linha da 
rotina: 



A rotina verifica se o código ASCII 
do caractere está compreendido entre 97 
e 122 {letras a a z, minúsculas). Se esti- 
ver, simplesmente subtrai 32 desse có- 
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EDITOR DE DISCOS 



acesso direto à informação contida 
nos disquetes, podendo alterá-la ou 
recuperá-la em caso de acidente. 
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ACESSO DIRETO ■ O PROGRAMA 

LEITURA E GRAVAÇ ÃO ■ LEITURA 

F ORMATO DO D ISCO DE UM SETOR 

O DIRETÓRIO ■ EXECUTANDO 

- COMO UTILIZAR AS ALTERAÇÕES 



A tarefa de gravar e ler arquivos em 
um disquete é gerenciada pelo sistema 
operacional de disco (DOS). Em geral, 
o modo como se organiza a informação 
no disco ou como se dá a transferência 
de dados não constitui problema para 
o usuário — o DOS cuida de tudo, 
transformando a unidade de disquete 
em uma extensão do computador. 

No entanto, podemos acessar partes 
individualizadas do disco, manipulando 
e alterando diretamente a informação 
nele contida. Este é um recurso ofereci- 
do pelo DOS que abre inúmeras possi- 
bilidades de aplicação. Permite, por 
exemplo, que se alterem itens de um di- 
retório e nomes ou dados de arquivos. 
Sua aplicação mais interessante talvez 
seja a recuperação de informações: com 
o acesso direto você pode, entre outras 
coisas, recuperar arquivos que foram 
apagados, fechar arquivos ou restabe- 
lecer apontadores, corrigindo o enca- 
deamento dos setores que compõem um 
arquivo em particular. 

O acesso direto a blocos individuais 
de informação em um disco funciona de 
modo semelhante a um monitor desti- 
nado a examinar a memória do micro. 

A operação do monitor de disco (ou 
editor de disco) é viabilizada, basica- 
mente, pela armazenagem temporária, 
em uma parte da memória, da informa- 
ção lida do disco ou a ser gravada. En- 
quanto está na memória, a informação 
pode ser alterada à vontade, sendo, em 
seguida, substituída no disco. 



A GEOGRAFIA DO DISCO 



Algum conhecimento sobre a distri- 
buição dos dados no disco é fundamen- 
tal para a manipulação do bloco de in- 
formações em uma trilha ou setor deter- 
minado. O diagrama, normalmente re- 
ferido como formato do disco, é defi- 
nido pelas rotinas de formatação do 
DOS. 

Usa-se a notação em hexadecimal em 
todas as referências sobre acesso direto 
ao disco — por isso, nossas referências 
também adotarão essa notação. Como 
não empregaremos a notação decimal 
em nosso programa, será útil ter uma ta- 
bela de conversão de decimais para hex 
e outra de hex para ASCII. 



TRILHAS E SETORES 



Para utilizar nosso programa-editor, 
você deverá ter um mapa do formato do 
disco. Veremos aqui seus aspectos mais 
relevantes; outros detalhes serão encon- 
trados no manual do DOS. 

Se você vai trabalhar com um disco 
que reúne dados importantes, recomen- 
damos que faça uma cópia dele. Qual- 
quer erro cometido ao usar este progra- 
ma poderá danificar toda a informação 
nele armanezada. 

O TRS-Color tem uma interface es- 
pecial que contém o sistema operacio- 
nal. Este não precisa, assim, estar gra- 
vado no disco para ser lido quando se 
liga o computador — como ocorre com 
a maioria dos micros. 

O disco divide-se em 34 trilhas, cada 
uma com dezoito setores de 338 bytes. 
Destes, apenas 256 são usados para ar- 
mazenamento de dados; os 82 restantes 
são utilizados para controle do sistema 
operacional. 

O diretório, que controla os arquivos 
do disco, fica armazenado na trilha 17. 
Ele pode ser acessado por meio do co- 
mando DIR, que mostra todos os arqui- 
vos, discriminando seu tipo e também 
o número de blocos empregados. Veja- 
mos como está dividida a trilha 17, a 
partir do setor 3: 

Byte Conteúdo 

0-7 Nome do arquivo. Ocupando 
um número de bytes menor que 
oito, é preenchido por espaços 
em branco. Byte 0 igual a 0 in- 
dica arquivo apagado. Byte 0 
igual a FF significa que este e 
os próximos itens do diretório 
ainda não foram usados. 

8- 1 0 Extensão do nome do arquivo. 

1 1 Tipo de arquivo: 

0 programa BASIC; 

1 arquivo de dados BASIC; 

2 programa em linguagem de 
máquina; 

3 arquivo de texto. 

12 00 arquivo em formato binário. 
FF arquivo em formato ASCII . 
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13 Número do primeiro bloco do 
arquivo (0-67). 

14-15 Numero.de byles em uso no úl- 
timo setor do arquivo. 

16-31 Sem uso. 

Para distribuir os arquivos no disco, 
o computador usa como referência blo- 
cos, que nada mais são que metade de 
uma Irilha. Assim, o bloco 0 será com- 
posto pelos setores 1 a 9 da trilha 0; o 
bloco 1, pelos setores 10 a 18 da trilha 
0; o bloco 2, pelos setores 1 a 9 da tri- 
lha 1 e assim por diante, até a (rilha 16. 
A trilha 17 — que contém o diretório — 
não é levada em consideração, mas a di- 
visão recomeça a partir da trilha 18 — 
onde os setores I a 9 compõem o bloco 
34 — e, com isso, prossegue até o fim 
do disco... 

A identificação dos blocos livres pa 
ra uso é feita por meio do setor 2 da tri 
lha 17. Os primeiros 68 bytes desse se 
tor representam os blocos de 0 a 67 
Quando determinado byte contém o 
lor FF, o bloco está livre. Um valor de 
00 a 43 indica sua ocupação por um ar- 
quivo cuja referência é dada pelo núme- 
ro decimal obtido após a conversão do 
valor. Um valor de CO a C9 indica que 
o bloco em questão è o único ou o últi- 
mo do arquivo; o segundo dígito espe- 
cifica o número de setores que estão 
ocupados no bloco. 

Essas informações são importantes, 
especialmente quando se trata de recu- 
perar arquivos apagados por engano — 
tarefa, aliás, nada fácil, mas que pode 
ter bons resultados se realizada com um 
pouco de paciência. 

No caso da recuperação de um arqui- 
vo pequeno, que não ocupa mais de um 
bloco, o trabalho é mais simples. Em 
primeiro lugar, você deve localizar o 
programa desejado no diretório. Para 
restaurar seu nome inicial, substitua o 
00 da primeira posição pela letra ade- 
quada. Depois procure o 13? byte do 
item (o terceiro após a última letra da 
extensão do nome do arquivo). Trans- 
forme seu valor hexadecimal em 
mal, para identificar o bloco usado pe- 
lo seu programa. Em seguida, grave es- 
sa informação no setor e carregue o se 
tor 2 da trilha 17. Procure pelo byte cor 
respondente ao bloco (lembre-se de que 
a contagem começa no 0). Ele deve ter 
o valor FF. Substitua esse valor por C9 
e grave no setor. Saia do programa- 
editor, carregue o seu programa na me- 
mória e volte a gravá-lo, para que to- 
dos os apontadores sejam atualizados. 



Pronto, seu programa está totalmente 
recuperado! 

Quando o programa que você quer 
recuperar è maior, a operação torna-se 
complicada, pois o DOS passa para FF 
o valor de todos os blocos usados pelo 
programa que foi apagado. Assim, co- 
meçamos o trabalho conhecendo apenas 
o primeiro bloco. Os demais têm que ser 



procurados no disco, setor por setor. O 
programa só poderá ser carregado na 
memória do computador quando tiver- 
mos montado a sequência correia de 
blocos. Inicie a busca pelos blocos vizi- 
nhos do inicial e vá se afastando até ter 
localizado todos eles. É um trabalho ár- 
duo, mas, certamente, haverá casos em 
que valerá a pena. 
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10 CLEAR 500O:DIM AS < 1 ) . DS ( 1 > . D 
(160) :CS""~"+CHRS (10) +CHRS (8) *C 
HR3(9)+"AH"+CHRSI13)+" ":D-1 
15 TPS (0) ""BAS" : TPS ( 1 ) ="DAD" ; TP 
3 (2) -"LMA" :TPS (3) -"TXT" 
20 CLS:PRINT «13. "menu" 
30 PRINT S105, "CARREGAR SETOR" : 
PRINT «169. "vER/EDITAR SETOR" : P 
RINT «233, "SALVAR SETOR" : PRINT 
ê297."dIRETORIO" 



40 R3-INKEYS:IF RS = "" THEN 40 
50 R-INSTR("CVSD".RS) :IF R-0 TH 
EN 40 

60 IF SL-0 AND (R-2 OR R- 3) THEN 
PRINT : PRINT "NENHUM SETOR CARRE 

GADO" : FOR K- 1 TO 2000 : NEXT:GOTO 
20 

70 CLS:ON R GOSUB 1000.2000,300 

0.4000 

80 GOTO 20 



218 VS-CHRS(VAL("S.H" + HS)1 : P=H+Y 
«11+X 

1000 SL-l:GOSUB 5000 

1010 DSKIS D.T.S.ASÍ0) ,ASU> 

1020 RE TU RN 

2000 F-l:H-l:CLS:PRINT"aSCII OU 
hEX ?" 

2010 RS-INKEYS:IF RSO"A" AND R 

3<>"H" THEN 2010 

2020 AZ-0:1F RS-"A" THEN AZ=1 

2030 IF F-0 THEN 2050 

2040 PK-96 : CP-1535 : IF AZ=1 GOSU 

B 2320 ELSE GOSUB 2280 

2050 POKE CP.PK:CP-1024+Y*32+X* 

3:PK-PEEK{CP) : POKE CP. 239 

2060 PRINT «321, "BYTE SUPERIOR- 

";H 

2070 RS-INKEYS:IF RS-"" THEN 20 
70 

2080 R-INSTR(CS.RS) :IF R-0 THEN 
2070 

2090 F-0:ON R GOTO 2100.2110.21 

20. 2130. 2140.2150. 2160.2170 

2100 Y-Y-l :GOTO 2210 

2110 Y=Y+l:GOT0 2210 

2120 X-X-l:GOTO 2210 

2130 X-X+l:GOTO 2210 

2140 AZ-l :GOTO 2040 

2150 AZ-0:GOTO 2040 

2160 RETURN 

2170 PRINT «384, "NOVO CONTEÚDO 
(HEX) " ; : INPUT HS 

2180 VS = CHRSÍVAL("Í.H" + HS) ) :P'H + 
Y*ll+X 

2190 MIDS (AS(P/128) .P+128* (P>12 
8) , D-US 

2200 F=l:GOTO 2030 

2210 IF Y<0 THEN H-H-44 : Y-0 : F-l 

2220 IF Y>7 THEN H-H+44 : Y-7 : F-l 

2230 IF X<0 THEN X=10 : Y-Y-l : IF 

Y<0 THEN H-H-ll : Y-0 :F-1 

2240 IF X>10 THEN X*0 : Y-Y+l : IF 

Y>7 THEN Y-=7:H-H + 11:F-1 

2250 IF H- 10 OR H— 43 THEN H-l 

:F=0:ELSE IF H<1 THEN H=1;F-1 

2260 IF H = 179 OR H=212 THEN H-l 

68:F-0 ELSE IF H>168 THEN H-168 

:F-1 

2270 GOTO 2030 

2280 CLS:FOR J-H TO H+87 STEP 1 
1 : FOR TT-0 TO 10 

2290 PRINT RIGHTS("0"+HEXS(ASC( 
MIDS (AS (J/128) , J+TT+128* ( (J+TT) 
>128)))) ,2) ;" "i 
2300 NEXT : PRINT CHRS (8) ; : NEXT 
2310 RETURN 

2320 CLS:FOR J-H TO H+87 STEP 1 
1 :FOR TT=0 TO 10 

2330 G-ASC(MIDS(AS(J/128) , J+TT+ 
1 28* ( (J+TT) >128) ) ) : IF G<32 THEN 
2350 

2340 PRINT " ";CHRSÍG)i" ";:GOT 
O 2360 

2350 PRINT LEFTS("D"+HEXS(G) .2) 

2360 NEXT : PRINT CHRS (8) ; : NEXT : R 
ETURN 

3000 CLS:PRINT"SALVAR NO MESMO 
SETOR (S/N) ?" 

3010 RS-INKEYS:IF RS<>"S" AND R 
SO"N" THEN 3010 
3020 IF RS*"S" THEN 3040 
030 CLSrGOSUB 5000 
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3040 PRINT :PRINT"VOCE TEM CERTE 
ZA (S/N) ?" 

3050 RS= INKEYS : IF BSO"S" AND R 

SO"N" THEN 3050 

3060 IF RS-"N" THEN RETURN 

3070 DSKOS D.T.S.AS(O) .AS(1) 

3080 RETURN 

4000 GOSUB 5050 

4010 PRINT IPR.TABU4) ;"INICIO 
NO.' 



NOME 



EXT T 



4020 PRINT *PR. 
IPO DEL" 
4030 FOR J-0 TO 8:DSKIS D.17.J+ 
3.DSI0) .DS(l) 

4040 FOR K-l TO 256 STEP 32 
4050 GOSUB 6000 

4060 IF ASC(VS)-255 THEN K-256: 
J=8:G0T0 4120 

4065 IF ASC(VS)=0 THEN MIDS (VS , 
1,1)-" ":DT-1 

4070 PRINT #PR.MIDS(V$.1.6) ;TAB 
(9) ;".";MIDS(VS,9,3) i 
4080 TP=VAL<MIDS<VS.11.U) 
4100 PRINT #PR,TAB{15) :TPS(TP) ; 
TAB(20)CHRS(42*DT) 
4110 DT-0 

4120 NEXT K.J:RS=INKEX3:IF PR-- 
2 THEN 4140 

4130 RS-INKEYS:IF RS-"" THEN 41 

30 



5010 INPUT"NUMERO DO SETOR (1-1 
B) " ;S 

5020 INPUT"NUMERO DO DRIVE (0-3 

) ':D 

5030 IF D>3 OR D<0 OR T>34 OR T 
<0 OR S>18 OR S<1 THEN 5000 
5040 RETURN 

5050 PR-0:IF(PEEK(150))Ol THEN 
RETURN 

5060 PRINT" SAÍDA PARA A IMPRESS 
ORA (S/N) 7" 

5070 BS-INKEYS:IF RS<>*S" AND R 
SO"N" THEN 5070 
5080 IF RS="S" THEN PR— 2 
5090 RETURN 

6000 VS-MIDS (DS (K/128) ,K+128*(K 
>128),32):IF LEN(VS)<32 THEN VS 
-VS+MIDS(DS(1+K/128) ,1 ,32-LEN (V 
S) ) 

6010 RETURN 




COMO USAR 0 PROGRAMA 



Carregue o programa na memória e 
escolha o disco no qual você vai traba- 
lhar. Enquanto está aprendendo, con- 
vém utilizar um disquete que não con- 
tenha dados importantes. 

Digitando RUN, você terá quatro op- 
ções: Carregar setor{C). Ver/ editar se- 
tor (V), Salvar setor (§), Direlório (D). 
Pressione D para obter uma listagem de- 
talhada dos arquivos do disco, incluin- 
do os que foram apagados anteriormen- 
te. Estes estarão marcados com um as- 
terisco na coluna DEL. Lembre-se de 
que a inclusão do nome de um arquivo 



no diretório não garante que ele esteja 
disponível no disco — os blocos usados 
por ele podem ter sido reutilizados por 
um outro arquivo. Se você tem uma im- 
pressora conectada ao Micro, digite PO- 
KE 150,1 antes de executar o programa: 
a opção de imprimir o diretório lhe se- 
rá oferecida. 

Em seguida, digite a tecla C para car- 
regar um setor. Tente primeiro o dire- 
tório, pedindo a trilha 17, setor 3. Digi- 
te V para visualizar os dados. Pressio- 
nando A ou H, você poderá obter, a 
qualquer momento, os dados no forma- 
to ASCII ou hexadecimal. O primeiro 
é o mais conveniente para a identifica- 



ção de nomes de arquivos e linhas BA- 
SIC. O segundo deve ser usado quando 
se quer encontrar os valores hexadeci- 
mais de um determinado byte. 

As setas movem o cursor para o pon- 
to que se desejar. Para alterar um va- 
lor, pressione a barra de espaços e for- 
neça o novo byte, sempre em hexadeci- 
mal. Note que apenas uma parte do se- 
tor é exibida. À medida que se movi- 
menta o cursor para baixo, a tela vai ro- 
lando e mostrando o que resta. 

Ao terminar a edição de um setor, 
pode-se gravá-lo usando a opção S do 
menu. Entre as informações solicitadas 
pelo programa... e pronto! 



IIIIIIIIIIIHI 




UMA TÉCNICA MISTERIOSA? 



A MAQUINA INTELIGENTE 



PROCEDIMENTOS RECURSIVOS 



COMO EVITAR ERROS 



Se seu programa possui sub-rotinas 
que são chamadas repetidamente, 
é bem provável que as técnicas de 
recursão possam torná-lo mais rápido 
e eficiente. Veja como utilizá-las. 



A construção de um programa con- 
siste, essencialmente, em achar a melhor 
solução para um determinado problema 
através de uma série de comandos. Â 
medida que ganha experiência, o pro- 
gramador aprende que o melhor cami- 
nho para isso é dividir o problema prin- 
cipal em partes menores. Tal método, 
no entanto, pode virar um pesadelo. 
Muitas vezes, ao tentar resolver uma 
etapa do processo, esbarra em outro 
processo e, quando resolve este, surge 
ainda outro e assim por diante. Em cer- 
to momento, o programador pensa em 
desistir, pois imagina estar andando em 
um verdadeiro círculo vicioso. 

Mas um microcomputador não es- 
moreceria tão facilmente: para casos 
desse tipo, em que os problemas pare- 
cem sair uns dos outros, existem técni- 
cas avançadas de programação, as cha- 
madas técnicas de recursão. 



UMA TÉCNICA MISTERIOSA! 



Geralmente, programadores inician 
les consideram a recursão uma ferra- 



menta complexa c até mesmo n 
sa. A grande dificuldade está na c 
preensão da própria listagem dc um pro- 
grama desse tipo; até mesmo os fluxo- 
gramas mais didáticos parecem obscu- 
ros quando representam processos re- 
cursivos. Apesar de tudo, o princípio 
básico dessa técnica não é tão com- 
plicado. 

Na matemática, a palavra recursão é 
utilizada para designar a repetição de 
uma determinada operação. Em infor- 
mática, porém, ela adquire um signifi- 
cado especifico. Basicamente, a recur- 
são é o chamamento sucessivo de uma 
sub-rotina ou de um procedimento, após 
serem estabelecidos alguns parâmetros 
iniciais. Depois de acionada, a sub-ro- 
tina — ou procedimento — chama a si 
mesma, repetidamente, alualizando os 
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parâmetros iniciais a cada vez, até que 
uma certa condição, previamente esta- 
belecida, seja alcançada. 



A MÁQUINA INTELIGENTE 



Imaginemos a seguinte situação: um 
motorista se encontra em uma grande ci- 
dade desconhecida e precisa ir do lugar 
A para o lugar B. Embora tenha o ma- 
pa da cidade, acha muito difícil ir dire- 
tamente ao local desejado. Decide en- 
tão dividir o itinerário em vários tre- 
chos, estudando um por vez. Escolhe, 
assim, um lugar C, em uma posição in- 
termediária. Analisa o trajeto entre A 
e Ce se dirige para lá. 

Chegando em C, o motorista avalia 
a possibilidade de ir diretamente até B 



Caso isso lhe pareça complicado, pro- 
cura uma oulra posição intermediaria, 
D. O processo se repete até que ele atinja 
seu destino. 

Esse exemplo demonstra o princípio 
básico da recursão, tal como é aplicada 
em programação: a solução de um pro- 
blema é obtida pela sua subdivisão em 
problemas menores ou mais fáceis. 

Assim que o programa alcança um 
novo nível de recursão, torna-se neces- 
sário armazenar as informações que fo- 
ram conseguidas no nível anterior, pa- 
ra recuperá-las no passo seguinte. Ao 
início de cada nível, um novo conjunlo 
de parâmetros é montado e, por meio 
de um teste, verifica-se se tal etapa che- 
gou ao fim. Sem esse leste, o processo 
nunca terminaria. 

Para observar o funcionamento des- 



sa técnica, execute o próximo programa. 
Ele imprime todos os valores inteiros 
posilivos de N até I . 



20 PRINT INVEP.SE 1 ;TAB lj" I 
NTEIROS POSITIVOS DE N ATE 1" 
30 INPUT "DIGITE O INTEIRO A 
PARTIR DO QUAL VOCE QUER C 
ONTAR REGREDIN- DO ATE 1 (0 P 
ARA SAIR) -;N: LET N-INT N: 
IF N<1 THEN STOP 
40 GOSUB 80 
50 GOTO 30 

80 IF N-0 THEN RETURN 

90 PRINT ;N; " " ; 
100 LET N=N-1: GOSUB 80 
110 RETURN 



10 CLS 

20 PRINT " INTEIROS POSITIVOS DE 
N A 1" 

30 PRINT : PRINT : INPUT" DIGITE O V 
ALOR INTEIRO A PARTIR DO QUAL V 
OCE QUER REGREDIR ATE 1(0 OU ti 
EGATIVO PARA TERMINAR) ";N:N-IN 
T(N) :IF N<1 THEN END 
40 GOSUB 80 
50 GOTO 30 

80 IF N-0 THEN RETURN 
90 PRINT N ; " , " : 
100 N-N-l .GOSUB 80 
10 RETURN 




IIIIIIIIIIIHH 



■■■■■■lllllllll 



ITIVOS DE 1 A N- 

30 PRINT ! PBINT : INPUT "DICI 
TE UM VALOR INTEIRO PARA A CONT 
AGEM REGRESSIVA {1-23 E 0 OU ME 
NOS PARA SAIR) ";N:N = INT (N) 
: IF N < 1 THEN END 

40 gosub ao 

SO GOTO 30 

BO IF N = 0 THEN RETURN 

90 PRINT N; " , " ; 

100 N - N - 1 : GOSUB 80 
110 RETURN 



10 CLS 

20 PRINT TAB (5) " INTEIROS POSIT 
IVOS DE 1 A N* 

30 PRINT:PRINT:INPUT"DIGITE O N 
ONERO PARA A CONTAGEM REGRES-SI 
VA <0 OU MENOS PARA SAIR) " ; N :N- 
INT(N):IF N<1 THEN END 
40 GOSUB 80 
50 GOTO 30 

BO IF N=0 THEN RETURN 
90 PRINT N; " , " ; 
100 N-N-l :GOSUB 80 
110 RETURN 




O programa permite que você intro- 
duza um valor inteiro e, a partir dele, 
faz uma contagem regressiva até 1. 
Qualquer valor menor que 1 interrom- 
pe o programa. No Apple e no TK-2000, 
valores maiores que 23 não funcionarão, 
pois esses micros podem memorizar ape- 
nas 23 desvios para uma sub-rotina. 

A linha 40 chama a sub-rotina recur- 
siva. A primeira linha desta verifica se 
a tarefa foi completamente executada. 
Esse teste é essencial para o término de 
todo o processo. 

No primeiro nível da recursão, a va- 
riável N possui o valor introduzido por 
você. Ele é impresso pela linha 90. O se- 
gundo nível é inicializado pela linha 100, 
que reduz o valor de N em uma unida- 
de e chama a sub-rotina novamente, 
com o valor de N já alterado. O progra- 
ma alterna-se, assim, repetidamenie, en- 
tre as linhas 80 e 100. 

Quando N alcança o valor 0 (na li- 
nha 100), o programa é desviado, como 
de costume, para a linha 80, onde en- 
contra o comando RETURN, que o faz 
retornar da sub-rotina chamada na linha 
100. A próxima instrução, na linha i 10, 
também é um comando RETURN, que, 



desta vez, faz o programa retornar da 
sub-rotina chamada na linha 40. A Unha 
50 executa o programa novamente. 

Note que quando o programa termi- 
na, a variável N contém o valor 0, atri- 
buído na linha 100. Mas a linha 90 
nunca imprime esse valor. Para colo- 
car o último valor impresso na variá- 
vel N, você poderia acrescentar a linha 
105 com o comando N = N + 1 (LET 
N= N+ 1, para o Spectrum). Desse modo, 
N conteria sempre o último valor impresso. 



PROCEDIMENTOS RECURSIVOS 



Algumas outras linguagens, como o 
PASCAL, incluem o que se chama de 
procedimento iprocedure). Trata-se de 
um conjunto de linhas definidas em uma 
certa parte do programa — como uma 
sub-rotina — que recebe um nome. Di 
ferentemente das sub-rotinas, um pro- 
cedimento é chamado através dessi 
me. Quando se define um procedimen- 
to, indicam-se também as variáveis que, 
após seu término, retornarão ao estado 
inicial. Este é um bom expediente na 
construção de processos recursivos. 




Os tipos de BASIC com que traba- 
lhamos não permitem que uma variável 
assuma um valor e, ao sair da sub-ro- 
tina, retorne ao valor inicial sem a in- 
terferência de um comando. Assim, so- 
mos obrigados a restabelecer seus valo- 
res iniciais antes de iniciar outra sub- 
rotina. O programa a seguir demonstra 
como contornar esse problema. 
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30 PRINT TAB 6; INVERSE 1 | "C 

ALCULO DE FATORIAL" 

■10 INPUT "DIGITE NUMERO PARA 

FATORIAL (1-33, OU 0 PARA 

SAIR) " ;NU 

50 IF NU>33 OR NUOINT (NU) 

OR NU<0 THEN RUN 

60 IF NU-0 THEN STOP 

70 LET LE-lt LET N(LE)=NU: 

LET AN=NU 

BO G03UB 150 

90 PRINT AN ; " ! = " ;A(1) : 

PRINT ! GOTO 40 
150 IF N(LE)-0 THEN LET A (LE) 
-1: GOTO 180 

160 LET LE-LE+1: LET N(LE)=N<L 

E-D-l: GOSUB 150 

170 LET LE-LE-1: LET A(LE)-A(L 

E+1)*N(LE) 

180 RETURN 



30 PRINT §6. "CALCULO DE FATORIA 



" :NU 

50 IF NU>33 OR NUOINT (NU) OR N 

U<0 THEN 20 

60 IF NU-0 THEN END 

70 LE-1:N(LE)-NU:AN-NU 

80 GOSUB 150 

90 PRINT AN" ! - " ; A (1) : PRINT :GO 
TO 40 

150 IF N(LE)=0 THEN A(LE)-1:G0T 
O 180 

160 LE-LE+l:N<LE)-N(LE-l)-l:GOS 
UB 150 

170 LE-LE-1:A(LE)-A(LE+1)"N(LE) 
180 RETURN 



90 PRINT AN"! = ";A(1): PRINT 
: GOTO 40 

150 IF N(LE) - 0 THEN A (LE) - 
l: GOTO 1B0 

160 LE = LE + 1:N(LE) = N (LE - 

1) - 1: GOSUB 150 

170 LE - LE - 1:A(LE) - A (LE + 

1) * N (LE) 

160 RETURN 




10 DIM N(34) ,A(34) 
20 HOME 

30 PRINT TAB ( 10)"CALCULO DE 
FATORIAIS" 

40 PRINT : INPUT "DIGITE O NUM 
EP.0 FATORIAL (1-22 OU 0 PARASAI 
R) ";NU 

50 IF NU > 22 OR NU < > INT 

(NU) OH NU < 0 THEN 20 

60 IF NU = 0 THEN END 

70 LE - 1:N(LE) = NU : AN - NU 

80 GOSUB 150 



10 DIM N (34) .A(34) 
20 CLS 

30 PRINT TAB (9) "CALCULO DE FAT 
ORIAIS" 

40 PRINT:INPUT" DIGITE O NUMERO 
FATORIAL (1-33 E 0 OU MENOS PA 
RA SAIR) " ;NU 

50 IF NU>33 OR NUOINT (NU) OR N 

U<0 THEN 20 

60 IF NU=0 THEN END 

70 LE"1 :N (LE) =NU: AN'NU 

80 GOSUB 150 

90 PRINT : PRINT AN i " '. = "iA(l):P 
RINT:COT0 40 

150 IF N(LE)=0 THEN A(LE)-1:G0T 
O 180 

160 LE=LE+l:N(LE)-N(LE-l>-l:GOS 
UB 150 

170 LE=LE-1:A(LE)«A<LE+1]*N(LE) 
180 RETURN 




IIIIIIIIIIIHH 
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Execute o programa e introduza um 
valor qualquer, Lembre-se de que valo- 
res maiores que 22 não funcionarão no 
Apple, nem no TK-2000. 

O programa calcula o fatorial do nú- 
mero que você digitou e o imprime na 
leia. O fatorial de um número é o resul- 
tado da multiplicação, entre si, de todos 
os números inteiros menores que ele e 
ele mesmo. Por exemplo, 5 fatorial 
(escreve-se 5!) é igual alx2x3x4x 
5, ou seja, 120. O cálculo de fatoriais 
geralmente é necessário em aplicações 
estatísiicas. Um método rápido de exe- 
cutá-lo será sempre muito útil. 

Inicialmente, o programa dir 
na algumas variáveis (linha 10), em nú- 
mero suficiente para gerar o fatorial má- 
ximo. A variável N terá como índice o 
nível da recursão (LE) — N(LEÍ. 

A estrutura principal do programa 
começa na linha 70, onde o nível é ini- 
ciaiizado em I. Nessa mesma linha, o 
número que você introduziu — supo- 
nhamos que seja 5 — é atribuído a N(l) 
e a AN (variável que irá acumular a res- 
posta). A linha 80 chama então o pri- 
meiro nível da recursão. A primeira li- 
nha da rotina de recursão (linha 150) ve- 
rifica se a tarefa já chegou ao fim, ou 
seja, se N(LE) = 0. Como N(LE) ainda 
é 5, o programa passa para a linha 160, 
que incrementa o nível (para 2), estabe- 
lece como número corrente o 4 e chama 
a sub-rotína recursiva mais uma vez. 
Quando a linha 160 incrementar o va- 
lor do nível para 6 e decrementar o nú- 
mero corrente para 0, a linha 150 detec- 
tará esse último valor atribuindo 1 a 
N(6) e desviando o programa para a li- 
nha 1 80. Encontrando um RETURN , a 
execução passará para a linha 170, que 
foi a última a chamar a sub-rotina. Es- 
sa linha reduzirá o valor do nível para 
5 e A(5) passará a ter o valor de A(6) 
vezes A(5). Com isso, atribui-se a A(5) 

0 valor de 1 x 1 , ou seja, 1 . A linha 1 80 
devolve, então, o controle para o final 
da linha 150, onde A(4) assume o valor 
de A(5) vezes A(4). Desse modo, será 
atribuído ao nível da recursão o valor 

1 (calculado acima) vezes 2. 

O laço irá se repetir sempre que o 
GOSUB da linha 160 for chamado. 
Quando o laço estiver completo, LE se- 
rá 1 e o último RETURN apontará pa- 
ra a linha 80. A próxima instrução (li- 
nha 90) imprimirá então o resultado: 
120. 



lhamos apresentam uma limitação quan- 
to ao número de vezes que uma sub- 
rotina pode chamar outra. A cada cha- 
mada o sistema precisa guardar ha me- 
mória a posição de onde ela foi feita, o 
que requer a utilização de um pontei- 
ro na pilha interna. É por esse motivo 
que o Apple e o TK-2000 não podem 
calcular fatoriais maiores que 22. Já o 
limite de 33 níveis para outros micros 
deve-se simplesmente à capacidade de 
armazenamento de números. O fatorial 
de 34 excede 1.7 x 10 T 38, o máximo 
que um computador pode manipular. 



Para manter seu programa dentro 
dos limites do micro e evitar uma "pa- 
ne", você deve saber como ele se com- 
porta desde o primeiro nível da recur- 
são. Em gera!, utiliza-se como teste uma 
informação inicial que culminará em 
uma resposta já esperada. Para facili- 
tar o trabalho, você pode também con- 
siderar a rotina recursiva como um cer- 
to número de sub-rotinas em sequência. 
Note que um desvio condicional para 
fora da sub-rotina é desaconselhável, 
pois o ponteiro que marca a volta do 
GOSUB ficaria desorientado. 

Quando você estiver escrevendo uma 
sub-rotina recursiva, procure começar 
sempre com um teste de saída. A fun- 
ção desse teste é decidir se o problema 
(caracterizado pelos parâmetros iniciais) 
pode ser resolvido diretamente, sem a 
necessidade de subdivisões. 

Antes de começar o programa, pla- 
neje com cuidado o que deseja que a 
sub-rotina faça. E, quando já estiver es- 
crevendo o programa, não se preocupe 
com a sequência exata da execução, le- 
vando em conta apenas dois princípios 
básicos: a condição de saída e a subdi- 
visão em problemas menores. 

Seguindo o método aqui apresenta- 
do, você será capaz de aplicar a recur- 
são aos seus programas sem maiores di- 
ficuldades. Aqui está um exemplo de co- 
mo essa técnica pode melhorá-los, tor- 
nando-os assim mais rápidos e com- 
pactos. 



Além do problema corr 
que não ocorre com os procedimentos, 
os tipos de BASIC com os quais traba- 



10 BORDER 1: INK 7: PAPER 1« 

CLS 

20 PRINT TAB 11; INVERSE l[" 
ORDENAÇÃO " 

30 INPUT "QUANTOS NÚMEROS VOC 
E QUER ORDENAR (1-1000) 

" ;A 

40 IF A<1 OR A>1000 THEN 



GOTO 10 

50 DIM ACA): DIM R [2+SQR (A)) 
60 LET A(A}-100: PRINT 
INVERSE 1; '"TABELA DESORDENAI) 
A : "' ' : FOR K-l TO A-l : LET A 
(K)-INT (RND*99) : PRINT A (K) ; 
" " ; : NEXT K 

70 LET L-l: LET LV-1 : LET R-A 
-ii GOSUB 1000 

80 PRINT INVERSE 1 ; ' ' "TABELA 
ORDENADA : " 1 ' : FOR K-l TO A- 
1 : PRINT A (K) J " " ; : NEXT K 
90 IF INKEYSO" " THEN GOTO 
90 
100 RUN 

1000 IF R>L THEN LET I=L: LET 
J=R+1: LET V=A(L): GOTO 1010 
1005 RETURN 

1010 LET 1 = 1 + 1: IF AdXV THEN 

GOTO 1010 
1020 LET J-J-l: IF A(J)>V THEN 

GOTO 1020 
1030 IF J>=I THEN LET T-A(I): 
LET A(I)=A(J): LET A(J)=T: GOTO 

1010 

1040 LET T-A(L): LET A(L)=A(J)l 

LET A(J)-T 
1050 LET R(LV)-R: LET LV-LV+1 : 
LET R=J-1 : GOSUB 1000 
1060 LET Ltf»LV-l: LET R-R (LV) : 
LET L-l : GOSUB 1000 
10 70 RETURN 



D 



10 CLS 

20 PRINT SI 1 . "ORDENAÇÃO" 
30 PRINT: INPUT* QUANTOS NÚMEROS 
VOCE QUER ORDENAR (1-10 

00) ";A 

40 IF A<1 OH A>1000 THEN 10 

50 DIM AIA) ,R(I+SQR(A)) 

60 A(A)=100:PRINT" TABELA DESOR 

DENADA :":FOR K-0 TO A-1.A(K)-R' 

ND(99) :PRINT A (K) ; : NEXT : PRINT 

70 L-0 :R-A-1 :GOSUB 1000 

80 PRINT " TABELA ORDENADA :":F 

OR K-0 TO A-1:PRINT A(K);:NEXT 

90 IF INKEYSO" " THEN 90:ELSE 

RUN 

1000 IF R>L THEN I-L : J-R+l :V-A ( 
L) ELSE RETURN 

1010 I-I + 1:IF AdXV THEN 1010 
1020 J-J-llIF A(J)>V THEN 1020 
1030 IF J>-I THEN T-A (I ) : A Cl) -A 
(J) :A(J)-T:GOT0 1010 
1040 T-AtL) :A(L)-A(J) :A(J)-T 
1050 R(LV)=R:LV-LV+l:R-J-l:GOSU 
B 1000 

1060 LV-LV-1:R=R(LV> :L-I:GOSUB 
1000 

1070 RETURN 



BHS] 



10 HOME 

20 HTAB (11): INVERSE : PRINT 
" ORDENANDO NÚMEROS ■ : NORMAL 
30 PRINT : INPUT " QUANTOS NUM 
EROS A SEREM ORDENADOS ? {1-100 . 



0) 



IIIIIIIIIIIHH 
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40 IF A < 1 OH A > 1000 THEN 1 
0 

50 DIM A (A) ,B(1 + SQ.B (A)) 
60 A (A) - 100: PRINT ! PRINT " 
NÚMEROS FOBA DE ORDEM :-" [ I FOR 
K - 0 TO A - 1 :A(K) - INT (99 
* BND (D) + 1: PBINT A(K) 
" ; : NEXT ! PRINT 

70 L - 0:LV - 0:fl - A - 1: GOSU 
B 1000 

BO PBINT ■ NÚMEROS NA ORDEM :- 
■;■ FOR K = 0 TO A - 1: PRINT A 
(K) ;" " : : NEXT 

90 GET IS: IF 1$ < > - " THEN 
90 

100 RUN 

1000 IF R > L THEN I = L:J = B 

+ 1:V = A(L) : GOTO 1010 
1005 BETURN 

1010 I - I + 1: IF ACI) < V THE 
N 1010 

1020 J - J - 1 : IF A(J) > V THE 
N 1020 

1030 IF J > =1 THEN T - A(I) 
:A(I) - A(J):A(J) - T: GOTO 101 
0 

1040 T - AU):A(L) - A(J>:A(J) 
- T 

1050 R(LV) - R:LV - LV + 1:S - 

J - 1: GOSUB 1000 

1060 LV - LV - 1:R - R(LV):L - 

I: GOSUB 1000 

1070 RETURN 

fftá 

10 CLS 

20 PRINT TAB(IO) "ORDENAÇiO DE N 
UMEROS" 

30 PRINT:INPUT"QUANTOS NÚMEROS 
SERRO ORDENADOS (1-1000) " ;A 
40 IF A<1 OB A>1000 THEN 10 
50 D IMA (A) , B ( 1+SQR (A) ) 
60 A(A)-100:PRINT"NÚMEROS FORA 
DE OBDEM:-" : FOa K-0 TO A-1:A(K) 
-INT(RND(-TIME)*99)+1:PBINT A (K 
) ; :NEXT : PRINT 

70 L-0:LV-0:R=A-1:GOSUB 1000 
80 PRINT" NÚMEROS OBDENADOS : " : FO 
B K=0 TO A-l: PRINT A<K)::NEXT 
90 IF INKEYSO" " THEN 90 ELSE 
RUN 

1000 IF R>L THEN I-L : J-B+l : V=A ( 
L) :GOTO 1010 
1005 RETURN 

1010 1-1+1:11 A(I)<V THEN 1010 
1020 J-J-1:IF A(J)>V THEN 1020 
1030 IF J>-I THEN T-A (I ) : A(I) -A 
(J) :A(J)-T:GOTO 1010 
1040 T-A(L) :A(L)-A<J) :A{J)=T 
1050 R(LV)=R:LV-LV+l:R=J-l:GOSU 
B 1OO0 

1060 LV=LV-1:R=R(LV) :L=I: GOSUB 
1000 

10 70 RETURN 



PROGRAMA DE ORDENAÇÃO 



Compare a listagem do método de or- 
denação tipo bolha do artigo da página 
468 com esta, que utiliza a recursão. 



Nosso programa não contém tantos des- 
vios condicionais do tipo IF...THEN, 
GOTO..., nem tantas variáveis. 

Inicialmente, o programa pede que 
você introduza a quantidade de núme- 
ros randômicos que serão ordenados. A 
linha 50 dimensiona a matriz A(A), que 
armazena esses números, e a matriz R, 
que irá guardar o valor das variáveis du- 
rante o processo recursivo. A linha 60 
gera e imprime os números randômicos, 
ainda fora de ordem, e a linha 70 cha- 
ma a sub-rotina recursiva para ordená- 
los. A linha 80 é responsável pela im- 
pressão final. 

O método baseia-se na junção de 
duas listas, ambas previamente subme- 
tidas a uma ordenação. A lista princi- 
pal, composta de números randômicos 
desordenados, é dividida-em duas outras 
listas (linhas 1010 e 1020). Observe que, 
na linha 1000, há um teste de saída pa- 
ra determinar o fim da recursão. Cada 
uma das listas sofre então uma ordena- 
ção parcial (linha 1030), sendo poste- 
riormente reunidas. A sub-roiina irá 
chamar a si mesma (linha 1050) até que 
a ordenação esteja completa. 

Apesar dos métodos de ordenação 
em BASIC não serem tão rápidos quan- 
to os que empregam linguagem de má- 
quina, este programa pode ser muito efi- 
ciente em tarefas menos extensas. Por 
exemplo, a ordenação de cem números, 
no Spectrum, leva mais ou menos 40 se- 
gundos; a ordenação tipo bolha nos fa- 
ria esperar mais de uma hora. 



APLICAÇÕES 



A utilidade da recursão vai muito 
além do cálculo de fatoriais e outras 
funções matemáticas. Ela pode ser apli- 
cada na programação de jogos e na 
construção dos mais complexos gráfi- 
cos. Essa técnica também aparece em 
sistemas de inteligência artificial e no 
controle de robôs, além de ser empre- 
gada em processamento de linguagens 
(compiladores e interpretadores). 

Os jogos de estratégia, como o xa- 
drez ou os wargames, constituem uma 
outra área interessante de aplicação. O 
programa que apresentamos a seguir usa 
a recursão na simulação de um jogo 
clássico. As Torres de Hanói. 



10 BORDER 6: PAPER 6: INK 0: 
CLS 

20 PBINT TAB 8; INVERSE ii"D 
TORRES DE HANOIL1" 
30 INPUT "DIGITE 0 NUMERO DE 
ANÉIS (2-9)n":N: IF N<2 OR N 



>9 THEN GOTO 30 

35 DIM T{3) 

36 LET AS-"B-'B": INK 2: FOR M 

-21 TO 21-N STEP -li PRINT AT 
M.7:AS;AT M,15;AS:AT M.23:AS: 
NEXT M : INK 0 

37 PRINT INK 2;AT 21, 7 

; AT 21,1S:"BBB";AT 21.23;"BB 

■" 

36 FOR M=l TO N: PRINT INK 7 
: PAPEH 0:AT 20-T U ) . 8 ;N*1-M: 
LET T(l)-T(l)+1: NEXT M 

39 PRINT |1:AT 0,3; "QUALQUER 
TECLA PARA COMEÇAR" 

40 PAUSE 0: PRINT *1]AT 0,3;" 
□□□□□□□□□□□□□□□□□* 

45 LET TT-2: LET TF-1: LET R- 
3 

50 GOSUB 90 

70 PRINT AT 10,5;"NUMEBO DE M 

OVIMENTOS-n";2"N-l 

60 STOP 

90 IF N=0 THEN RETURN 
100 LET N-N-l : LET W-R: LET R- 
TT: LET TT-W: GOSUB 90: LET W- 
R: LET R-TT: LET TT-W 
110 GOSUB 200 

120 LET W-R: LET B-TF: LET TF" 
W: GOSUB 90: LET W-E: LET R=TF 
! LET TF-W 

130 LET N-N+l : RETURN 
200 PRINT AT 20- (T (TF) -1 ) , TF*8 
INVERSE 1 ; AT 20-(T(TT)), 
TT*8;N+1: LET T (TF) -T {TF) -1 : 
LET T(TT)-T(TT)+1 
210 SOUND .01,TT*T(TT)"2 
220 RETURN 

D 

10 CLS:DIM H(3) 

20 PRINT 88 , "TORBES DE HANOI":P 
BINT 

30 PRINT "NUMERO DE ANÉIS (2-9) 
7"; 

40 AS-INKEYS:IF A$<"2" OR AS>"9 
" THEN 40 

50 N-VAL(AS) :H(0)-N:PRINT «64 

60 FOB K-0 TO 8: FOR J-0 TO 2 : PR 

INT ei65+K*32+J*9.CHRS<175)+" " 

+CHR3(175) ; :NEXT J,K 

70 FOR K-0 TO 2 : PRINT e453+K*9. 

STRING$(3,175) ; :NEXT 

80 FOB K-l TO N:POKE 1478-32*K. 

49+N-K:NEXT 

90 TT-l:TF-0:R-2 

100 GOSUB 1000 

110 PRINT S65, "NUMERO DE MOVIME 

NTOS -";INT(2-N-D 

120 PRINT" QUALQUER TECLA PARA 

RECOMEÇAR" 

130 IF INKEYS-" " THEN 130 
140 RUN 

1000 IF N-0 THEN RETURN 

1010 N-N-1:W-R:R-TT:TT-W:G0SUB 

1000 : W-R: R-TT: TT-W 

1020 POKE 1478+9*TF-32*H[TF) ,96 

:H(TF)-H{TF)-l:H(TT)-H(TT)+l:PO 

KE 1478+9*TT-32"H(TT) ,49+N 

1030 W-R:R-TF:TF-W:GOSUB 1000:W 

-R :R-TF : TF-W 

1040 N-N+l : RETURN 



IIIIIIIIIUHH 
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mm 



10 HOME : DIM T ( 3 ) 

20 HTAB (14): INVEBSE : PBINT 

"TORRE DE HANOI " : NORMAL 

30 PBINT : PRINT : INPUT " 

NUMERO DE ANÉIS (2-9): ";N 
40 IF íl ( 2 OB N > 9 THEN RUN 

50 FOR J - 1 TO 3: INVERSE : V 
TAB (16): HTAB (J * 10): PRINT 
J: NEXT : NORMAL 
60 FOR I - 1 TO N: HTAB (10) : 
VTAB {16 - I): PRINT N - I: NEX 
T I 

70 TU) - 15 - N:T(2) - 15:T(3) 
- 15 

80 TT » 2:TF - 1:R - 3: GOSUB 1 
10 

90 HTAB (14) : VTAB (20) : PRINT 

■MOVIMENTOS'"; 2 " N - 1 
100 END 

110 IF N = 0 THEN RETURN 

120 N - N - 1:W = R:R ■ TT:TT = 

M: GOSUB 110:U = R : R = TT;TT » 

U 

130 GOSUB 160 

140 W » B:R - TF: TF - W: GOSUB 
U0:W = R:R - TF : TF - W 
150 N - N + 1: RETURN 
160 T (TF) = T (TF) + li HTAB [TF 
* 10): VTAB (T (TF) ) : PRINT " " 

170 HTAB (TT * 10): VTAB (T (TT 
)): PRINT N : T (TT) - T (TT) - 1 
180 RETURN 

m 

10 KEY OFF:CLS:DIM T(3) 

20 PRINT TAB (13) "TORRE DE HANÚI 

30 PRINT: PRINT: INPUT" NUMERO DE 

ANÉIS (2-9) : " ;N 
40 IF N<2 OR N>9 THEN RUN 
50 FOR 1-1 TO N : LOCATE 10,16-1: 
PRINT N-I : NEXT I 
60 T(1)-15-N:T(2)-15:T(3)-15 
70 TT-2:TF-l:R-3:GOSUB 100 
80 LO CATE 14, 20: PRINT" MOVIMENT 
OS-":2-N-l 
90 END 

100 IF N-0 THEN RETURN 

110 N-N-l :W-R:R-TT:TT-W: GOSUB 1 

00:W-R:R-TT:TT-W 

120 GOSUB 150 

130 W-R:R-TF:TF-W: GOSUB 100:W-R 

:R-TF:TF-M 

140 N-N+l: RETURN 

150 T(TF)-T(TF)+l:LOCATE TF*10, 
T (TF) ! PRINT' " 

160 LOCATE TT*10,T(TT) : PRINT N: 

T(TT)-T(TT)-1 

170 RETURN 

Quando o jogo começa, vários discos 
de diâmetros diferentes acham-se empi- 
lhados sobre a primeira de três varetas 
montadas sobre o tabuleiro. O objetivo 
é passar todos os discos para a segunda 



vareta, movendo um por vez e sem dei- 
xar um disco maior sobre um menor. A 
terceira vareta serve como apoio tempo- 
rário durante o processo. 

O computador mostrará uma simu- 
lação animada, pedindo, inicialmenle, 
o número de discos que sairão da pri- 
meira vareta. A transferência destes se- 
rá bastante rápida, o que dificulta a vi- 
sualização dos movimentos. Caso quei- 
ra observar melhor o processo, faça as 
modificações que se seguem. Para o 
Specirum, introduza esta linha: 

215 PAUSE o 

Para o TRS-Color, adicione este co- 
mando ao final da linha 1020: 
:SOUND 50+H{TT) «10,12 

No Apple e no TK-2000, acrescente: 

175 FOR 1-1 TO 800:NEXT 

Para o MSX, adicione esta linha: 
165 BEEP : FOR 1-1 TO B0O:NEXT 

O programa é semelhante aos ante- 
riores. A rotina recursiva executa cada 




As Torres de Hanói e seus nove discos. 



movimento sucessivamente, até que to- 
dos os discos estejam na segunda vare- 
ta. No fim, o computador também exi- 
be o total de movimentos realizados. 

Apesar de poderosa, a recursão po- 
de ser inconveniente quando há uma 
grande limitação de memória, rouban- 
do mais espaço e mais tempo do que o 
necessário. Porém, se não há tal impe- 
dimento e se em seu programa uma sub- 
rotina é chamada mais de duas vezes, 
procure aperfeiçoá-lo com essa técnica. 




IIIIIIIIIIIIHI 



CÓDIGO DE MAQUINA 



AVÂLANGHEs 



Nem tudo é desastre no caminho 
de Willie. Para que não se desespere 
totalmente, às vezes é recompensado, 
conseguindo chegar ao topo da 
montanha e recuperar seu lanche. 



Nenhum outro aventureiro conheceu 
tantos infortúnios quanto Willie. Nos- 
so personagem já experimentou até a 
morte e a descida para o inferno. Mere- 
ce, agora, uma recompensa: finalmen- 
te, ele conseguirá alcançar o topo da 
montanha e recuperar mais uma parte 
do lanche perdido, conquistando, assim, 
alguns pontos no placar. 



A pequena rotina inicial executa a 
melodia da recompensa, coloca Willie 
no próximo nível, aumenta a velocida- 
de do jogo e incrementa o placar. 

10 REM org 597B8 

20 REM rwd ld de, 523 

30 BEM ld hl ,606 

40 REM eall 949 

50 BEM ld a, (57344) 

60 REM me a 

70 REM rea 2. a 

80 REM ld (57344) ,a 

90 REM ld a. (50732) 
100 REM dec à 
110 REM ld (58732) ,a 
120 REM ld a, 2 
130 REM ld b,5 
140 REM ca 11- 59900 
150 REM jp 58601 

As três primeiras instruções, encar- 
regadas da música, usam a rotina BEE- 
PER no endereço 949 da ROM. Os pa- 



râmetros da duração e da tonalidade sào 
fornecidos pelo método usual, através 
dos pares de registros DE e HL. 



O nível de dificuldade do jogo é car- 
regado da variável correspondente, em 
57334, para o acumulador. O conteúdo 
do acumulador é em seguida incremen- 
tado. Precisamos, porém, impedir que 
seu valor seja maior do que 3, já que 
existem só quatro níveis de dificuldade. 
Para isso, usamos a instrução res 2, a 
que ajusta com 0 o bit 2 do acumula- 
dor. Quando o valor deste chega a 4, o 
bit 2 é colocado em 0. O conteúdo do 
acumulador volta, assim, a 0, trazendo 
o jogo para o primeiro nível. 

O resultado dessa operação é arma- 
zenado no endereço 57334, onde será 
utilizado ao se ajustar o jogo. 



com 50. Como Willie não chegará à re- 
compensa mais do que cinquenta vezes, 
o jogo se tornará cada vez mais rápido 
— e, portanto, mais difícil. Cada vez 
que você enfrentar os mesmos quatro ní- 
veis, eles estarão mais rápidos. 



CONTAGEM DE PONTOS 



Por ter alcançado o prémio, Willie re- 
cebe mais 500 pontos. Para isso. chama- 
mos a rotina do escore no endereço 
58900 e fornecemos os parâmetros nos 
registros A e B. 

O valor 2 colocado em A especifica 
o segundo dígito a partir da esquerda — 
o das centenas — . que será incrementa- 
do. O valor 5 em B informa à rotina o 
número de vezes que esse dígito deve ser 
aumentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. 

Em seguida, o processador volta pa- 
ra a rotina de nova vida — rotulada nlv 
— , em 58601, e coloca nosso persona- 
gem na base da encosta. 



O valor do atraso do jogo — que fi- 
ca no endereço 58732 — é carregado no 
acumulador, decrementado e armazena- 
do de volta em 58732. Aceleramos, as- 
sim, o jogo, uma vez que o tempo gas- 
to pelo processador no laço de atraso da 
rotina principal diminui. 

O atraso foi originalmente ajustado 



A pequena rotina apresentada a se- 
guir acerta o placar de Willie quando ele 
alcança uma recompensa ou escala uma 
outra parte da encosta. 
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nece em IX. Isso faz com que o aponta- 
dor de dados percorra os dígitos arma- 
zenados a partir de 57337, até chegar ao 
especificado pelo conteúdo de A. A po- 
sição é temporariamente armazenada, 
colocando-se o conteúdo de IX na pilha. 
A rotina sdi é chamada. 



A rotina sdi é a que trata dos dígitos. 
Ela começa carregando o acumulador 
com o dígito apontado por IX. O des- 
locamento do 0 é necessário aqui por 
causa do formato da instrução. 

O digito é então incrementado e com- 
parado com 10. Se ele for 10, será pre- 
ciso incrementar também no próximo 
dígito. Caso contrário — ou seja, se o 
primeiro dígito ainda não foi incremen- 
tado até 10 — , a instrução jr iw manda 
o processador para o rótulo sno, que 
volta a armazenar o dígito incrementa- 
do na posição de onde veio. 

Se o dígito que você está alterando foi 
incrementado até 10, o salto não ocor- 
re e o processador continua com a pró 
xima instrução. O valor 0 é armazena 
do no digito apropriado. Em seguida, 
IX é decrementado, passando a apon 
tar para o dígito imediatamente à es- 
querda. A instrução jr sdi manda então 
o processador de volta para sdi, inician- 
do novamente a rotina de incremento no 
próximo dígito. 

Se este foi incrementado até 10, o 
processador continua no laço. Mas, ce- 
do ou tarde, um dígito que não chegou 
a 10 será encontrado. O processador irá 
então para sno, armazenando o último 
dígito e retornando para o lugar da ro- 
tina ser de onde sdi foi chamada. 



Quando o processador retorna da ro- 
tina, o apontador IX é recuperado da pi- 
lha outra vez. Você pode agora perce- 
ber por que precisamos armazená-lo ali: 
se o dígito foi incrementado até-10, sdi 
terá deslocado o apontador IX para o 
digito seguinte; caso você tente incre- 
mentá-lo mais uma vez, irá alterar o dí- 
gito errado. 

O laço desta parte da rotina é fecha- 
do por uma instrução djnz, que decre- 
menta o conteúdo de B até zerá-lo. Co- 
mo você deve se lembrar, B carrega o 
número de vezes que o digito do escore 
tem que ser incrementado quando o pro- 
cessador entra na rotina. 

O pFocessador continua no laço atua- 
lizando o escore o número de vezes ini- 
I cialmente especificado por B. Quando 



ODIGO DE MAQUINA 
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B chega a O, a rotina de impressão em 
58939 é chamada, imprimindo o novo 
escore na tela. 

Em seguida, o processador retorna. 



Esta pequena rotina executa a melo- 
dia da recompensa, coloca Willíe no 
próximo nível, acelera o jogo e acrescen- 
ta pontos no placar. 
10 ORO 20721 
20 RWD LDA 1255 
30 LDX 1150 
40 JSR SOUND 
50 LDA 18238 
60 IKCA 
70 ANDA |3 



STA 18238 
DEC DLL+1 

LDB |5 

LDA |3 

JSR SCI 

LBRA NLV 

SCI EXG A, B 

SCT LDX #18240 

ABX 

PSHS A.X 
JSR SDI 
PULS A.X 
DE CA 
BNE SCT 
JSR PRSC 
RTS 

SDI LDA. X 
INCA 

CMPA #10 
BNE SNO 
CLR . X 
LEAX -1,X 
BRA SDI 
SNO STA .X 
RTS 

SOUND PSHS A 
LDA SFF01 
ANDA «247 
STA SFF01 
LDA SFF03 
ANDA 1247 
STA SFF03 
LDA SFF23 
ORA te 
STA SFF23 
ORCC #$50 
PULS A 
PSHS X 
LDB #252 
SBN STB SFF20 
SC LEAX -l.X 
BNE SC 
LDX, S 
CLH SFF20 
SD LEAX -l.X 
BNE SD 
LDX , S 
DECA 
BNE SBN 
ANDCC #SAF 
PULS X 
RTS 

CLICK LDX #98 
LDA (4 
JSR SOUND 
RTS 

DLL EQU S51ED 
NLV EQU S4BF7 
PRSC EQU 34C77 



As três primeiras instruções, encar- 
regadas da música, usam a rotina 
SOUND, chamada pela linha 40. Os pa- 
râmetros da duração e da tonalidade são 
fornecidos pelo método usual, através 
de números carregados em A e X. 



nível de dificuldade 



A é carregado com o conteúdo de 
18238, a posição de armazenamento do 



nível de dificuldade. Esse valor é incre- 
mentado e a operação AND é feita com 
o número 3. Apagamos, assim, os seis 
bits mais significativos e evitamos que 
o nível do jogo ultrapasse o valor 3. O* 
resultado é armazenado de volta na po- 
sição 18238. 

Em seguida, a variável na posição de 
memória $5 1 EE é decrementada e o jo- 
go se torna um pouco mais rápido. 

Para atualizar o escore, carrega-se 5 
em B e 3 em A; a rotina SCI, fornecida 
a seguir, é então chamada. B carrega o 
número de vezes que o dígito será incre- 
mentado e A identifica esse dígito. Desta 
vez, portanto, acrescentamos 500 pon- 
tos ao escore. 

Finalmente, o processador volta pa- 
ra a rotina NLV, que irá colocar o pró- 
ximo nível na tela. 



CÁLCULO DO PLACAR 



Para serem utilizados na próxima ro- 
tina, os conteúdos dos registradores A 
e B precisam ser trocados. Isso é feito 
pela instrução EXG. X é enião carrega- 
do com 18240, o endereço inicial dos va- 
lores do escore. 

ABX adiciona a X o conteúdo de B 
— que é o número do dígito a ser incre- 
mentado. Em outras palavras, essa ins- 
trução desloca o apontador em X, que 
estava no início dos dados do escore, pa- 
ra a posição do dígito que se pretende 
incrementar. O conteúdo de A (o núme- 
ro de vezes que o dígito será incremen- 
tado) e o de X (a posição de memória 
desse dígito) são colocados na pilha de 
máquina. Em seguida, o processador 
salta para a sub-rotina SDI que executa 
o incremento. Os conteúdos de A e X 
são recuperados da pilha. 

A é decrementado e, se não tiver che- 
gado a 0. a instrução BNE SCT manda 
o processador continuar no laço. A ro- 
tina de incremento do digito é executa- 
da A vezes, incrementando o dígito 
apropriado a cada volta do laço. 

Com A reduzido a 0 e o escore acer- 
tado, o processador sai do laço e vai pa- 
ra a rotina PRSC, que imprime o resul- 
tado na tela. Depois disso, o processa- 
dor encontra RTS e retorna para a roti- 
na principal. 



ALTERANDO OS DÍGITOS 



A é carregado com o conteúdo da po- 
sição de memória apontada por X. Es- 
te corresponde ao número comido no di- 
gito apropriado do escore. 

O número é incrementado e o resul- 
tado é comparado com 10. Se ainda não. I 
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for igual a 10, a instrução BNE coloca 
o processador no róiulo SNO, que vol- 
ta a armazenar o dígito que foi incre- 
mentado no endereço apontado por X. 
O processador retorna. 

Se o resultado for igual a 10, o dígi- 
to apontado por X é ajustado com 0 — 
ou seja, é limpo. X é então decremen- 
tado, fazendo o apontador se mover pa- 
ra o digito imediatamente à esquerda. 

BRA SDI manda o processador de 
novo para o laço de incremento de dígi- 
to. Depois que o próximo dígito é incre- 
mentado, verifica-se se ele ultrapassou 
o valor 9. Encontrando um dígito que 
não exceda o valor máximo, o proces- 
sador o armazena na posição apontada 
por X. Observe que, ao voltar da roti- 
na de escore, o processador recupera o 
valor de X da pilha. 

A rotina SOUND trabalha exatamen- 
te do mesmo modo que a rotina encar- 
regada de executar Greenleaves. Porém, 
toca apenas uma vez e usa a pilha como 
fonte de dados. 

Depois de SOUND, há uma outra pe- 
quena rotina chamada CLICK. Ela exe- 
cuta a trilha sonora da caminhada de 
Willie, carregando os parâmetros em X 
e A e chamando a rotina SOUND. 

Para testar a rotina, use as teclas M 
e N e este programa em BASIC. 

10 POKE 3000, 37 

20 EXEC 19426 

30 EXEC 19902 

40 GOTO 30 



Esta pequena rotina coloca Willie no 
nível seguinte, aumenta a velocidade do 



placar. 


10 


org 55506 


20 


ld a, (-5228) 


30 




40 


res 2. a 


50 


ld (-5228) ,a 


60 


ld a, (54133) 


70 


dec a 


80 


ld (54133), a 


90 


ld a, 2 


100 


ld b,5 


110 


call 55532 


120 


jp 538B8 



ultrapassar 3. Para evitar que isso 
ocorra, utilizamos a instrução res 2,a, 
que ajusta com 0 o bit 2 do acumula- 
dor. Assim, quando o valor incremen- 
tado chega a 4, o bit 2 é ajustado com 
0. O conteúdo do acumulador volta, en- 
tão, a 0, colocando o jogo novamente 
no primeiro nível. 

O resultado dessa operação é arma- 
zenado em -5228, onde o novo valor 
será utilizado no controle do jogo. 



O atraso do jogo em 54133 é coloca- 
do no acumulador, decrementado e ar- 
mazenado de volta em 54133. Isso ace- 
lera o jogo, já que o tempo gasto pelo 
processador no laço de atraso da rotina 
principal diminui. 

Como você poderá verificar na últi- 
ma rotina da série Avalanche, esse atra- 
so foi originalmente ajustado com 50. 
Assim, sempre que aumenta o número 
de pontos no placar, o jogo se torna 
mais rápido e difícil. Cada vez que vo- 
cê enfrentar os mesmos quatro níveis, 
a velocidade será maior. 



CONTAGEM DOS PONTOS 



Por ter alcançado o premio, Willie re- 
cebe mais 500 pontos. Para isso, chama- 
mos a rotina de contagem e fornecemos 
os parâmetros nos registros A e B. O va- 
lor 2 colocado em A especifica o segun- 
do dígito a parur da esquerda — o das 
centenas — , que será incrementado. O 
valor 5 em B informa à rotina o núme- 
ro de vezes que esse dígito deve ser au- 
mentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. Em seguida, o processador 
vai para a rotina principal do jogo, em 
53888, e coloca Willie na base da 
encosta. 



A pequena rotina que se segue acer- 
ta os pontos de Willie quando ele alcan- 
ça uma recompensa ou escala uma par- 
te da encosta. 



o nível de dificuldade 



O nivel de dificuldade do jogo é 
transferido da variável equivalente em 
- 5228 para o acumulador. A seguir, o 
conteúdo desse é incrementado. Como 
existem apenas quatro níveis qp- 
jogo, o valor dessa variável não deve 



130 org 55532 

140 po ld hl ,-5219 

150 ld d,0 

160 ld e.a 

170 add hl.de 

180 pd push hl 



190 



ali 



200 pop hl 
210 djnz pd 
220 call 54023 
230 ret 

240 ad ld a, (hl) 

250 inc a 

260 cp 10 

270 jr nz.an 

280 ld a,0 

290 ld (hl) ,3 

300 dec hl 

310 jr sd 

320 an ld (hl) ,a 

330 ret 

340 end 

A posição de memória - 5219 corres- 
ponde ao endereço inicial das variáveis 
que contêm os dígitos do escore, carre- 
gadas com 0 pela rotina de inicialização 
dada em artigo anterior. O registro D é 
carregado com 0 e o registro E, com o 
conteúdo do acumulador. Lembre-se de 
que o acumulador carrega o número do 
digito quando o processador entra nes- 
ta rotina. 

O conteúdo do par DE é somado em 
HL. A operação faz o apontador de dí- 
gitos percorrer as variáveis onde seus va- 
lores estão armazenados, a partir de 
- 5219, até o digito indicado pelo con- 
teúdo de A. O conteúdo de HL é colo- 
cado na pilha, onde ficará temporaria- 
mente armazenado, e sd é chamada. 



ALTERANDO 0S DÍGITOS 



A rotina sd, que trata dos dígitos, co- 
meça carregando o acumulador com o 




II lllllllllllll» 47 CODKODIMJiaUm 47 ■ ■■■■||||||||| 



valor do digito apontado por HL. Este 
é ineremeniado e comparado com 10. Se 
for igual alO — ou seja, se ultrapassou 
o maior valor de um dígito decimal, 9 
— , será preciso incrementar o próximo 
digito. Se o dígito analisado ainda não 
ultrapassou 9, a instrução jr nz manda 
o processador para o róiulo sn, que ar- 
mazena seu valor na variável corres- 
pondente. 

Quando o dígito que está sendo alte- 
rado chega a 10, o salto não ocorre e o 
processador continua com a próxima 
instrução. O valor 0 é armazenado nes- 
se digito e o par HL é decrementado, 
passando a apontar para o dígito ime- 
diatamente á esquerda. A instrução jr 
sd manda o processador de volta para 
sd e a rotina de incremento recomeça pa- 
ra o próximo dígito. 

Se este também já ultrapassou 9, o 
processador continua no laço. Mas, ce- 
do ou tarde, um dígito que não chegou 
a 10 será encontrado. O processador irá 
então para sn, armazenando o último dí- 
gito e retornando para o lugar da roti- 
na pd de onde sd foi chamada. 



Quando o processador retorna da ro 
o apontador HL é recuperado da 
pilha. Você pode agora perceber por que 
precisamos armazená*lo ali: se algum dí- 



gito foi incrementado até 10, a rotina sd 
terá deslocado o apontador. Caso não 
tivéssemos armazenado o valor inicial 
na pilha, desta vez estaríamos alteran- 
do o dígito errado. 

O laço é fechado por uma instrução 
djnz, que decrementa o conteúdo de B 
até zerar esse registro. Como você deve 
se lembrar, B carrega o número de ve- 
zes que o dígito do escore tem que ser 
incrementado quando o processador en- 
tra nesta rotina. 

O processador continua no laço pd 
atualizando o escore o número de vezes 
inicialmente especificado por B. Quan- 
do B chega a 0, a rotina de impressão 
dos dígitos em 54023 é chamada, impri- 
mindo o novo escore na tela. 

Em seguida, o processador retorna. 
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INPUT apresenta, finalmente, um jogo 
de computador projetado para vários 
participantes. Reúna a família e os 
seus amigos e role os dados nesta 
brincadeira de sorte e de perícia. 



Até aqui, a maioria dos jogos de IN- 
PUT — sejam os de aventura, estraté- 
gia ou videogame — basearam-se no 
confronto computador-usuário. A 
maior dificuldade nesse tipo de disputa 
estava, como vimos, na criação de re- 
gras e situações que simulassem desafio 
ou, no caso dos jogos de estratégia, na 
transformação do computador em um 
adversário inteligente e de bom nível. O 
jogo que apresentamos neste artigo é di- 
ferente: o confronto pode se dar entre 
até seis jogadores. O computador não 
participa como adversário — cabe-lhe 
apenas conferir as regras e manter o pla- 
car. A máquina evita, assim, que alguém 
trapaceie, e, o que é melhor, libera os 
jogadores da contagem do placar, pos- 
sibilitando que se concentrem só nas 
questões estratégicas. 

Este jogo não passa de uma versão 
computadorizada do famoso Yatch, ou 
pôquer com dados. Combinando sorte 
e estratégia, é muito absorvente, mas 
suas regras são simples, parecidas com 
as do pôquer. Cada participante tem di- 
reito a jogar cinco dados de uma só vez 
(no nosso caso, o computador simula os 
dados rolando). Se o jogador não esti- 
ver satisfeito com o resultado obtido, 
poderá lançar os dados mais duas vezes 
(num total de três jogadas). Na segun- 
da e terceira jogadas, é permitido esco- 
lher quais dentre os cinco dados serão 
lançados novamente, para que se con- 
siga a melhor "mão" possível. Depois 
do terceiro lançamento, o jogador deve 
indicar o grupo do placar no qual sua 
combinação de dados vai ficar (cada 
grupo poderá ser usado apenas uma 
vez). A partida continua, então, com o 
próximo jogador. 

Os grupos de placar são: 

GRUPO PONTOS 

UM soma dos 1 obtidos 

DOIS soma dos 2 obtidos 



SEIS soma dos 6 obtidos 

FULL HOUSE soma dos cinco dados 
CURTO 15 
LONGO 30 

MISTO soma dos cinco dados 

■ YATCH 50 



Um CURTO é uma combinação de 
quatro dados em sequência (1,2,3,4 ou 
2,3,4,5) e um LONGO, uma combina- 
ção de cinco dados também em sequên- 
cia (1,2,3,4,5 ou 2,3,4,5,6). Um FULL 
HOUSE compõe-se de uma trinca e um 
par (5,5,5,1,1, por exemplo), enquanto 
um MISTO, como seu próprio nome 
diz, aceita qualquer tipo de combinação 
de dados. O YATCH, finalmente, é o 
grupo formado por cinco dados iguais. 

O resultado obtido numa jogada de- 
ve ser colocado num dos grupos. 
Lembre-se de que só se pode indicar ca- 
da grupo uma vez. Para selecionar o 
grupo e executar a escolha usam-se as 
setas e a barra de espaço. 

Muitas vezes não é possível obter 
uma combinação de dados que satisfa- 
ça um dos grupos vazios (os grupos 
cheios não podem ser utilizados nova- 
mente). Neste caso, a única opção é sa- 
crificar um dos grupos vazios — de pre- 
ferência, um dos que rendem menos 
pontos — , eliminando-o. A melhor es- 
tratégia, portanto, é preencher primei- 
ro os grupos que rendem mais pontos — 
que são também os mais difíceis — evi- 
tando-se que venham a ser sacrificados. 

O programa está dividido em três 
partes principais: rotina de inicialização, 
laço-mestre e rotinas chamadas pelo 
laço-mestre. 



Esta parte do programa configura os 
UDG (gráficos definidos pelo usuário) 
que representarão os dados na tela (me- 
nos nos micros das linhas Apple e 
TK-2000), inicializa as variáveis e arma- 
zena os nomes dos jogadores. 



jog 



60 DATA 1,0.1,1,0,1.1,0.1 
85 LOCATE7,10:PBINT"Quantoi 
adoreis (1-6)?"; 

90 AS-INKEYS:IFAS<"1" OR A3>"6" 
THEN90 

100 PRINTAS:NP-VAL(AS) :CLS 

110 F0RN-lT0NP:PRINT"no»e do jo 

gador" ;N; : INPUTNS (N) : NEXT 

120 C!.S:CLS-STBINGS(35." ") 

130 DIMO(NP,12) ,P<NP. 12) ,3(NP,1 

0) 



TM 



10 CLS:X$ = CHRSU3)+CHRS(10) ;DIM 
DS(6.4) 

20 F0BK-1T06:F0RJ-1T03:F0BL-1T0 
3:READA:D$(K,J)-DS(K. J)+CHR$U> 
+CHRS(219-145*A) : NEXT : NEXT: NEXT 
30 DATA 0.0.0,0,1,0,0.0,0 
40 DATA 1,0,0,0.0,0,0.0,1 
50 DATA 1,0.0.0,1.0.0,0.1 
60 DATA 1,0.1,0,0,0,1,0,1 
70 DATA 1,0,1,0,1.0,1,0.1 



DIM AS (12) 



30 FOR T - 1 TO 6: READ AS : DCS 

(T) - AS: NEXT 

40 FOR T = 1 TO 12 

50 READ AS ! AS tT) - AS + LEFTS 

(" ",12 - LEN (AS) 

) ! NEXT 

60 VTAB (10) : PRI NT TAU ( 10); 

'QUANTOS JOGADORES (1-6)?"; 

70 GET AS: IF AS < "1" OH AS > 

"6" THEN 70 
80 NP - VAL (AS): PR1NT NP: DI 
M NS (NP) ■ SC (NP) . O (NP ■ 12) , P (NP . 1 
2) ,S(NP,10) 

90 HOME : FOR N ■ 1 TO NP : PRI 
NT TABI l):"NOME DO JOGADOR "; 
N;" - " : 

100 INPUT NS(N) : NEXT 

1170 DATA <1>,<2>,<3> 

1180 DATA <4>.<5>.<6> 

1190 DATA UNS. DOIS. TRES.QUAT 

ROS, CINCOS. SEIS, 4 IGUAIS 

1200 DATA CASA CHEIA, CUSTO , L 

ONGO, MISTO, YATCH 



20 LET QS = " "! I-ET 

ZS-" " : DIM C(13) : 

FOR N-l TO 13: READ C(N) : 
NEXT N: DIM T(5): DIM R(5): 
DIM D(5) 

30 FOR N-USR "A" TO USB "G"+7 
! READ A: POKE N , A : NEXT N 
40 DATA 2,3,4.5.6,7,11,14.17. 
20.23.25,27 

50 DATA 0,0,0.24.24,0,0.0 
60 DATA 0.6.6,0,0,96,96,0 
70 DATA 3.3.0.24,24,0,192,192 
DATA 0.102.102.0.0.102.102 



i D 
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AS REGRAS DO J OGO ■ ROLANDO OS DADOS 
A ESTRATÉGIA ■ O PLACAR 



GRUPOS DE PLACAR 



UDG DOS DADOS 



O LAÇO-MESTRE ■_ RESULTADO FINAL 



100 DATA 102.102,0,102,102,0, 
102,102 

110 DATA O, 24,48.96. 255, 96.48. 
24 

120 PRINT AT 10, 13; "YATCH" : 
INK 1: PRINT AT 12,7; "QUANTOS 
JOGADORES"' 'TAB 11;"(1 A 6)" 
130 INPUT NP: LET NP-INT (NP): 
IF NP<1 OR NP>6 TBEN GOTO 130 
140 DIM 01HP.12): DIM P(NP,12) 
: DIMS(NP,5): DIMNSÍNP.6): 
DIM Q (NP) 

150 FOR N-l TO NP: CLS : PRINT 
AT 8,5;"JOGADOR " ; (N) ; " . " ' "TAB 
5; "QUAL E SEU NOME ?" : INPUT 
«5: IF LEN W3>6 THEN LET WS- 
WS( TO 6) 

160 LET NS(N)=2S( TO 3- {LEN W$ 
1/2) +US: NEXT N 



■■ 

10 CLS:X$-CHRS<13) : DIM D$(6.4) 

20 FOR K-l TO 6: FOR J-l TO 3:FO 

R L-l TO 3 : READ A:D$ tK , J) -DS (K, 

J)+CHR$(128+65*A) : NEXT 

30 DS (K . J) -DS (K , J) +CHRS (133) :NE 

XT 

40 DS(K,J)-STRINGS(3.131)+CHRS< 
135) : NEXT 

50 DATA 0.0,0,0.1,0,0,0,0,1,0,0 
.0,0,0,0,0,1 

60 DATA 1,0,0,0,1,0,0,0,1,1,0,1 
,0,0,0.1,0,1 

70 DATA 1.0,1,0,1.0.1.0.1,1,0.1 
,1,0,1,1,0,1 

80 PRINT: PRINT"QUANTOS JOGADO RE 
S (1-6) ?■; 

90 AS-INKEYS:IF AS<"1" OR A$>"6 
" THEN 90 

100 PRINT A$:NP-VAL(A$) : CLS 
110 FOR N-l TO NP:PRINT §65. "JO 
GADOR" ; N : PRINT" QUAL E SEU NOME 

7" : INPUT NS (N) 
120 CLS:NE5CT 

130 DIM 0(NP, 12) ,P(NP,12) ,S(NP, 
10) 



0 LAÇO-MESTRE 



170 CLS:GOSUB350:CLS:NEXTN,I 
180 CLS:GOSUB990:NEXTR:END 
980 L0CATE19-LEN{NS<N))/Z,Y:PRI 
NTNS(N) : RETURN 

140 FOR R = 1 TO 5: FOR I - 1 
TO 12 : FOR N ■ 1 TO NP 
150 HOME :Y - 2: GOSUB 980: GO 
SUB 190 

170 HOME : GOSUB 350: HOME : N 
EXT N,I 

180 HOME : GOSUB 990: NEXT R: 
END 

980 HTAB (19 - LEN ( NS ( N) ) / 
2): VTAB (Y) : PRINT NS (N) : RETU 
RN 




170 FOR R=l TO 5: FOR 1-1 TO 
12: FOR N=l TO NP 
180 BORDER 4: INK 0: PAPER 4: 
CLS : PRINT AT 3.13;N3(N) 
190 FOR M-5 TO 27: PRINT 
PAPER 0;AT 5.M;" " ; AT 19, M; - " 
: NEXT M 

200 FOR M-6 TO 18: PRINT 
PAPER 0;AT M,5;" * ; AT M.27;" " 
: NEXT M 

210 GOSUB 240: PAUSE 0: GOSUB 
430 

230 NEXT N: NEXT li GOSUB 1290 
: NEXT R: STOP 

U 



140 FOR R-l TO 5:FOR 1-1 TO 12: 
FOR N-l TO NP 




A estrutura do jogo é bem simples, 
e consiste nestas poucas linhas: 

140 F0RR-1T0S:F0RI-1T012:F0RN-1 
TONP 

150 CLS:Y-2:GOSUB9B0:GOSUB190 
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150 CLS:W-6:Y-2:GOSUB 980:GOSUB. 
190 

160 SOUND 50.3:FOR E-l TO 800:N 

bcr 

170 CLS:GOSUB 350:CLS:NEXT N.I 
180 CLS:GOSUB 990:NEXT R:END 
9870 PRINT ey*32+W-((LEN(NS(N)) 
)/2) ,NS(N) : RETURN 

O laço-mestre compõe-se de três la- 
ços encadeados (um dentro do outro) 
que controlam o jogo. R é o número da 
partida; I, o número de jogadas dentro 
de uma partida 6 N, o número de joga- 
dores. As rotinas chamadas por esse la- 
ço fazem os dados rolar e apresentam 
os placares parcial e final. Todos os mi- 
cros, menos o Spectrum, chamam uma 
pequena rotina para centralizar os no- 
mes na tela. As' rotinas chamadas pelo 
laço-mestre também são subdivididas, 
como veremos a seguir. 



OS DADOS VA0 ROLAR 



A primeira dessas rotinas rola os da- 
dos, exibe-os na tela e chama duas ou- 
tras rotinas. 

Acrescente as linhas que se seguem à 
parte do programa já digitada: 



200 LOCATE0.T*2+3:PRINT"JOGO";T 

210 GOSUB970:IFT-3 TBEN 310 
220 C-l: FOR D-l TO 5 
230 LOCATE9+D*4,9:PRINT"7" 
240 AS-INKEYS ! I FASO "d "ANDAS O™ 
n"ANDA$O"B-ANDAS<>*S"TBEN240 
250 IF AS-"N"ORAS-"n"THENPLAY"0 
3L64CB" :G0TO270 

260 PLAY"06L64CB":TR<C)«T(D) :C= 
C+l 

270 LOCATE0.9:PRINTCL3:NEXTD 
280 IFC-6THENGOSUB340: RETURN 
290 FORD-C TO 5 :TB (D) -INT (RND (- 
TIME)*6)+1:NEXTD 
300 GOSUB340 
310 T-T+l 
320 IFTO4THEN200 
330 FORE«lTO700:NEXT:RETURN 
340 FORD-1T05 ; T (D) -TR (D) :NEXTD: 
RETURN 

70 FORD-1T05:FORG-1T04:LOCATED 
4+8,G+4:PRINTD$(T(D) ,G) i :NEXTG 
,D : BETURN 



VTAB (9) 



190 T = 1: FOR D - 1 TO 5:T(D) 
INT ( RND (1) * 6) + 1 : NEXT 

200 VTAB (T * 2 + 3) : PRINT "J 
OGO ";Ti 

210 GOSUB 970: IF T - 3 THEN 3 
10 

220 C - 1: FOR D - 1 TO 
230 HTAB (9 + D 
: PRINT ■?"; 

240 GET AS: IF AS < > "S" AND 

AS < > "N" THEN 240 
250 IF AS = "N" THEN 270 
260 TR(C) ■ T{D) :C - C + 1 
270 HTAB (9 + D • 4): VTAB (9) 
: PBINT * " ! NEXT D 
280 IF C - 6 THEN GOSUB 340: 
RETURN 

290 FOB D - C TO 5:TB(D) - IN 

T ( BND (1) * -6) + 1 : NEXT 

300 GOSUB 340 

310 T - T + 1 

320 IF T < > 4 THEN 200 

330 FOR E c 1 TO 700: NEXT : R 

ETURN 

340 FOR D = 1 TO 5:T[D) - TR (D 
) : NEXT : RETURN 
970 FOR D = 1 TO 5: HTAB (D * 
4 + 8) : VTAB (6): PRINT DCS(T(D 
) ) ; : NEXT : RETURN 



190 T=l:FORD-lT05:T(D)=INTlRND( 
I -TIME)*6)+1:NEXT 



240 LET T-l: FOR D-l TO 5: LET 
T(D)-INT (RND*6)+1: NEXT D 
250 PRINT AT 6+T*3 , 7 ; ' JOGO ";T 
260 GOSUB 1180 
270 IF T-3 THEN GOTO 390 
280 LET C-l : FOR D-l TO 5 
290 PRINT AT 7+T*3,16+D*2;"?" 
300 FOR J-l TO 50: NEXT J 
310 LET AS-INKEYS: IF AS-"" 
THEN GOTO 310 

320 IF AS-"N" THEN SOUND .1. 



~10: GOTO 360 

330 IF A$<>"S" THEN GOTO 310 
340 SOUND .1.30 
350 LET R(C)-T(D): LET C-C+l 
360 PRINT AT 7+T*3 , 16+D"2 ; " "l 
NEXT D 

370 IF C-6 THEN GOSUB 420: 
LET T-4: GOTO 400 
380 FOR D-C TO 5: LET R(D)"INT 
(RND*6)+1: NEXT D: GOSUB 420 
390 LET T-T+l 
400 IF T<>4 THEN 
410 RETURN 

420 FOR D-l TO 5: LET T (D) -R (D 

) : NEXT D : RETURN 
1180 FOR D-l TO 5: PRINT PAPER 

2; I NK 6: BBIGHT 1;AT 6+T*3.16 
+D»2;CHRS (143+TÍD)): PAUSE 2: 
SOUND .01.RNDM0: NEXT D: RETUR 
N 



GOTO 250 



a 



140 FOR R-l TO 5:F0R 1-1 TO 12: 
FOR N-l TO NP 

150 CLS:W-6:Y-2:GOSUB 980:GOSUB 
190 

160 SOUND 50.3:FOB E-l TO 800:N 
EXT 

170 CLS:GOSUB 350:CL3:NEXT N.I 
180 CLS:GOSUB 990:NEXT R: END 
190 T-l i FOR D-l TO 5:T(D)-RND(6 

200 PRINT ê64*T+64, "LANCE:" ;Ti 
210 GOSUB 970 : IF T-3 THEN 310 
220 C-l: FOR D-l TO 5 
230 PRINT e288,TAB<9+D*4) "7" 
240 AS-INKEYS:IF A$<>"N" AND AS 
<>"S" THEN 240 

250 IF AS-"N" THEN SOUND 10.1:G 
OTO 270 

260 SOUND 100,1:TR(C)-T(D) :C-C+ 
1 

270 NEXT D: PRINT *28B 
280 IF C-6 GOSUB 340: RETURN 
290 FOR D-C TO 5 : TR (D) -RND (6) : N 
EXT D 

300 GOSUB 340 
310 T-T+l 

320 IF T<>4 THEN 200 
330 RETURN 

340 FOR D-l TO 5 :T tD) -TR (D) :NEX 
T D: BETURN 

970 FOR D-l TO 5iFOR G-l TO 4:P 
RINT êl36+G*32+DM.DS£T<D) .G) ; : 
NEXT G, D: RETURN 

9870 PRINT «Y*32+H-((LEN(NS(N)> 
)/2) ,NS(N) : BETURN 

No primeiro lançamento, utilizam-se 
os cinco dados. O resultado é exibido na 
tela por meio da rotina da linha 970 
(1180, no Spectrum). O jogador escolhe 
então quais são os dados "bons" e quais 
são os "ruins", indicando os primeiros 
com um S e os segundos com um N. Ele 
terá mais duas chances de lançar os da- 
dos ruins, devendo teclar S(im) para os 
dados que quer "segurar" e N(ão) para 
os demais. 
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Os números dos cinco dados iniciais 
são armazenados na matriz T( ). Depois 
do primeiro lançamento, os dados que 
"seguramos" são guardados tempora- 
riamente na matriz R( ), que é preenchi- 
da com outros valores randômicos até 
ficar com cinco números. Esses valores 
são levados de volta para a matriz T( ) 
por meio da rotina da linha 340 (420, no 
Spectrum). Os resultados são exibidos 
na tela mais uma vez e o processo se re- 
pete no próximo lançamento. 



A maior parte da rotina dedica-se aos 
cálculos do placar e à verificação de en- 
tradas. 



350 CLS 

360 Y-0:GOSUB980:PRINTSTRINGS<3 
0,205) ;" PLACAR" 

370 PRINT-UNS : "XS"DOIS 

:"XS"TRES :"Xg-Q 

UATROS i-XS-CINCOS : "X 

S"SEIS i" 

380 PRINT"4 IGUAIS. ... :"XS"CASA 

CHEIA. . :"XS"CURTO :"X3"L 

ONGO :"XS"MISTO :"X 

S-YATCH ; -X3 

390 PRINT" TOTAL :" ; 

400 GOSUB4Ó0 

410 G03UB490:C03UB460 

420 LOCATE22.5:PRINT"<au«l(iu«r 

tecla>" 

440 A$«INKEY$:IFAS-""THEN440 




450 RETURN 

460 FORD-lT012:IFP(N,D)-l THENL 
OCATE16 , 1+D : PRINT"X" i 
470 IFO(N,D)OOTHENLOCATE15,1+D 
:PRINT0(N.D) i 

480 NEXTD:C-0:FORD-lTO12:C-C+O( 
N.D) :NEXT:LOCATE15,15:PRINTC; :R 
ETURN 

490 LOCATE2 , 20 : PRINT" TEMPO"R : : L 

OCATE1 , 21 : PRINT" J0GADA"I ; 

500 LOCATE0,17:PRINT"RESULTADO 

510 F0RD-1T05:F0RG-1T04:L0CATE9 
+4"D,15+G:PRINTDS(T(D) ,G) ; : NEXT 
G, D 

520 LOCATE16,20:PRINT"ESCOLHA 0 

GRUPO" : 
530 A-l 

540 LOCATE13,1+A:PRINTCHR$(60) ; 

550 BS-INKEYS:IFBS<>" "ANDBSOC 

HRS ( 30) ANDBSOCHRS (31 ) THEN550 

560 IFBS-" "THEN620 

570 LOCATE13.1+ArPRINT" 

560 IFB3-CHR$(30)ANDA>1THENA-A- 

1 

590 IFBS=CHR$C31)ANDA<12THENA-A 
+1 

600 PLAY"06A" 
610 GOTO540 

620 L0CATE13,1+A:PRINT" ";:IFP( 
N,A)OQTHEN950 
630 IFA>6THEN700 
640 C-0 

650 F0RD-1T05:IFT[D)-A THENC-C+ 
1 

660 NEXTD 
670 O(N.A) -C*A 
680 P(N,A)*1 
690 RETURN 

700 IFA-11THENFORD-1T05:0(N,11) 
-0(N,11)+T<D) :NEXT:P(N,11)-1 :RE 
TUBH 

710 FORD=1T05:D[D)-0:NEXT:B-0:F 
0RE=1T06 : C-0 : FORD-1T05 : IFT (D) -E 

THENC-C+1 
720 NEXTD : IFCO0THENB-B+1 
730 NEXTE 

740 G-1:FORF-1T06:GOSUB1140:IFC 
O0THEND (G) *F : G=G+1 
750 NEXTF 

760 P (N, A) -1 :A»A-6:ONA GOT0770, 

810,830.870,960.890 

770 IFB>2THEN900:IFB=1GOSUB1160 

:0(N,7)=C*4:RETURN 

780 F-l 

790 G0SUB1140:F-F+l:IFCO4ANDF< 

>7THEN790ELSEIFC<4THEN900 

800 0tN,7)-4*{F-l) : RETURN 

810 IFBO2THEN900ELSEF-D (1 ) :GOS 

UB1140 : IFC-3THEN820ELSEF-D(2) :G 

OSUB1140 ! IFCO3THEN900 

820 FORD-1T05:0(N,8)-0(N,8)+T(D 

) : NEXT : RETURN 

830 IFBO4THEN850ELSEG0SUB1160: 

IFCO18ANDCO10ANDCO14 0R(C-14 

ANDD(4)-6)THEN900 

840 0(N,9)-15:RETURN 

850 IFBO5THEN900ELSEG0SUB1160: 

IFCO20ANDCO15ANDCO16ANDCO19 

THEN900 

860 GOTÕ840 

870 IFBO5THEN900ELSEG0SUB1160: 
IFCO20ANDCO15THEN900 



880 O(N,10)-30:RETURN 

890 IFBO1THEN900ELSE0 (N , 12) -50 

: PLAY"GFG" : FORE-1TO700 :NEXT r RET 

URN 

900 PLAY"O3GGG":L0CATE22.5:PRIN 

T"ilegal_ ELIMINA?"; 

910 A$-INKEYS:IFASO"S"ANDAS<>" 

a"ANDA3O"N-ANDA3O"n"THEN910 

920 LOCATE22.5:PRINTSTRINGS(17, 

32) i 

930 IFAS-"N"0RA5-"n"THENP(N.A+6 

)-0:GOT0530 

940 P (N , A+6 ) - 1 : RETURN 

950 PLAY"03CFD-:LOCATE22,5:PRIN 

T-GRUPO OCUPADO" i : FORE»lTO700 :N 

EXT : LOCATE22 , 5 : PRINTSTRINGS (14 , 

32) ; :GOTO530 

960 RETURN 

1140 C-0:FORD-lTO5:IFT(D)-F THE 
NC-C+1 

1150 NEXTD : RETURN 

1160 C-0:FORD-1TOB:C-C+D(D) : NEX 

TD ! RETURN 



350 HOME 

360 Y - 1: GOSUB 980: INVERSE : 
PRINT "»»»>»»»»»»»» 
»> PLACAR <«" 

370 NORMAL ! PRINT : FOR T = 1 
TC 12: PRINT AS (T) : NEXT 

380 PRINT r INVERSE : PRINT *? 

OTAL " : NORMAL 

400 GOSUB 460 

410 GOSUB 490: GOSUB 460 

420 HTAB (22): VTAB (8): PRINT 
"<QUALQUER TECLA>" ; 

440 GET AS: IF AS ■ "" THEN 44 

0 

450 RETURN 

460 FOR D - 1 TO 12: IF P(N,D) 
- 1 THEN HTAB (15): VTAB (3 + 
D) : PRINT "X" ; 

470 IF O(N.D) < > 0 THEN HTA 

B (15): VTAB (3 + D) : PRINT 0 (N 

.D) ; 
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480 NEXT D:C - 0: FOR D - 1 TO 

12:C - C + O(N.D) : NEXT 
485 HTAB (15): VTAB (17): PRIN 
T C: RETURN 

490 VTAB (22): PRINT TAB ( 3): 
*TEMPO";B: PBINT TAB ( l)i"JOGA 
DA ":I 

500 VTAB (19): PRINT "RESULTAD 
O - "j 

510 FOR D - 1 TO 5: VTAB (19): 
HTAB (9 + 4 * D) : PBINT DCS(T( 
D) ) ; : NEXT D 

520 HTAB (16): VTAB (21): PRIN 
T "ESCOLHA O GRUPO": 
530 A - 1 

540 HTAB (13): VTAB (3 + A) : P 
RINT CHRS (60); 

550 OET BS: IF BS < > CHRS ( 
81) AND B3 < > CHBS (90) AND 
B3 < > CHBS 132) THEN 550 
560 IF BS - CHRS (32) THEN 62 

0 

570 HTAB (13): VTAB (3 + A): P 
RINT * "; 

5B0 IF BS - CHBS (81) AND A > 

1 THEN A - A - 1 
590 IF BS - CHRS (90) AND A < 

12 THEN A - A + 1 
600 PBINT CHBS (7) 
610 GOTO 540 

620 HTAB (13): VTAB {3 + A) : P 
BI NT " ";: IF P(N,A) < > 0 THE 
N 950 

630 IF A > 6 THEN 700 
640 C - 0 

650 FOR D - 1 TO 5: IF (T(D) - 

A) THEN C » C + 1 
660 NEXT D 
670 O(N.A) = C * A 
680 P(N.A) ■ 1 
690 RETURN 

700 IF A - 11 THEN FOB D - 1 
TO 5:0<N.ll) - O(N.H) + TÍD): 
NEXT :P(N.ll) - 1: BETURN 
710 FOR D - 1 TO 5:D(D) - 0: N 
EXT :B - 0: FOR E = 1 TO 6:C - 
0: FOB D - 1 TO 5: IF T (D) - E 
THEN C - C + 1 

720 NEXT D: IF C < > 0 THEN B 

- B + 1 
730 NEXT E 

740 O— 1: FOR F ■ 1 TO 6: GOSU 
B 1140: IF C < > 0 THEN D(G) - 

F : G * G + 1 
750 NEXT F ' 

760 P(N,A) - 1:A - A - 6: ON A 
GOTO 770.810,830,870,960,890 
770 IF B > 2, THEN 900: IF B - 
1 GOSUB 1160 ; O(N,7) - C * 4 : RE 
TURN 

7B0 F - 1 

790 GOSUB 1140:F - F + 1: IF C 

< > 4 AND F < > 7 THEN 790 
795 IF C < 4 THEN 900 
800 0(N,7) - 4 * (F - 1) : BETUR 
N 

810 IF B C > 2 THEN 900 

612 F - D(l) : GOSUB 1140: IF C 

= 3 THEN BÍ0 

B14 F - D(2): GOSUB 1140: IF C 

< > 3 THEN 900 
_ 820 FOR D - 1 TO 5:0(N,B) - 0( 
I N.8) + T (D) : NEXT : RETUBN 




830 IF B < > 4 THEN B50 

835 GOSUB 1160: IF C < > 18 A 

ND C < > 10 AND C í > 14 OR ( 

C - 14 AND D(4) = 6) THEN 900 

840 0(N,9) - 15: RETUBN 

B50 IF B < > 5 THEN 900 

855 GOSUB 1160: IF C < > 20 A 

ND C < > 15 AND C < > 16 AND 

C < > 19 THEN 900 

860 GOTO 840 

870 IF B < > 5 THEN 900 

B75 GOSUB 1160: IF C < > 20 A 

ND C < > 15 THEN 900 

B60 O(N.IO) - 30: BETUBN 

890 IF B < > 1 THEN 900 

095 0(N,12) = 50: PBINT CHRS ( 

7): FOB E - 1 TO 700: NEXT : RE 

TURN 

900 PRINT CHRS (7) ; CHBS (7) : 
HTAB (22): VTAB (5): PRINT "ll 
egal. ELIMINA?" ; 

910 GET AS: IF AS < > "8" AND 

AS < > "N" THEN 910 
920 HTAB (22): VTAB (5): PRINT 

OLtl 

930 IF AS - "N" THEN P(N,A + 6 
) - 0: GOTO 53*0 
940 P(N.A + 6) "1: RETURN 
950 PRINT CHRS (7); CHRS (7): 
HTAB (22) : VTAB (5) : PRINT "GR 
UPO OCUPADO";: FOR E - 1 TO 700 
! NEXT 

955 HTAB (22) : VTAB (5) : PRINT 

CL3 ; : GOTO 530 
960 BETURN 

1140 C - 0: FOB D = 1 TO 5 : IF 

T (D) - F THEN C - C + 1 

1150 NEXT D: BETUBN 

1160 C = 0: FOR D ■ 1 TO B:C = 

C + D (D): NEXT D: RETURN 



"440 PLOT 4,4: DRAW 0,167: DRAW" 
124,0: DRAW 0,-167: DRAW -124, 
0 

450 PRINT INK 5;AT l t 5;H$(N); 

INK 4;AT 2.1;"** PLACAR **" 

460 BESTORE 1280: FOB M-4 TO 

17: READ AS: PBINT AT M,1;AS; 

QS( TO 11-LEN AS);: IF M<>16 

THEN PBINT " : " 

470 NEXT M 

460 GOSUB 530 

490 GOSUB 560: GOSUB 530 

500 PRINT FLASH 1 ;AT 20,18; "Q 

UAL OU ER TECLA" i AT 21,1B;"P/ CO 

NT I NU AR " 

510 LET AS-INKEYS: IF AS-"" 
THEN GOTO 510 
520 RETURN 

530 FOR D-l TO 12: IF P(N,D)-1 

THEN PRINT AT 3+D,13;"X" 

540 IF O(N,D)<>0 THEN PRINT 

AT 3+D,13;0(N,D) 

550 NEXT D: LET C-0 : FOB D-l 

TO 12: LET C-C+0{N.D): NEXT D: 

PRINT AT 17,13;C: BETUBN 

560 PRINT AT 8.18;"TEMP0 ";R; 

AT 9.18;"SECAO ";I 

570 PRINT AT 2,18; "RESULTADO- 

" ■ LET T--1: GOSUB 1180 

5B0 PRINT AT 5,16; "ESCOLHA O G 

RUPO" 

590 LET A-4 

600 PRINT AT A,15;CHRS 150 
610 LET BS-INKEYS: IF BS-"" 
THEN GOTO 610 

620 IF BS-" " THEN LET A-A-3: 
GOTO 710 

630 IF BS="K" THEN GOTO 650 
640 IF BSO"M" THEN GOTO 610 
650 PBINT AT A. 15;" " 
660 IF BS="K" AND A=4 THEN 
GOTO 600 

670 IF B$="M" AND A-15 THEN 
GOTO 600 

660 IF BS-"M" THEN LET A-A+l 
690 IF BS-"K" THEN LET A-A-l 
700 SOUND .01,5: GOTO 600 
710 PRINT AT A+3.15;" ": IF Pt 
N,A)O0 THEN GOTO 1240 
720 IF A>6 THEN GOTO 780 
730 LET C-0 

740 FOR D-l TO 5: IF T(D)-A 

THEN LET C-C+l 

750 NEXT D 

760 LET 0(N.A)-C*A 

770 LET P(N,A)-1: RETURN 

7BO IF A-ll THEN FOR D-l TO 5 

: LET O (N , 11) -O (N , 11) +T (D) : 

NEXT D: LET P(N,11)-1: RETURN 

790 FOR D-l TO 5: LET D(D)-0: 

NEXT D: LET B-0 : FOR E-l TO 6: 

LET C-O: FOR D-l TO 5 : IF TÍD) 

-E THEN LET C-C+l 

600 NEXT D: IF COO THEN LET 

B-B+l 

810 NEXT E 

820 LET O-l: FOR F-l TO 6: 
GOSUB 1250: IF COO THEN LET 
D(G)-F: LET G-G+l 
830 NEXT F 

840 LET P(N.A)-1: IF A-7 THEN 
GOTO 950 

650 IF A-8 THEN GOTO 1010 
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860 IF A-9 THEN GOTO 1050 
870 IF A-10 THEN GOTO 1120 
B90 IF A-12 THEN GOTO 1160 
950 IF B>2 THEN GOTO 1190 
960 IF B-l THEN GOSUB 1270: 
LET 0(N,7)-C: RETURN 
970 LET F-l 

980 GOSUB 1250: LET F-F+l : I. 
C04 AND F<>7 THEN GOTO 980 
990 IF C<4 THEN GOTO 1190 
1000 LET O (N, 7) -4* (F-l ) : RETUBN 

1010 IF B<>2 THEN GOTO 1190 
1020 LET F-D(l) : GOSUB 1250: IF 

C-3 THEN GOTO 1040 
1030 LET F-D(2) : GOSUB 1250: IF 

C<>3 THEN GOTO 1190 
1040 LET O(N,8)-0: FOR G-l TO 5 
: LET 0(N,B)-0(N.8)+T<G) : NEXT 
G: RETURN 

1050 IF B<>4 THEN GOTO 1080 
1060 GOSUB 1270: IF COIS AND C 
<>10 AND C<>14 OR (C-14 AND D(4 
)-6) THEN GOTO 1190 
1070 LET 0(N,9)-15: RETURN 
1080 IF B<>5 THEN GOTO 1190 
1090 GOSUB 1270: IF C-15 OR C-l 
6 OR C-19 THEN GOTO 1070 
1100 IF CO20 THEN GOTO 1190 
1110 GOTO 1070 

1120 IF B<>5 THEN GOTO 1190 
1130 GOSUB 1270: IF C-15 OR C-2 
0 THEN GOTO 1150 
1140 GOTO 1190 
1150 LET O(N,10)-30: RETURN 
1160 IF BOI THEN GOTO 1190 
1170 LET 0(N, 121-50: RETURN 
1190 SOUND .5,5: PRINT AT 20, 1B 
; "ILEGAL !";AT 21 , 1B ; "ELIMINA ? 

1200 LET AS-INKEYS: IF AS-"" TH 
EN GOTO 1200 

1210 IF AS-"N" THEN PRINT AT 2 
0.18;" " i AT 21,18;" 

": LET P(N,A)-0: GOTO 590 
1220 IF AS<>"S" THEN GOTO 1200 
1230 LET P(N.A)=1: RETURN 
1240 SOUND .5,5: PRINT AT 20,18 
; "GRUPO OCUPADO": FOR H-l TO 30 
0: NEXT H: PRINT AT 20,18;" 

' : GOTO 590 
1250 LET C-0: FOR D-l TO 5 : IF 
T(D)-F THEN LET C-C+l 
1260 NEXT D: RETURN 
1270 LET C-O: FOR D-l TO B: LET 

C-C+D{D): NEXT D: RETURN 
1280 DATA "UNS" , "DOIS" , "TRES" , " 
QUATROS* . "CINCOS" , "SEIS" , "IGUAI 
S","CASA CHEIA" , "CURTO" , "LONGO" 
, "MISTO" , "YATCH" , " " , 

"TOTAL" 




350 CLS 

360 W-6:Y-0:GOSUB 980 : PRINT"*** 
*SCORE****" 

370 PRINT"UNS : "XS"DOIS 

:"XSTRES :"XS"Q 

UATROS : "XS" CINCOS : "X 

S"SEIS 



380 PRINT"4 OF A KIND. : "XS"FULL 
HOUESE. . ,"XS"SHORT RUN...:"XS" 
LONG RUN . . . . : " XS " SHORT RUN . . . : " 

X$"LONG RUN :"X$"CHOICE 

. : "X$"YATCH : "XS 

390 PRINT "TOTAL :" ; 

400 GOSUB 460 

410 GOSUB 490: GOSUB 460 

420 PRINT §466, "qualquer tecla" 

;:PRINT «498, "para continuar"; 

430 SOUND 60.1 

440 AS-INKEY$:IF AS-"" THEN 440 
450 RETURN 

460 FOR D-l TO 12:IF P(N,D)-1 T 
HEN PRINT §45+D*32,"X"; 
470 IF OfN.DlOO THEN PRINT §45 
+D*32,0(N,D) ; 

480 NEXT D:C-0:FOR D-l TO 12:C- 
C+OÍN.D) :NEXT:PRINT §493.C;:RET 
URN 

490 PRINT §53 , "ROUND"R ,- : PRINT § 
84,-SECAO'I; 

500 PRINT §115 . "GRUPO FINAL-* ; 
510 FOR D-l TO 5:FOH G-l TO 4:P 
RI NT §111+G*32-(D>3)*118+4*D,DS 
<T(D) ,G) ; : NEXT G.D 
520 PRINT §403."SELECT GROUP"; 
530 A-l 

540 PRINT €49+32*A,CHRS (95) ; 

550 B$-INKEYS:IF BSO" " AND BS 

<>""" AND BSOCHR$(10) THEN 550 

560 IF BS-" " THEN 620 

570 PRINT §49+32*A," "; 

580 IF BS-""" AND A>1 THEN A-A- 

1 

590 IF B$-CHRSU0) AND A<12 THE 
N A-A+l 

600 SOUND 200,1 
610 GOTO 540 

620 PRINT §49+32*A," " ; : IF P(N, 

A1O0 THEN 950 

630 IF A>6 THEN 700 

640 C-0 

650 FOR D-l TO 5:IF T (D) -A THEN 
C-C+l 



660 NEXTD 
670 0(N,A)-C»A 
680 P(N,A)-1 
690 RETURN 

700 IF* A-ll THEN FOR D-l TO 5:0 
(N.ll)-OCN,ll)+T(D) :NEXT:P(N,11 
)-l: RETURN 

710 FOR D-l TO 5:D(D)-0:NEXT:B- 
0:FOR E-l TO 6:C-0:FOR D-l TO 5 
:IF T(D)-E THEN C-C+l 
720 NEXT D:IF COO THEN B-fl+1 
730 NEXT E 

740 G-l: FOR F-l TO 6:GOSUB 1140 
:IF COO THEN D(G)-F:G-G+1 
750 NEXT F 

760 P{N,A)-l:A-A-6:ON A GOTO 77 

0,810,830,870,960,890 

770 IF B>2 THEN 900 ELSE IF B-l 

GOSUB 1160:O(N,7)-C*4:RETURN 
7B0 F-l 

790 GOSUB 1140 : F-F+l : IF C<>4 AN 
D F<>7 THEN 790 ELSE IF C<4 THE 
N 900 

800 O (N, 7) -4* (F _ l ) :RETURN 
810 IF B<>2 THEN 900 ELSE F-D(l 
) : GOSUB 1140:IF C-3 THEN 820 EL 
SE F-D(2):GOSUB 1140:IF C03 TH 
EN 900 

820 FOR D-l TO 5 : O {N. 8 ) -O (N. 8) + 
T(D) : NEXT: RETURN 

830 IF B<>4 THEN 850 ELSE GOSUB 
1160 :IF C018 AND CO10 AND C< 
>14 OR (C-14 AND D{4)-6) THEN 9 
00 

840 0(N,9)-15:RETURN 
850 IF B<>5 THEN 900 ELSE GOSUB 
1160 :IF CO20 AND COIS AND C< 
>16 AND C019 THEN 900 
860 GOTO 840 

670 IF B<>5 THEN 900 ELSE GOSUB 
1160: IF CO20 AND C015 THEN 9 
00 

880 O(N,10)-30:RETURN 
890 IF SOI THEN 900 ELSE OfN.l 
2)-50:SOUND 5,8: FOR E-l TO 700- 
NEXT E: RETURN 

900 SOUND 20,1:PRINT §432,"lleg 
al. PERDE?" ; 

910 A$-INKEY$:IF AS<>"S" AND AS 
<>"N" THEN 910 
920 PRINT §432," 

930 IF AS-"N" THEN P(N,A+6)-0:G 
OTO 530 

940 P{N.A+6)-l:RETURN 
950 SOUND 5,1:PRINT «433,"SECAO 
PREENCHIDA"; : FOR E-l TO 700:NE 
XT:PRINT $433," 
" ; :GOTO 530 
960 RETURN 

1140 C-0:FOR D-l TO 5:IF T(D)-F 

THEN C-C+l 
1150 NEXT D: RETURN 
1160 C-0:FOR D-l TO B:C-C+D(D): 
NEXT D: RETURN 



IMPRESSÃO DO ESQUELETO 



A primeira seção dessa rotina — que 
vai até a linha 520 no Spectrum e linha 
450 nos outros micros — mostra na te- I 
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PROGRAMAÇÃO DE JOGOS 



la o esqueleto do placar (nomes dos gru- 
pos e do jogador) e chama duas outras 
rotinas para preencher os grupos e re- 
ceber a última entrada. 

A rotina constituída pelas três linhas 
seguintes preenche o esqueleto com o 
placar anterior e fornece a soma dos to- 
tais. Depois dela encontra-se uma roti- 
na maior, incumbida de receber e ana- 
lisar as entradas. 

As primeiras linhas dessa rotina apre- 
sentam na tela informações sobre o nú- 
mero da partida e da jogada e, o que é 
mais importante, mostram a combina- 
ção final obtida. As linhas seguintes, 
além de identificar a tecla que está sen- 
do pressionada, movem o cursor para 
cima e para baixo no esqueleto. Para a 
movimentação do cursor, o Spectrum 
usa as teclas M e K; o MSX e o TRS- 
Color, as setas, e o Apple e o TK-2000. 
as teclas QeZ. 

Quando se pressiona a barra de es- 
paço, o programa interpreta que o gru- 
po apontado pelo cursor foi escolhido. 
A posição do cursor é armazenada na 
variável A, onde A= 1 corresponde á 
posição do grupo dos UM, A = 2 equi- 
vale à posição do grupo dos DOIS e as- 
sim por diante até A = 11. que corres- 
ponde à posição do YATCH. O valor 
de A é usado pelo restante da rotina pa- 
ra calcular a pontuação do placar. 

Uma outra variável importante é a 
variável B, que contém o número de da- 
dos diferentes entre si: B = 2 (dois tipos 
de valores), por exemplo, representaria 
uma FULL HOUSE e B = 5 (cinco tipos 
de valores), um LONGO. 

Portanto, dependendo do valor de A, 
rotinas diferentes são chamadas para ve- 
rificar se a combinação dos dados real- 
mente corresponde ao grupo escolhido. 
Se corresponder, o placar é calculado e 
apresentado na tela. Caso contrário, a 
mensagem "ILEGAL" é exibida. O jo- 
gador decide, então — com um S ou um 
N — , se o grupo deve ser eliminado. O 
computador verifica também quais gru- 
pos já foram usados. 



Esta última seção simplesmente apre- 
senta na tela o placar final, com os pon- 
tos dos jogadores em cada partida. O 
número da partida é exibido no topo do 
placar final e os nomes dos jogadores 
mais abaixo, à esquerda. 



1000 LOCATEO,4:FORD-1TONP:PRINT 
NS (D) : NEXT 
1020 FORD-1TONP 

1030 C-0:FORE-1T012:C-C+0(D.E) : 

NEXT : S {D , R) -C : NEXTD 

1040 FORD-1T05:LOCATE3+D*4.2:PR 

INTD; :NEXT 

1050 PR I NT * TOTAL" 

1060 FORD-1TONP 

1070 FORE=1TOR 

1080 LOCATE3+E*4.3+D:PRINTS(D,E 
) | : NEXTE , D 

1090 FORD-1TONP:C-0:FORE-1TOR:C 
-C+S(D.E) :NEXTE:LOCATE26,3+D:PR 
INTC; : NEXTD 

1100 LOCATE2 , 19: PR1NT"< qualque 
r tecla para outra rodada >" 
1110 AS-INKEYS:IFAS-""THEN1110 
1120 F0RE-1T0NP:F0RD=1T012:0(E, 
D)-0rP(E,D)-0:NEXTD.E 
1130 RETURN 



ff] Eu 



990 HOME i INUERSE : PR TNT "» 
»»>»» PLACAR FINAL ««« 
<««": NORMAL 

1000 VTAB (5) : FOR D = 1 TO NP 
: PRINT LEFT3 (NS(D),10): NEXT 

1020 FOR D = 1 TO NP 

1030 C - 0: FOR E - 1 TO 12:C = 

C + OÍD.E): NEXT :S(D,R) - C: 
NEXT D 

1040 FOR D - 1 TO 5: HTAB (9 ' 

D * 4) : VTAB (3): PRINT D; 
XT 



1050 
1060 
1070 



PRINT 
FOR D ■ 
FOR E ' 
HTAB (9 
PRINT ! 



TOTAL" 
1 TO NP 
1 TO R 

.) : VTAB (4 
(D.E) : : NEXT E.D 
1090 FOR D - 1 TO NP:C - 0: FO 
R E - 1 TO R:C - C + S(D,E) : NE 
XT E: HTAB (33): VTAB (4 + D) : 
PRINT C: : NEXT D 

1100 HTAB (2): VTAB (22): PRIN 
T "< QUALQUER TECLA PARA OUTRA 
RODADA >" ; 

1110 GET AS: IF AS - THEN 1 
110 

1120 FOR E - 1 TO NP: FOR D - 
1 TO 12:OCE,D) - 0:P(E.D) = 0: 
NEXT D.E 
1130 RETURN 



PAPER 7: INK 3: 



*******«PLACAF FI 



1290 BORDER 7 
CLS 

1300 PRINT "*■ 
NAL*********"" 

1310 PRINT AT 7,0: FOR D-l TO N 
P: PRINT NS(D); - :"': NEXT D 
1320 PRINT INK 1;AT 3.0;"JOGAD 
OR"; INK 2;AT 3,13;-T EMPO" 
1330 PRINT AT 5.12:: FOR D-l TO 
5: PRINT INK 2 : TAB (4+D*4);D; 
: NEXT D: PRINT INK 0;" TOTE 



lllllllll 




ní; 



T C-C+OtD.E): NEXT E: LET S(D.R 
) =C: NEXT D 

1370'FOR D-l TO NP: FOR E-l TO 
R 

1380 PRINT INK 4 ;AT 6+D*2.4+E* 

4;S(D,E) : NEXT E: NEXT D 

1390 FOR D-l TO NP: LET C-0 : FO 

R E-l TO R: LET C=C+S(D,E): NEX 

T E : PRINT AT 6+D*2.28;C: NEXT 

D 

1400 PRINT II; INVERSE 1: INK 0 
;- QUALQUER TECLA PARA CONTINUA 



IF AS = 



1410 LET A$=INKEYS 
EN GOTO 1410 

1420 FOR E-l TO NP: FOR D-l TO 
12: LET 0{E,D)-0: LET P(E.D)=0 

NEXT D: NEXT E 
1430 RETURN 



TH 



990 CLS : PRINT" *****TABELA DE PO 
NTOS*****" 

1000 PRINT «128:FOR D-l TO NP:P 

RINT NS(D) :NEXT 

1010 PRINT 675, "R O U N D" 

1020 FOR D-l TO NP 

1030 C-0:FOR E-l TO 12:C-C+0(D, 

E) :NEXT : S (D. P) - T : NEXT D 

1040 FOR D-l TO 5: PRINT 698+D*4 

. D ; : NEXT 

1050 PRINT" TOTAL" 

1060 FOR. D-l TO NP 

1070 FOR E-l TO R 

1080 PRINT êl29+D*32+E*4 . S (D.E) 

; :NEXT E.D 

1090 FOR D-l TO NP:C-0:FOR E-l 

TO R : C-C+S (D, E) : NEXT E : PRINT 61 

53+D*32,C; :NEXT D 

1100 PRINT 6448," QUALQUER TEC 

LA PARA PEOXIMA JOGADA."; 

1110 AS-INKEYS:TF AS="" THEN 11 

10 

1120 FOR E-l TO NP:F0R D-l TO 1 
2:O(E,D)-0:PIE.D)-0:NEXT D,E 
1130 RETURN 
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AVALANCHE: 

AS COBRAS VIVEM! 



nível do jogo 



0 ATRASO DAS COBRAS 



MOVIMENTO DAS LÍNGUAS 



A COBRA ESTA SUBMERSA? 




As cobras ainda não constituem ameaça: 
podem ser vistas dentro dos buracos, 
mas estão sempre quietas. Agora vamos 
dar-lhes movimento, complicando 
um pouco mais a vida do pobre Willie. 



Nossa aventura está bem movimen- 
tada: Willie anda e salta, as pedras ro- 



lam, os pássaros voam. As cobras, po- 
rém, permanecem totalmente imóveis 
em seus buracos. Está na hora de lhes 
dar um pouco de vida. 



A rotina a seguir atiça as cobras, 
fazendo-as sair de sua inatividade. 



10 Et EM org 59823 



20 BEM ank 1 
30 REM cp 2 
40 REM jr nc 
50 REM ret 
60 REM ako 1 
70 REM ld hl 
80 REM call 
90 REM ld hl 

100 REM call 

110 REM ld hl 

120 REM 

130 REM 



,425 
, 369 

282 
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CÓDIGO DE MAQUINA 
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140 REM a km puah hl 
150 BEM ld de, (57354) 
160 BEM abe hl.de 
170 BEM pop hl 
190 BEM jr c.ana 
190 BEM ret 

200 BEM ana ld a, (ix+0) 

210 BEM inc a 

220 BEM rea 4, a 

230 BEM ld Ux+0) ,a 

240 BEM InC lx 

250 BEM cp 7 

260 BEM Jr ncaco 

270 REM ret 

280 BEM aco ld bc, 57224 
290 REM ld d. 43 
300 BEM cp 15 
310 BEM jr nz.ste 
320 REM ld bc 15616 
330 BEM ld d. 45 
340 BEM ate ld a, d 
350 BEM call 58217 
360 BEM ret 

A primeira tarefa da rotina consiste 
em verificar se as cobras devem entrar 
em açào. Para isso, o valor do nível do 
jogo, armazenado em 57344, é carrega- 
do no acumulador e comparado com 2 
Essa comparação é feita por mei 
uma subtração cujo resultado não arma 
zenamos. Se compararmos 2 com um 
número menor, teremos um resto. A ' 
liza carry será então ajustada com 
o processador retornará, porque as co 
bras não são necessárias. 

Se a baliza carry não foi ajustada, a 
instrução jr nc.sko pula a instrução rei. 
Você estará no terceiro ou quarto nível 
do jogo (valor 2 ou 3) e as cobras de- 
vem ser atiçadas. 



AS COBRAS AMEAÇAM 



A posição de memória 57350 carre- 
ga o primeiro dos atrasos das cobras, 
que indicam quando elas devem mexer 
a língua. IX é carregado com esse ende- 
reço, e HL, com 425, a posição da pri- 
meira língua de cobra. A rotina skm, 
que executa o movimento, é chamada. 

A posição da língua da próxima co- 
bra é carregada em HL, e skm volta a ser 
chamada. Em seguida, a posição da lín- 
gua da terceira cobra é carregada em HL 
e skm é chamada mais uma vez. 

Quando todas as línguas estiverem se 
mexendo, a rotina retorna. 



Quando a rotina skm é chamada, as 
posições das línguas são colocadas na pi- 
lha para armazenamento temporário. A 
posição do mar em 57354 é colocada no 
I par DE. Neste ponto do programa, pre- 



cisamos verificar a altura da maré. Se 
a cobra estiver submersa, a parte da ro- 
tina que movimenta sua língua pode ser 
pulada. 

A seguir, a posição do mar no par 
DE é subtraída da posição da língua em 
HL. Se não houver resto, a posição do 
mar se encontra acima da posição da 
língua da cobra na tela. Nesse caso, a 
instrução jr c.sns não tem efeito e o pro- 
cessador retorna. Mas, se houver resto, 
ou seja, se a posição do mar estiver abai- 
xo da posição da língua na tela, a ins- 
trução jr c,sns faz com que o proces- 
sador salte a instrução rei e continue 
a rotina. 



ESTÁ NA HORA DE MEXEU? 



O atraso da cobra é carregado da po- 
sição apontada por IX para o acumula- 
dor, onde é incrementado. O bit 4 é apa- 
gado para evitar que o atraso se torne 
maior que 15. O resultado dessa opera- 
ção é armazenado de volta na posição 
indicada por IX. Esse apontador é en- 
tão incrementado para indicar o atraso 
da cobra seguinte. Seu valor é compa- 
rado com o conteúdo do acumulador 
pela instrução cp 7. Se o atraso dessa co- 
bra for maior ou igual a 7, jr 
manda o processador para a rotina que 
imprime a língua. Se o valor for menor 
que 7, a baliza carry é ajustada com 1, 
a instrução não tem efeito e o processa- 
dor retorna. 

Cada vez que essa rotina é chamada, 
um atraso diferente da cobra é encon- 
trado nos endereços 57350, 57351 e 
57352, pois o apontador IX é incremen- 
tado entre cada chamada que se faz à 
rotina skm. A língua da cobra fica para 
fora oito ciclos, e não aparece nos oito 
ciclos seguintes. 



Chegamos, finalmente, à rotina en- 
carregada de imprimir ou apagar a lín- 
gua da cobra na tela. O par de registros 
BC é carregado com 57224, os dados pa- 
ra a língua da cobra. D é ajustado com 
43, a cor da figura. O atraso da cobra 
em A é comparado com 15. 

Se o atraso não tiver chegado a 15, 
a instrução jr nz leva o processador pa- 
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ra sle. Se for igual a esse valor, você pre- 
cisará apagar a língua, para que ela não 
apareça nos próximos oito ciclos. BC é 
carregado com 15616, o endereço dos 
dados de um espaço vazio, e o registro 
D é carregado com 45, o código da cor 
do céu. 

Qualquer que seja o valor do atraso 
da cobra (neste ponto da rotina, ele é 
sempre maior do que sete), o processa- 
dor encontra a instrução ld a, d. Depois 
que ela carrega a cor apropriada em A, 



a rotina prinl, em 58217, é chamada. 
Com isso, imprimimos a língua — ou 
apagamos a que existia — para fora da 
boca de uma das cobras. A seguir, o 
processador retorna. 



Esta rotina movimenta as cobras, 
acrescentando ação ao jogo. 



10 ORG 20856 



SNK LDA 18238 
CMPA 12 
BUS SKO 
RTS 

SKO LDY #18255 
LDX 15095 
■JSR S KM 
LDX 14591 

JSR SKM 

LDX (3833 

JSR SKM 

RTS 

SKM PSHS X 
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PROGRAMAS LONGOS: MELHORE 
A VELOCIDADE DE MONTAGEM 

Como o leitor deve ter notado, apre- 
sentamos o programa Avalanche em 
pequenos segmentos funcionais, que 
podem ser testados separadamente. 
Essa técnica de construção de progra 
mas, chamada de desenvolvimenti 
modular, é muito útil para qualquer ti 
po de programa, pois agiliza o proces 
so de montagem e facilita enormemen 
te os testes de execução. Para a pro 
gramação complexa em linguagem de 
máquina, o uso dessa técnica é e; 
ciai, devido á dificuldade de se doeu 
mentsr internamente — isto é, na pro 
pria listagem do programa — o código 
em Assembler. 

Os profissionais que criam os sofis- 
ticados videogames que vemos em fli- 
peramas, por exemplo, dominam per- 
feitamente a técnica de modularização. 
Na realidade, eles dispõem de progra- 
mas Assembler poderosíssimos, capa- 
zes de representar uma biblioteca de 
rotinas e ferramentas de programação 
que facilitam muito a implementação 
dos recursos normalmente usados em 
videogames. 

Infelizmente, os Assembler que IN- 
Pt/7" apresentou para os diferentes mi- 
cros são muito lentos. Se você quiser 
melhorar a velocidade de montagem, 
divida um programa mais longo em 
segmentos menores e compile-os se- 
paradamente. Não se esqueça, porém, 
de calcular o endereço de origem para 
cada segmento e incluf-lo em um co- 
mando org ou equivalente, no começo 
de cada segmento. 



220 
230 
240 
250 
260 
270 
290 
290 
300 
310 
320 
330 



LDX 18247 
LEAX 31.X 
CMPX ,S 
PULS X 
BHI 3NS 
RTS 

SNS LOA ,Y 
INCA 

ANDA t$F 
STA ,Y+ 
CMPA *7 
BHS SCO 
RTS 

SCO LDU I1B062 

CMPA 115 

BNE STE 

LDU 11536 

STE LEAX -256.X 

JSR CHARPR 

RTS 

CHARPR EQU 19402 



A primeira tarefa da rotina é verifi- 
car se as cobras devem entrar em ação. 
Para isso, o valor do nível do jogo, ar- 
mazenado em 18238, é carregado no 
acumulador e comparado com 2. 

Se você está no nível três ou quatro 
— ou seja, se o valor é 2 ou 3 — , as co- 
bras serão necessárias. Nesse caso, a ins- 
trução BHS faz o processador pular o 
RTS. seguindo a rotina. 



AS COBRAS AMEAÇAM 



Y é carregado com o endereço do 
atraso da primeira cobra. Esta é a va- 
riável incumbida de interromper ou co- 
meçar o seu movimento. Os atrasos da 
segunda e da terceira cobras estão logo 
em seguida na memória. 

X é carregado com 5095, a posição 
na tela do primeiro buraco, e o proces- 
sador vai para a rotina SKM. 

Essa rotina atiça a primeira cobra e 
incrementa o conteúdo de Y antes de re- 
tornar. Assim, quando o processador 
salta para fazer com que a segunda e a 
terceira cobras se movimentem, apenas 
as posições do segundo e do terceiro bu- 
racos precisam ser carregadas em X. Y 
é incrementado automaticamente, apon- 
tando os atrasos das três cobras. Quan- 
do tiver passado por todas elas, o pro- 
cessador retorna. 



A primeira coisa que o processador 
faz ao entrar na rotina SKM é colocar 
na pilha, para armazenamento tempo- 
rário, a posição da cobra na tela. 

O registrador X é carregado com o 
conteúdo de 18247, a posição do mar. 
Esse valor é somado com 31, para que 
o apontador de tela se mova para o can- 
to direito da tela. X é então comparado 
com a posição do buraco da cobra, que 
está na pilha de máquina, através da ins- 
trução CMPX ,S. A posição da cobra 
é recuperada da pilha, voltando para o 
registrador X. 

Como isso não afeta nenhuma das 
balizas, a instrução BHI ainda se refere 
à operação CMPX ,S. Assim, se o mar 
está acima do buraco — ou seja, se a po- 
sição do mar na tela não é maior do que 
a posição do buraco que estava na pi- 
lha — , o salto não ocorre, e o processa- 
dor retorna. 

Caso o mar não tenha encoberto" o 
buraco — isto é, se a posição do mar na 
tela é maior do que a posição do bura- 
co — , o processador pula a instrução 
RTS, e dá continuidade à rotina que ati- 
ça as cobras. 



MEXER OU NÃO MEXER 



A é carregado com o conteúdo do 
atraso da cobra que está apontado no 
registrador Y. Esse valor é então incre- 
mentado e a operação AND é feita com 
$F, para ajustá-lo com 0 toda vez que 
ultrapassar o valor 15. 

O resultado é armazenado de volta 
no endereço apontado por Y. Esse re- 
gistrador é então incrementado para 
apontar o atraso da próxima cobra. 

O atraso da cobra que ainda está em 
A é comparado com 7. Se for maior ou 
igual, o processador vai para a rotina de 
impressão da língua; caso contrário, o 
processador retorna. 



Ao entrar na rotina SCO, o proces- 
sador carrega o apontador da pilha do 
usuário com 18062, o endereço dos da- 
dos para a língua da cobra. 

A — que ainda contém o atraso da 
cobra que foi incrementado — é com- 
parado com 15. Se ele não foi incremen- 
tado até esse valor, o processador pula 
para as instruções de impressão. Mas, 
se já chegou a 15, U é carregado com 
1536, o endereço da parte de céu no can- 
to superior esquerdo da tela. 

Seguindo adiante, X é subtraído de 
256, fazendo o apontador de tela se mo- 
ver um caractere para cima do buraco 
da cobra. Esta é a posição da língua. 

Se o atraso da cobra estiver entre 7 
e 14, a rotina CHARPR imprimirá a lín- 
gua nessa posição ao ser chamada. Mas, 
se o atraso tiver atingido o valor 15, a 
língua será apagada. 

A língua permanecerá invisível, isto 
e, não será impressa, até que o atraso 
chegue novamente a 7. 



A rotina apresentada a seguir atiça as 
cobras que até agora permaneciam quie- 
tas em seus buracos. 

10 org 55564 
20 ld a, (-5228) 
30 cp 2 
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sbc hl , de 



1 70 
180 
190 
200 

210 
220 



280 ac Id de, (62407) 

290 add hl . de 

300 cp 15 

310 ld b,36 

320 ir nz.st 

330 ld b,255 

340 st ld a,b 

350 call 77 

360 ret 

370 end 

A primeira tarefa da rotina consiste 
em verificar se as cobras devem entrar 
em ação no nível atual do jogo. Para is- 
so, o valor do nível, -5228, é carrega- 
do no acumulador e comparado com 2. 
Se você está no terceiro ou no quarto ní- 
vel — ou seja, se o valor é 2 ou 3 — as 
cobras estão nos buracos e devemos 
atiçá-las. 

A comparação é feita por meio de 
uma subtração cujo resultado não arma- 
zenamos. Se compararmos 2 com um 
número menor, teremos um resto e a ba- 
liza carry passará a conter 1 . Nesse ca- 
so, o processador retornará, porque as 
cobras não são necessárias. 

Caso a baliza carry não tenha sido 
afetada, a instrução jr nc.sk pula a ins- 
trução ret, porque as cobras estão pre- 
sentes neste nível. 



AS COBRAS AMEAÇAM 



O endereço de memória — 5198 con- 
tém o primeiro dos chamados atrasos 
das cobras, que indicam quando elas de- 
vem mostrar sua língua. O par BC é car- 
regado com esse endereço, e HL, com 
425, a posição da língua da primeira co- 
bra. A rotina sm, encarregada de pro- 
mover o movimento, é chamada. 

A posição da língua da próxima co- 
bra é carregada em HL, e sm volta a ser 
chamada. Em seguida, a posição da lín- 
gua da terceira cobra é carregada em 
HL, e sm é chamada mais uma vez. 

Depois de movimentar todas as lín- 
guas, a rotina retorna. 



Quando a rotina sm é chamada, a po- 
sição da língua que está em HL é colo- 




cada na pilha para armazenamento tem- 
porário. A posição do mar em —5212 
é colocada no par DE. Neste ponto do 
programa, precisamos verificar se a co- 
bra se afogou com a subida da maré. 
Em caso afirmativo, ela não precisa me- 
xer a língua — assim, a parte da rotina 
que faz isso pode ser pulada. 

Para essa verificação, a posição do 
mar no par DE é subtraída da posição 
da língua em HL. Se não houver resto 
— ou seja, se a posição do mar estiver 
acima da posição da língua da cobra 
na tela — , a instrução jr c,sn não tem 
efeito e o processador retorna. Mas, se 
houver resto, a posição do mar está 
abaixo da posição da língua na tela. A 
instrução jr c.sn faz, então, o proces- 
sador saltar a instrução ret e continuar 
a rotina. 



ESTA NA HORA DE MEXER? 



O atraso da cobra é carregado da po- 
sição apontada por BC para o acumu- 
lador, onde é incrementado. O bit 4 
também é incrementado para evitar que 
oatraso se torne maior que 15. O resul- 
tado dessa operação é armazenada de 
volta na posição apontada por BC. 

O par de registros BC é incrementa- 
do para apontar o atraso da cobra se- 
guinte. A instrução cp 7 compara esse 
valor com o conteúdo do acumulador, 
e a instrução jr nc.sc manda o proces- 
sador para a rotina que imprime a lín- 
gua, se o atraso da cobra for maior ou 
igual a 7. Caso o valor seja inferior a 
7, a baliza é ajustada com 1, a instru 
ção de desvio não tem efeito e o proces- 
sador retorna. 



Ao ser chamada, essa rotina sempre 
encontra um atraso diferente nos ende 
reços -5198, -5199 e -5220, já que 
o apontador BC é incrementado entre 
cada acesso a sm. A língua da cobra fi- 
ca para fora oito ciclos, não aparecen- 
do nos oito seguintes. 



Chegamos, finalmente, à rotina que 
imprime ou apaga a língua da cobra na 
tela. O endereço inicial da Tabela de No- 
mes da VRAM é carregado em DE e so- 
mado a HL, que contém a posição da 
língua. Esse par de registros passa en- 
tão a conter o endereço correspondente 
à posição da língua na TN. 

O atraso da cobra que ainda eslá no 
acumulador é comparado com 15. O re- 
gistro B é carregado com 36, o código 
do padrão da língua. Se o valor do atra- 
so não for 15, a instrução jr nz.sl leva 
o processador para st, pulando a instru- 
ção ld b,255. Caso contrário, a língua 
deve ser apagada para que não apareça 
nos próximos oito ciclos; o desvio não 
ocorre e 255, o código do padrão de céu, 
é colocado em B. 

Neste ponto do programa, o valor do 
atraso da cobra será sempre superior a 
7. O processador encontra a instrução 
ld a,b, que transfere o código do padrão 
apropriado de B para A. A rotina 77 da 
ROM, que coloca o código que está em 
A na posição da TN apontada por HL, 
é chamada. Com isso, imprimimos a lín- 
gua — ou apagamos a que existia — pa- 
ra fora da boca da cobra. A seguir, o 
processador retorna ao laço principal do 
jogo. 
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Todos os computadores trabalham e 
entendem apenas uma linguagem: o có- 
digo de máquina, que é representado in- 
ternamente por pequenas variações bi- 
nárias de voltagem. Eie pode ser expres- 
so por um conjunto de letras e núme- 
ros, o que facilita sua compreensão, ou 
por números binários, menos familiares 
ao usuário. De uma forma ou de outra, 
essa linguagem é considerada pouco 



acessível por muitas pessoas. O que tor- 
na mais simples a comunicação com o 
operador é o Sistema Operacional do 
computador (SO), um conjunto de ro- 
tinas em código de máquina que contro- 
lam todas as funções da máquina. Seja 
qual for a linguagem empregada, BA- 
SIC ou outra qualquer, essas rotinas se- 
rão sempre utilizadas para controlar as 
diversas funções do computador. 



Sem o sistema operacional, seria 
difícil trabalhar com o computador. 
Veja de que modo funciona esse 
importante componente do seu micro e 
aprenda a fazer dele um aliado. 



Conhecer o funcionamento do SO 
não é essencial para o usuário, porém 
amplia bastante suas alternativas de pro- 
gramação. O uso de funções internas do 
SO possibilita a obtenção de melhores 
resultados não só quanto à velocidade, 
mas, também, quanto à qualidade ge- 
ral do programa. 

Dentro dos limites impostos por ca- 
da máquina, este artigo procura mostrar 
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A IMPRESSORA 



algumas aplicações úteis para as rotinas 
e variáveis próprias de cada sistema ope- 
racional. 



0 QUE E SISTEMA OPERACIONAL 



O SO é apenas um tipo sofisticado de 
programa — escrito em código de má- 
quina — que permite ao microproces- 



sador existente dentro da máquina res- 
ponder aos comandos básicos de opera- 
ção. Ele controla a comunicação da má- 
quina com o mundo exterior — o tecla- 
do, a tela, o alto-falante e outras por- 
tas de entrada e saída. 

O 50 tem ainda a função de assegu- 
rar que a memória seja utilizada de for- 
ma eficiente pelo usuário e pelo inter- 
pretador BASIC. Assim, quando liga- 
mos o computador, ele ativa várias de 
suas rotinas da ROM para acertar os va- 
lores iniciais de variáveis e apontadores 
e, em seguida, avisa que está pronto a 
aceitar comandos. 

Em todos os microcomputadores 
abordados em INPUT, o SO é respon- 
sável pela interpretação dos comandos 
em BASIC, contudo ele pode também 
lidar com outros tipos de linguagem. 

Na maior parte do tempo, o traba- 
lho do SO consiste em verificar e modi- 
ficar os valores de determinadas variá- 
veis e apontadores especiais. É impor- 
tante, por exemplo, que o SO conheça 
o endereço exato tanto do inicio como 
do fim de um programa em BASIC. Se 
o programa for modificado, seu tama- 
nho também mudará, e esses valores 
precisarão ser atualizados. 

O mesmo se aplica ao processo de 
alocação e manutenção de espaço para 
as variáveis, particularmente as variáveis 
indexadas, ou matrizes. Quando dimen- 
sionamos uma variável desse tipo, um 
espaço deve ser reservado — e, quando 
a variável não for mais necessária, ele 
deve ser eliminado. 

É essencial que o SO utilize racional- 
mente a memória, pois, caso contrário, 
um programa longo ou algumas variá- 
veis mais compridas logo esgotarão a 
quantidade de espaço disponível. Essa 
administração da memória é chamada 
de housekeeping — que poderíamos tra- 
duzir livremente por "cuidar da casa". 
Uma boa "economia doméstica" é in- 
dispensável para que o computador fun- 
cione eficientemente. 

O SO contém ainda uma série de ro- 
tinas de software montadas de modo 
que tanto o usuário quanto o próprio 
SO possam utilizá-las com facilidade. A 
maioria delas não é de interesse para o 
programador em BASIC, pois vários co- 
mandos dessa linguagem se encarregam 



da execução das mesmas tarefas, cha- 
mando as rotinas apropriadas. Um bom 
exemplo é o comando INPUT, que usa 
uma série de sub-rotinas do SO, tais co- 
mo seleção e leitura da porta de entra- 
da, varredura do teclado, uso e transfe- 
rência de buffer etc. 

Outro exemplo interessante é 
CLEAR. Esse comando força o SO a 
executar todas as rotinas necessárias à 
liberação da memória RAM disponível 
para o usuário, destruindo todas as va- 
riáveis previamente existentes. 



TRABALHO SOB ENCOMENDA 



Sempre que digitamos um comando, 
o SO seleciona e coloca em ação uma 
das rotinas de seu vasto acervo. Supo- 
nhamos que você tecle a letra A: o SO 
deverá instruir o processador a imprimir 
o caractere na tela, cabendo-lhe também 
detectar a tecla que foi pressionada. A 
forma como ele faz isso varia de com- 
putador para computador. Em certas 
máquinas, o SO "varre" periodicamen- 
te o teclado para verificar se alguma te- 
cla foi pressionada. Em outras, seu fun- 
cionamento normal é interrompido sem- 
pre que se pressiona uma tecla, a qual 
é identificada, em seguida, por meio de 
uma varredura. 

Para responder adequadamente à 
pressão da tecla, o SO aciona a sub- 
rotina que manda o caractere correspon- 
dente à tela. Sua execução, assim como 
a de outras rotinas em código de máqui- 
na, é muito rápida. Se pressionarmos a 
tecla < ENTER > ou a tecla <RE- 
TURN > , o SO ativará uma rotina que 
promove a mudança de linha na tela 
(new Une). 



O INTERPRETADOR 8ASIC 



Quando executamos um programa 
codificado em uma linguagem como o 
BASIC, as instruções que estão na me- 
mória são interpretadas, ou seja, tradu- 
zidas para os códigos que o computador 
pode entender. Esses códigos modificam 
os registradores de modo que as rotinas 
do SO possam ser chamadas adequada- 
mente. Assim, as mesmas rotinas que 
possibilitam a execução de comandos 
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entrados pelo teclado permitem ao SO 
a execução de um programa BASIC. 

Mas por que o BASIC é tão lento, já 
que utiliza rotinas em código, que são 
rápidas? Acontece que a linguagem de- 
ve ser interpretada a partir de palavras- 
chave — como PR1NT — e de outros 
símbolos, antes que essas rotinas inter- 
nas possam ser executadas. Como a tra- 
dução do BASIC é demorada, progra- 
mas que exigem rapidez, como os de vi- 
deogame, por exemplo, são escritos di- 
retamente em linguagem de máquina. 

O tempo que se leva para escrever um 
programa em código de máquina é, em 
média, dez vezes maior do que o gasto 
em um programa BASIC. A velocidade 
de execução do mesmo, contudo, che- 
ga a ser cinquenta vezes maior. Assim, 
a não ser que a rapidez de execução se- 
ja muito importante, a maioria das pes- 
soas prefere utilizar o BASIC, dada a fa- 
cilidade de programação. 



ACESSO DIRETO AO SO 



A possibilidade de ter acesso direto 
ao SO, sem passar pelo interpretador, 
seria a solução ideal para quem prefere 
as facilidades do BASIC, mas, por ou- 
tro lado, não quer abrir mão da veloci- 
dade. Nem todas as máquinas, porém, 
oferecem essa alternativa. 

No TRS-80 e no TRS-Color, por 
exemplo, o SO faz parte do interpreta- 
dor de dezesseis Kbytes — o Microsoft 
BASIC. No MSX, além de um conjun- 
to de rotinas básicas, chamado BIOS 
(BASIC Inpui 1 /Output System), o SO in- 
clui também o interpretador. Os micros 
da unha Sinclair, como o ZX-81 e o Spec- 
trum, são ainda mais restritivos, uma 
vez que não permitem acesso aos regis- 
tradores internos diretamente do BASIC 
(o que é essencial para que se possa se- 
lecionar as rotinas existentes no SO). 

Seja qual for o microcomputador e 
o tipo de acesso que oferece ao SO, sem- 
pre é possível contornar diversos proble- 
mas — inclusive a diminuição do tama- 
nho das rotinas em código — por meio 
de alguns truques. 




VARIÁVEIS DO SISTEMA 



Os usuários do Spectrum podem uti- 
lizar as rotinas do SO através do coman- 
do USR, que também serve para execu- 
tar rotinas em código de máquina colo- 
cadas temporariamente na RAM. Ten- 
te usar, por exemplo, o comando dire- 
to RANDOM USR 0 : ele provoca um 
reset geral na máquina (reinicialização). 



Para programas em BASIC, há a alter- 
nativa de se modificar determinadas va- 
riáveis por meio de comandos POKE. 

POKE 23561, seguido de um núme- 
ro entre 1 e 255, altera o lapso de tem- 
po que antecede a ativação da auto- 
repetição das teclas. O valor normal é 
dado por um POKE 23561,35. De mo- 
do análogo, POKE 23562,5, que define 
o valor normal do período que decorre 
entre duas auto-repetições sucessivas, 
também pode ser modificado. Tal recur- 
so é útil em jogos, ou qualquer outro ti- 
po de programa que exija respostas rá- 
pidas do usuário, via teclado. 

As posições 23606 e 23607 contêm o 
endereço dos padrões de pontos dos ca- 
racteres. Se usarmos POKE 23606,8 
(byte menos significativo), o apontador 
será movido um caractere para cima, na 
tabela. Assim, qualquer letra que digi- 
tarmos aparecerá na tela como o carac- 
tere seguinte do código ASCII. Tente di- 
gitar esse POKE seguido de 1, 2, 3, 4. 
Note que este é um método simples de 
"criptografar" listagens em BASIC, de- 
sencorajando curiosos que tentem lê-las. 
Se, em vez do byte menos significativo 
você recorrer ao mais significativo — 
POKE 23607,0 — , o apontador será di- 
rigido para o começo da memória 
ROM, tornando os caracteres absoluta- 
mente ininteligíveis. 

A posição de memória 23658 possi- 
bilita alterar o estado da tecla < CAPS 
LOCK> durante a execução de um pro- 
grama. POKE 23658,0 muda os carac- 
teres de maiúsculos para minúsculos; 
POKE 23658,8 admite só maiúsculos. 

O comando PLOT permite especifi- 
car uma posição absoluta da tela, en- 
quanto DRAW se refere de forma rela- 
tiva à posição corrente do cursor gráfi- 
co. Se você precisar de um DRAW ab- 
soluto, poderá consegui-lo através das 
posições de memória 23677 e 23678. Pa- 
ra verificar seu efeito, digite PLOT 
128,85. Esse comando colocará um pon- 
to no centro da tela. Suponhamos que 
você queira traçar uma linha que vá des- 
te ponto até o canto superior direito da 
tela, cuja posição absoluta é (255,175). 
DRAW 255,175 indicaria um ponto fo- 
ra da tela, mas DRAW 255-PEEK 
23677, 175-PEEK 23678 lhe dará o resul- 
tado desejado. Ao subtrair PEEK 23677 
da coordenada X e PEEK 23678 da 
coordenada Y, estamos, na verdade, 
efetuando uma operação para obter as 
coordenadas relativas do comando 
DRAW. 

Um outro exemplo de utilização das 
rotinas do SO por meio de um coman- 
do BASIC é dado pela simulação de um 
relógio. No Spectrum, o contador de li- 
nhas de vídeo ocupa as posições 23672, 
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23673, 23674. Se colocarmos 0 nelas, 
usando o comando POKE, o contador 
será zerado. Depois disso, sua atualiza- 
ção será feita automaticamente através 
de interrupções. Aqui está um progra- 
ma simples que emprega o contador pa- 
ra improvisar um relógio: 

10 POKE 23674,0: POKE 23673.0 
! POKE 23672,0 

20 B0RDER 0: PAPER 0: INK 6: 
CLS 

30 DE F FN tO=INT ((65536* 
PEEK 23674+256*PEEK 23673+ 
PEEK 23672)/50> 
40 LET t=FN t() 
50 LET h-IMT (t/ (60*60)) 
60 LET m-INT (t/60) 
70 LET s-t-((h*60)"60)-(a*60) 
80 LET tS="["+STRS h+" : "+STRS 
M+" : -+STRS S+" ]" 
90 PRINT AT 1,15-{(LEN t$) /2) 
: ' ";t$;' " 
100 GOTO 100 

A linha 10 zera o contador de linhas 
de vídeo, enquanto a linha 30 define a 
função t, que o lê. A linha 40 armazena 
o valor encontrado em t. A partir desse 
valor, as horas, minutos e segundos são 
calculados . 




ENTRADA E SAÍDA 



Os microcomputadores pertencentes 
à linha MSX possuem cerca de 32 
Kbytes de memória ROM dedicados ao 
SO. Os primeiros 16385 bytes são preen- 
chidos com rotinas de entrada e saída. 
O interpretador BASIC começa em 
16385 e termina em 32769. Existem ain- 
da 3202 bytes dedicados às variáveis do 
sistema, todos eles situados no topo da 
memória — 62333 a 65535. 

Um SO com essa extensão possui 
quase todas as rotinas que o usuário po- 
de desejar. Muitas dessas rotinas têm si- 
do aproveitadas no videogame Avalan- 
che. Contudo, como a maioria delas em- 
prega valores armazenados em registra- 
dores internos do Z-80 — o micropro- 
cessador do MSX — , poucas podem ser 
utilizadas diretamente por programas 
em BASIC. A solução consiste em es- 
crever pequenas rotinas em código que 
modificam os valores dos registradores, 
de modo que o BASIC possa chamar a 
rotina desejada do SO. Um exemplo 
desse procedimento foi dado no artigo 
publicado à página 1141 de INPUT. 

De fato, é uma pena que o BASIC 
não possa modificar os registradores di- 
retamente, sobretudo porque o SO do 
MSX dispõe de certos artifícios proje- 
tados para facilitar a utilização de suas 
rotinas pelo usuário. Algumas porções 
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da ROM e da RAM são preenchidas 
com vetores que apontam para determi- 
nadas rotinas do SO, numa tentativa de 
simplificar seu uso. 

As rotinas de entrada e saída — co- 
municação com a tela, com o gerador 
de som, com o teclado e o cassete, en- 
tre outros periféricos — estão espalha- 
das pelos primeiros 16K da ROM. Exis- 
te, porém, uma pequena região — que 
vai do endereço 59 ao 348 — que con- 
tém vetores que apontam para as prin- 
cipais rotinas do BIOS. Assim, podemos 
ler acesso a essas rotinas de duas manei- 
ras: chamando seu endereço verdadei- 
ro na memória ROM ou usando seu ve- 
tor na tabela. As rotinas do interpreta- 
dor BASIC também são apontadas por 
vetores de uma tabela localizada no to- 
po da memória — 64922 a 65535. 

As rotinas mais interessantes neces- 
sitam de parâmetros colocados nos re- 
gistradores internos. Como muitas de- 
las já foram apresentadas em outros ar- 
tigos publicados em INPUT, faremos 
uma pequena lista de rotinas {endereços 
da tabela de vetores) e endereços de va- 
riáveis úteis. 

As rotinas podem ser usadas por 
meio dos comandos DEFUSR e USR(), 
e as variáveis, por meio de PEEK e 
POKE. 



GRÁFICOS 



Eis algumas rotinas de interesse na 
utilização da tela: 

65 - Desabilita a geração de ima- 
gens na tela. Pode ser útil 
quando se pretende que o 
usuário não acompanhe a ela- 
boração de um desenho com- 
plicado, vendo-o só depois de 
completo. 
68 - Reabilita a geração de ima- 
gens. Faz com que o processo 
de desenho, que a rotina an- 
terior oculta, apareça instan- 
taneamente na tela. 
98 - Muda as cores da tela de acor- 
do com o valor das variáveis 
do sistema. 

108 - Equivale a SCREEN 0. Os en- 
dereços das tabelas e as cores 
podem ser modificados atra- 
vés das variáveis do sistema. 

111 -SCREEN 1 

114 - SCREEN 2. 

117 - SCREEN 3. 

192 - Emite um sinal sonoro. 

195 - CLS. 

207 - Mostra as teclas de função na 
parte inferior da tela. 

204 - Apaga as teclas de função da 
tela. 



São variáveis de especial interesse pa- 
ra a tela: 

62387 a 62426 - Cada par de bytes 
corresponde ao endereço de 
uma BASE. Por exemplo, 
62407 e 62408 contêm o ende- 
reço de BASE(10), tabela de 
nomes da tela gráfica. 

62431 a 62438 - Conteúdo dos regis- 
tradores do VDP ( Video Dis- 
play Processor). 

62441 - Cor de frente. 

62442 - Cor de fundo. 

62443 - Cor da borda. 

64695 e 64696 - Coordenada X. 
64697 e 64698 - Coordenada Y. 



TECLADO E CASSETE 



Apresentamos a seguir algumas roti- 
nas de comunicação com o teclado e o 
gravador cassete. A maioria dessas ro- 
tinas precisa de determinados parâme- 
tros nos registradores. 

159 - Aguarda que uma tecia seja 
pressionada pelo usuário e de- 
volve seu código ASCII ao re- 
gistrador A. Essa rotina pode 
substituir a linha em BASIC 
que geralmente aparece depois 
que a mensagem "APERTE 
QUALQUER TECLA" é im- 
pressa: 

100 IF INKEYS-" " THEN 100 

225 - Lê o cabeçalho de uma grava- 
ção em fita cassete. 

228 - Lê um byte da fita. O registra- 
dor A guardará o byte íido. 

231 - Encerra a leitura da fita. 

234 - Grava um cabeçalho na fita. 
Se A = 0, o cabeçalho será 
curto; se A = 1, será longo. 

237 - Grava um byte na fita. O re- 
gistrador A deverá conter o 
byte a ser gravado. 

240 - Encerra a gravação. 
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Muitos endereços e rotinas úteis dos 
microcomputadores das linhas Apple e 
TK-2000 foram apresentados no ar- 
tigo da página 261. Não voltaremos a 
tratar deles, nem de alguns truques já 
mencionados, como, por exemplo, o uso 
de CALL -151 para ativar o monitor. 

O SO do Apple e do TK-2000 divide- 
se em sistema monitor e rotina de ini- 
cialização (Autostart ROM). As rotinas 
citadas aqui são do monitor. 

O SO do Apple e do TK-2000 — co- 
mo o de todos os computadores que uti- 
lizam o microprocessador 6502 — tem 



suas variáveis armazenadas nos primei- 
ros 256 bytes da ROM (página 0). Esses 
micros não permitem a modificação di- 
reta dos registradores do microproces- 
sador 6502 através do BASIC. Assim, 
as rotinas que requerem parâmetros de- 
vem ser usadas com pequenas rotinas em 
código para leitura e/ou modificação 
desses registradores. 

O comando CALL serve para cha- 
mar não só essas rotinas mas, também, 
as que são montadas em código, na 
RAM. Os endereços podem ser modifi- 
cados com POKE e lidos com PEEK. 



ROTINAS DO MONITOR 



-528 - Imprime na tela o caractere 
cujo código está no acumula- 
dor (registrador A). 
-384 - INVERSE. 
-380 - NORMAL. 
-198 - Emite um sinal sonoro. No 
Apple tente também -1059. 
-741 - Imprime um cursor piscante 
e aguarda que se pressione 
uma tecla, colocando então 
seu código no acumulador. 
Também embaralha o gera- 
dor de núfneros aleatórios. 
-864 - Provoca um atraso de acor- 
do com o valor do acumu- 
lador A. No Apple II a du- 
ração do atraso é de (26 + 
27*A + 5*A*A)/2 microsse- 
gundos. No TK-2000 a demo- 
ra é maior. 

-1948 - Determina qual será a cor do 
gráfico de baixa resolução de 
acordo com o conteúdo do 
acumulador. 

-1953 - Adiciona o valor 3 ao código 
da cor atual para gráficos de 
baixa resolução. 

-2048 - Desenha um ponto de baixa 
resolução. O acumulador de- 
fine a coordenada vertical, e 
o registro Y determina a 
coordenada horizontal. 

-2023 - Desenha uma linha horizon- 
tal em baixa resolução — 
coordenada vertical em A, 
coordenada horizontal inicial 
em Y e coordenada horizon- 
tal final no endereço $2C. 

-2008 - Desenha uma linha vertical 
em baixa resolução — coor- 
denada horizontal em Y, 
coordenada vertical inicial 
em A e coordenada vertical 
final no endereço S2D. 

-1998 - Apaga a tela de baixa resolu- 
ção. No micro Apple, preen- 
che a tela com caracteres @ 
invertidos, se for chamada no 
modo texto. 
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-1994 - Igual à anterior, só que res- 
peita as quatro linhas de tex- 
to no rodapé da tela. 

-1935 - Verifica a cor de uma posição 
da tela de baixa resolução, 
usando os mesmos registros 
que a rotina do endereço 
-2048. A cor do ponto retor- 
nará no acumulador. 
-182 - Grava todos os registros do 
microprocessador 6502. Usa 
os endereços $45 a $49. 
-193 - Recupera os registros. Usa os 
endereços $45 a $49. 



TELA DE ALTA RESOLUÇÃO 



Os endereços que controlam o tipo de 
tela no Apple foram muito usados nos 
programas de INPUTe não serão repe- 
tidos. Existem, contudo, alguns outros 
endereços interessantes para gráficos de 
alta resolução. 

224/225 - Coordenada X do último 
ponto plotado. 

226 - Coordenada Y do último pon- 
to plotado. 

230 - Indica a página em que o pon- 
to deve ser plotado. O valor 
32 corresponde à página 1, e 
64, à página 2. Note que o 
acesso a esse endereço permi- 
te que se desenhe na página 2, 
enquanto se mostra a página 
I e vice-versa. 

228 - Indica a cor do gráfico. Seus 
valores estão na tabela apre- 
sentada a seguir. 

HCOLOR COR BYTE 228 

0 preto 1 0 

1 verde 42 

2 violeta 85 

3 branco 1 127 

4 preto 2 128 

5 vermelho 170 

6 azul 213 

7 branco 2 255 

62450 - Limpa a tela (alta resolução). 

62454 - Preenche a tela de alta reso- 
lução com o byte 228. Além 
de permitir a seleção de co- 
res de fundo para seus dese- 
nhos, essa rotina produz di- 
versos padrões quando o 
byte 228 assume valores que 
não correspondem às cores 
da tabela anterior. 



As rotinas do SO são acessadas pelo 
I comando EXEC, que também chama 



rotinas em código montadas na RAM. 
Muitas variáveis são obtidas com 
PEEK. 



COMUNICAÇÃO COM 0 CASSETE 



Todas as rotinas destinadas ao uso 
em gravador cassete empregam duas ro- 



tinas principais, a saber: BLKIN — no 
endereço 42763 — , que faz a leitura de 
um bloco de 255 bytes na fita; e 
BLKOUT — endereço 42996 — , que 
grava um bloco na fita. 

Também são de utilidade para o pro- 
gramador BASIC os endereços da pá- 
gina 1, que listamos a seguir: 
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- Fornece o status da porta de 
entrada e saída do gravador 
cassete. Pode assumir os valo- 
res 0 (porta fechada), 1 (aber- 
ta para entrada) e 2 (aberta pa- 
ra saída). Para evitar que er- 
ros de saída destruam seu pro- 
grama, verifique a porta utili- 




zando o comando PEEK an- 
tes de abrir um arquivo. 
144 - Empregado pelo sistema ope- 
racional para definir o compri- 
mento do cabeçalho. Se você 
tem problemas com o volume 
do gravador, coloque um va- 
lor mais alto nesta posição 
por meio do comando POKE. 
149/150 - Estas posições contêm o 
lapso de tempo que se segue a 
um comando MOTOR ON. 
POKE 149,0:POKE 150,1 re- 
sultará em lapso zero, útil 
ao se usar AUDIO ON/OFF 
com controle do motor. 



PROCESSAMENTO DE TEXTOS 



Outra seção do sistema operacional 
que pode ser de interesse para o progra- 
mador BASIC é aquela que executa os 
testes de entrada e saída. Ela inclui en- 
trada do teclado e saída para a tela e a 
impressora. 

Frequentemente, a mensagem "aper- 
te qualquer tecla" surge na tela junto 
com um laço do tipo: 

100 IF INKEVS=- - THEN 100 

Essa linha pode ser substituída por 
outra bem mais curta: EXEC 44539. Se 
você quiser um cursor piscante use 
EXEC 36038. 

Convém anotar ainda os seguintes 
endereços dessa seção: 

135 - Contém o código ASCII da 
última tecla pressionada. 

338 e 345 - Colocando o valor 255 
nessas posições, antes do IN- 
KEY$, obtém-se a auto-repe- 
tiçâo das teclas. 
282 ■ É a trava de letras maiúsculas. 
Você pode forçar as minúscu- 
las colocando um 0 ali. O va- 
lor 255 força as maiúsculas e 
qualquer outro valor desabi- 
lita o uso de <SHIFT>0. 

43304 - Contém a rotina que limpa 
a tela. 



COMUNICAÇÃO COM A IMPRESSORA 



Entre as variáveis relacionadas à im- 
pressora, são de maior utilidade para o 
programador aquelas que se encontram 
nos seguintes endereços: 

153 • Determina a distância entre 
itens separados por vírgulas. 
O nprmal é 16. 
155 - Para que a função POS(-2) 
tenha um desempenho satisfa- 
tório, esse endereço deve con- 



ter a largura do papel utiliza- 
do (40, 80 ou 132). 

330 - Contém o número de caracte- 

res enviados pelo computador 
para assinalar um final de li- 
nha (EOL). Normalmente, 
apenas um caractere é 
enviado. 

33 1 a 334 - Contêm os caracteres do 

EOL: CR (13), LF (10), 0, 0. 
Esses caracteres podem ser al- 
terados para corresponder a 
um certo tipo de impressora. 
328 - Contém o indicador de ali- 
mentação automática de li- 
nha. Se seu valor for 0, o 
computador faz o papel avan- 
çar automaticamente com o 
retorno do carro. Qualquer 
outro valor leva à impressão 
dos caracteres do EOL após a 
do número de caracteres indi- 
cados por 155. 



O programador BASIC não tem 
acesso às rotinas do SO que dizem res- 
peito aos gráficos. Mas existem alguns 
endereços que, junto com os comandos 
PEEK e POKE, podem ser úteis. 

182 - PMODE: número do modo gráfico. 
183/184 • Endereço final da tela. 
186/187 - Endereço inicial da tela. 
188 - Início da página 1. 
200 - Coordenada X do cursor gráfico. 
202 - Coordenada Y do cursor gráfico. 



OUTRAS ROTINAS INTERESSANTES 



EXEC 43486 - Atualiza todos os joys- 
ticks; soluciona os problemas que 
possam ocorrer com o comando 
JOYSTK. 

EXEC 40999 - Equivale ao botão RESET. 

EXEC 41142 - Reinicialização total: 
equivale a desligar e ligar a máqui- 
na novamente. 

EXEC 46481 - Executa uma "coleta de 
lixo" controlada nas variáveis al- 
fanuméricas, evitando as desagra- 
dáveis pausas que ocorrem inespe- 
radamente nos programas que as 
incluem. A quantidade de espaço 
string remanescente pode ser cal- 
culada com 



O valor normal para o espaço 
string é 200. A não observância 
desse limite pode causar erros do 
tipo OS (out ofslring, que quer di- 
zer: fim do espaço para string). 
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Abra um canal de comunicação com o 
drive ou o cassete e mande seus 
valiosos dados para o arquivo. Saber 
manipular essa ferramenta é 
fundamental para certas aplicações. 



Qualquer programa que manipule 
grande quantidade de informação deve 
armazená-la da maneira apropriada. No 
artigo publicado à página 128, tratamos 
do armazenamento de uma pequena lis- 
ta de telefones em linhas DATA. O pro- 
grama ali apresentado permite ao usuá- 
rio procurar e imprimir qualquer item 
da lista. Porém, para qualquer modifi- 
cação na lista, é necessário interromper 
a execução do programa e editar as li- 
nhas DATA. Além disso, os dados só 
podem ser gravados junto com o pro- 
grama que os manipula. 

Essa dependência dos dados ao pro- 
grama muitas vezes é indesejável. Para 
evitá-la, convém guardar os dados em 
fita cassete ou disco flexível. A recupe- 
ração das informações é tão rápida 
quanto no caso das linhas DATA, mas 
a alteração e a edição de dados tornam- 
se extremamente mais fáceis. Para 
efetuá-las, o usuário não precisa saber 
nada a respeito do programa. 

Como em muitos programas aplica- 
tivos listados em INPUT, os dados são 
armazenados em arquivos, na fita ou 
disquete. O banco de dados, o orçamen- 
to doméstico, a agenda eletrônica e a 
planilha são exemplos de programas que 
envolvem grande quantidade de infor- 
mações. Se observarmos suas listagens 
com atenção, poderemos identificar as 
linhas que tratam da gravação e leitura 
dos dados. Elas ocupam uma porção 
mínima do programa, se comparadas às 
demais seções, encarregadas, entre ou- 
tras coisas, de reservar espaço na memó- 
ria, estabelecer a comunicação com o 
usuário e manipular os dados. 

Quando armazenamos os dados à 
parte, as possibilidades de utilização do 
programa aumentam bastante, esten- 
dendo-se à criação e alteração de vários 
arquivos diferentes, com quantidades 
diversas de registros e campos. 

Empregamos em nosso programa o 
método de armazenagem sequencial, cu- 
jo princípio é muito simples. Como vo- 
cê verá, ele permite que os dados sejam 
convertidos a um formato que se adap- 
ta a diversos programas, e até mesmo a 
computadores diferentes. 

O arquivo sequencial caracteriza-se 
pela armazenagem dos dados em série, 
■dispostos um após o outro e separados 



apenas por um byte. Toda a informa- 
ção deve estar na memória antes de ser 
transferida ao arquivo. 

O primeiro passo para a criação de 
um arquivo sequencial consiste na aber- 
tura de um canal de comunicação com 
o dispositivo que vai armazenar os da- 
dos — cassete ou drive. Isso é feito por 
intermédio do comando OPEN, numa 
sintaxe que varia conforme o tipo do mi- 
crocomputador. Para conhecer os co- 
mandos mais utilizados, volte ao artigo 
da página 688. 

Aqui, explicamos em detalhe as téc- 
nicas envolvidas na criação de arquivos, 
de modo que você poderá incorporá-las 
facilmente a seus programas. 



O programa a seguir mostra como 
criar uma versão mais sofisticada da lis- 
ta de telefones mencionada anterior- 
mente. Ao utilizá-la, você poderá mo- 
dificar, sem maiores dificuldades, as 
mensagens dos comandos INPUT e o 
formato das matrizes, para que aceitem 
outro tipo de informação. 

Os dados são fornecidos nesta or- 
dem: nome, sobrenome e número do te- 
lefone. Como números de telefone po- 
dem conter espaços, hífens e parênteses, 
convém dar-lhes a forma de cadeia de 
caracteres. Se você quiser alterar o pro- 
grama para lidar com outros tipos de in- 
formação, poderá usar também matri- 
zes numéricas e alfanuméricas. Um ar- 
quivo recebe dados em qualquer forma- 
to e em qualquer ordem. O importante 
é que a leitura se faça nessa mesma or- 
dem e que os dados sejam colocados no 
tipo adequado de variável. 

Embora seja possível armazenar in- 
formações diretamente no arquivo, é 
mais conveniente que coloquemos os da- 
dos em uma matriz e depois guardemos 
toda a matriz no arquivo. 

A primeira parte do programa tem 
um pequeno laço que possibilita a en- 
trada dos dados. Digite quantos nomes 
e números quiser — o limite é a dimen- 
são da matriz, especificada na linha 10. 
Modifique a dimensão, caso precise de 
um número de itens superior a cinquen- 
ta. Quando tiver entrado todos os da- 



dos, digite ENTER ou RETURN e o la- 
ço de entrada será interrompido. 

A segunda parte do programa — da 
linha 100 em diante — grava os dados 
no arquivo. Daremos explicações refe- 
rentes a seu funcionamento nas várias 
i do programa. 



10 DIM A3<50,15): DIM B3 (50 , 
15): DIM T9C50.12): DIM Nd) 
20 LET N-0 
30 LET N-N+l 

40 INPUT -PRIMEIRO NOME ";AS( 
H] 

50 INPUT "SEGUNDO NOME ";BS(N 
) 

60 INPUT "NUMERO DO TELEFONE 
• ;TS(N) 

70 If A$(N)<>* 

■ AND N<50 THEN GOTO 30 

60 CLS : PRINT "SALVANDO DADO 

S AGORA" 
100 SAVE "CONT" DATA NO 
110 SAVE "P . NOMES* DATA ASO 
120 SAVE "S. NOMES" DATA BS O 
130 SAVE "N.TELEF." DATA T3() 
140 PRINT "DADOS GRAVADOS" 
150 STOP 

Para a gravação, o Spectrum utiliza 
o comando SAVE seguido do nome do 
arquivo. Note que cada matriz é grava- 
da como um arquivo distinto, receben- 
do um nome especial. A instrução DA- 
TA seguida do nome da matriz deve vir 
depois do nome do arquivo. 



10 DIM A$(50) .B3Í50) ,T$C50) 
30 N-N+l 

40 INPUT "PRIMEIRO NOME"; AS (N) 

50 INPUT "SEGUNDO N0ME";B3(N) 

60 INPUT "TELEFONE" ; T3 (N) 

70 IF A3(N)<>"" AND N<50 THEN 3 

0 

80 CLS: PRINT "GRAVANDO OS DADOS 

100 OPEN "CAS:ARQ" FOR OUTPUT A 
B «1 

110 PRINT II. N 

120 FOR L-l TO N 

130 PRINT *1,A3(L) ,B3(L) ,T9(L) 

140 NEXT 

150 CLOSE #1 

160 PRINT "DADOS GRAVADOS " 
170 END 

Os dados entrados na primeira parte 
do programa são colocados em três va- 



um 
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Como gravar dados em fila cassete 
no Apple e no TK-2000? 

Para contornar os problemas de ar- 
quivamento no Apple e no TK-2000, a 
melhor solução é comprar um drive de 
discos flexíveis. Mas existem algumas 
alternativas — nenhuma milagrosa, po- 
demos adiantar. 

Esses micros só permitem a grava- 
ção de uma variável indexada unidi- 
mensional e não montam na fita um ar- 
quivo propriamente dito. O leitor pode 
achar que isso já é suficiente para al- 
gumas aplicações. Porém, a lentidão e 
o grande espaço que uma pequena va- 
riável ocupa na fita certamente logo 
vão desencorajar os mais afoitos. 

Em nossa opinião, a saída mais con- 
veniente para quem não pode adquirir 
um drive é colocar os dados em um 
buffer no alto da memória, usando o 
comando POKE. Em seguida, basta en- 
trar no monitor de linguagem de máqui- 
na - comCALL-151 - egravarobuf- 
fer por intermédio do comando W do 



riáveis indexadas: AS( ), B$( )eT$( ). 
Na linha 100, abrimos um arquivo para 
a gravação de dados em fita cassete por 
intermédio da instrução OPEN "CAS: 
nome do arquivo" FOR OUTPUT AS 
# número do arquivo. 

A instrução PRINT #1 significa 
"imprima o próximo item no arquivo". 
Assim, a linha 1 10 grava o valor de N 
— total de números e nomes da lista — , 
para que seja usado posteriormente na 
leitura do arquivo. 

O laço entre as linhas 120 e 140 utili- 
za a mesma instrução PRINT # 1 para 
guardar o conteúdo das três variáveis in- 
dexadas. A instrução CLOSE # 1, por 
sua vez, fecha o arquivo. 



SI 



DIM AS (50) ,BS(50) ,T$(S0) 
20 D3 - CHRS (4) 
30 N - N + 1 

40 INPUT -PRIMEIRO NOME ";AS(N 



50 



INPUT "SEGUNDO NOME ";B$(N) 

INPUT "TELEFONE * ;TS (N) 

IF A$(N) < > " AND N < 50 



THEN 30 

80 HOME : PRINT "GRAVANDO OS D 
ADOS" 

100 PRINT DS:"0PEN ARQUIVO" 

110 PRINT DS:"WRITE ARQUIVO" 

120 PRINT N 

130 FOR L - 1 TO N 

140 PRINT A3(L): PRINT B$(L): 

PRINT TS(L) 

150 NEXT L 

160 PRINT D8; "CLOSE ARQUIVO" 
170 PRINT "DADOS GRAVADOS" 
180 ZND 

Trataremos apenas da gravação em 
disquete, pois a armazenagem de arqui- 
vos em fita no Apple e no TK-2000 é 
muito precária. Como você deve se lem- 
brar, para controlar o drive sem sair do 
BASIC Applesoft utilizamos o caracte- 
re de controle CHRS(4), que foi colo- 
cado na variável DS (linha 5). 

A primeira parte do programa, que 
cuida da entrada dos dados, coloca-os 
em três variáveis indexadas: A$( ), 
BS( ) e TS( ). Um arquivo é aberto na 
Unha 100 através do caractere de con- 
trole, seguido do comando OPEN e do 
nome do arquivo (entre aspas). 

O comando WRITE, na linha 110, 
permite a gravação de dados no arqui- 
vo que foi aberto. Todos os comandos 
PRINT que aparecem em seguida escre- 
vem no arquivo e não na tela. O coman- 
do CLOSE fecha o arquivo e devolve a 
função original ao PRINT. 



10 DIM AS(50) ,B3(50) .T3Í50) 
30 N-N+l 

40 INPUT"PRIMEIRO NOME ";AS(N) 
50 INPUT-SEGUNDO NOME " ; B$ (N) 
60 INPUT"NUMERO DO TELEFONE " ;T 
3CN) 

70 IF AS(N)<>" AND N<50 THEN 3 



Use esta seção para arquivos em fita 
cassete: 

100 OPEN "0".*-l, "ARQUIVO" 

110 PRINT »-l,N 

120 FOR L-l TO N 

130 PRINT #-l.A$(L) ,BS(L) .TSU) 

140 NEXT 

150 CLOSE 1-1 

160 PRINT" DADOS GRAVADOS" 

170 END 

Utilize esta seção para arquivos em 
disquete: 

100 OPEN "O", II. "ARQUIVO" 

110 PRINT tl.N 

120 FOR L-l TO N 

130 PRINT *1.AS(L) ,8S(L) ,T$(L) 

140 NEXT 

150 CLOSE tl 



A primeira seção do programa, que 
trata da entrada dos dados, é comum 
aos dois tipos de dispositivo, ao contrá- 
rio da segunda seção, incumbida de gra- 
var os dados. 

Na versão para fita cassete, um ar- 
quivo é aberto pela instrução OPEN 
"O" que estabelece uma linha de comu- 
nicação com o dispositivo de armazena- 
mento para a saída de dados. Ela é se- 
guida por um # - 1 . que diz ao compu- 
tador que se trata de gravador cassete, 
e pelo nome do arquivo entre aspas. 

O comando PRINT # - 1 significa 
"imprima o próximo valor no arquivo". 
Assim, a linha 110 grava o valor de N 
— o número de telefones da lista. Para 
o processo de leitura, que descrevemos 
a seguir, é importante que esse valor en- 
cabece o arquivo, 

A linha 1 30 escreve cada um dos itens 
no arquivo — observe que eles são se- 
parados por meio de vírgulas. Finalmen- 
te, o comando CLOSE # - I fecha o ar- 
quivo (linha 150), 

A criação de arquivos em discos fle- 
xíveis é muito semelhante, empregando 
os mesmos comandos. A única diferen- 
ça é o número utilizado após o sinal # . 
OPEN "O", #1, seguida do nome do 
arquivo entre aspas, abre um arquivo; 
PRINT # 1 guarda um item nele e CLO- 
SE #1 trata de fechá-lo. 

Como você pode notar, na linha 130 
os itens estão separados por ponto e vír- 
gula. Embora se permita o uso de vír- 
gulas, aquele é o modo mais económi- 
co de armazenar dados no disco. 

Os disquetes admitem a criação de 
mais de um arquivo ao mesmo tempo, 
pois, ao contrário do gravador cassete, 
o drive é capaz de procurar a porção 
adequada para ali gravar os dados. As- 
sim, podemos numerar os arquivos com 
#1, #2, #3 e assim por diante, en- 
quanto o cassete é sempre numerado 
com # - 1 — um PRINT # - 2 manda- 
rá o dado para a impressora. 



A LEITURA DO ARQUIVO 



O programa que recupera as infor- 
mações gravadas no arquivo é exata- 
mente o inverso do programa anterior. 
Ele imprime os dados lidos na tela para 
que possamos conferi-los. 



200 CLEAR 
210 DIM NU) : 
N() 



LOAD "C0NT" DATA 
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215 DIM A$(N(1).15): DIM BS(N( 

1) ,15) : DIM T$(N(1) .12) 

220 LOAD "P . NOMES" DATA ASO 

230 LOAD "S. NOMES" DATA BSO 

240 LOAD "N.TELEF." DATA T$() 

250 FOR L-l TO Nd) 

260 PBINT AS(L) ,BS(L) ,TS(L) 

270 NEXT L 

Para utilizar esse programa, rebobi- 
ne a fita até o começo do arquivo gra- 
vado pelo primeiro programa. Digite 
RUN 200 para recuperar os dados; não 
rode o programa inteiro novamente. 

A linha 200 apaga os antigos valores 
das variáveis, para que só os obtidos no 
arquivo sejam impressos. A linha 210 di- 
mensiona uma nova variável N( ) com 
um elemento. Ela será usada para recu- 
perar o valor de'N gravado anteriormen- 
te. As outras variáveis são dimensiona- 
das de acordo com o valor de N( ). Co- 
nhecendo o número exato de elementos 
do arquivo, não tentaremos ler além do 
seu final. 

O resto do programa é fácil de enten- 
der: simplesmente substituímos os SA- 
VE do primeiro programa por LOAD. 
E preciso fechar um arquivo aberto pa- 
ra gravação, mas não para leitura. 
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200 CLEAR 2000:OPEN"CAS:ABQUIVO 
"FOR INPUT AS *1 

210 INPUTI1.N.-DIM AS (N) , BS (NI , T 

ttm 

220 FOR L-l TO N 

230 INPUT ll.AS(L) ,BS{L) ,TS(L) 

235 PRINT AS(L) ;BS(L) ;TS(L) 

240 NEXT L 

250 CLOSE |1 

Para usar esse programa, rebobine a 
fita até o começo do arquivo gravado 
pelo primeiro programa. Digite RUN 
200 para ler o arquivo; não rode o pro- 
grama inteiro novamente. 

A linha 200 apaga as variáveis origi- 
nais; dessa maneira, o programa impri- 
me só aquilo que obtiver no arquivo. Es- 
te é aberto para leitura pela instrução 
OPEN "CAS:" FOR OUTPUT AS, se- 
guida do valor adequado. 

A linha 210 lê a quantidade de nomes 
armazenada no arquivo — N — e utili- 
za esse valor para dimensionar as variá- 
veis. N também controla o laço de lei- 
tura do arquivo, para que ele seja recu- 
perado até o final. Note que os valores 
lidos são colocados nas variáveis na or- 
dem em que foram gravados, separados 
pelo mesmo tipo de sinal — no caso da 
fita, a vírgula. O arquivo deve ser fecha- 
do após ser lido. 
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200 DS - CHRS (4): PBINT DS:"0 



PEN ARQUIVO" 

210 PRINT DS : "READ ARQUIVO" 

220 INPUT N: DIM AS (N) , BS (N) . T 

S IN) 

230 FOR L ■ 1 TO N 

240 INPUT AS(L): PRINT ASU) 

250 INPUT BS(L): PRINT BS(L) 

260 INPUT TS(L): PRINT TSU) 

270 NEXT L 

280 PRINT DS; "CLOSE ARQUIVO" 

A linha 200 é encarregada de apagar 
os antigos valores das variáveis; dessa 
maneira, o programa imprime somente 
os valores que obtiver no arquivo. Este 
è aberto para leitura pela instrução 
OPEN seguida de READ. 

A linha 210 lé a quantidade de nomes 
armazenada no arquivo — N — e utili- 
za esse valor para dimensionar as variá- 
veis. N também tem como função con- 
trolar o laço de leitura do arquivo, pa- 
ra que ele seja recuperado até o final. 
Note que os valores lidos são colocados 
nas variáveis na mesma ordem em que 
foram gravados, separados pelo mesmo 
tipo de sinal — no caso da fita, a vírgu- 
la. O arquivo deve ser fechado após ser 
lido. 
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Para fita cassete, use esta seção: 



200 CLEAR 2000:OPEN-I",»-1."ARQ 
UIVO" 

210 INPUT|-1,N:DIM AS(N),BS{N), 
TS IN) 

220 FOR L-l TO N 

230 INPUT #-l,AS(L) .B$<L) ,T$(L) 
235 PRINT AS(L) ;BS(L) :TS(L) 
240 NEXT L 
250 CLOSE i-1 

No caso de discos flexíveis, recorra 
a esta outra: 

200 CLEAR 2000:OPEN "0",#1,"ARQ 
UIVO" 

210 INPUT*I,N:DIM AS (N) , BS (N) , T 

StN) 

220 FOR L-l TO N 

230 INPUT #1,AS(L) . BS (L) ,TStL) 

235 PRINT AS(L) :BS(L) ;TS(L) 

240 NEXT L 

250 CLOSE «1 

Para executar essa parte do progra- 
ma, rebobine a fita até o inicio do ar- 
quivo. Digite o comando RUN 200 pa- 
ra recuperar os dados; não rode o pro- 
grama inteiro novamente. 

A linha 200 apaga os antigos valores 
das variáveis; dessa maneira, o progra- 
ma imprime apenas os valores que ob- 
tiver no arquivo. Este é aberto para lei- 
tura pela instrução OPEN "I" seguida 
do valor adequado — # - 1 para fita e 
# 1 para disquete. 



A linha 210 lê a quantidade de nomes 
armazenada no arquivo — N — e utili- 
za esse valor para dimensionar as variá- 
veis. N também controla o laço de lei- 
tura do arquivo, para que ele seja recu- 
perado até o final. Note que bs valores 
lidos são colocados nas variáveis na or- 
dem em que foram gravados, separados 
pelo mesmo tipo de sinal — no caso da 
fita, a virgula; no do disco, ponto e vír- 
gula. O arquivo deve ser fechado após 
ser lido. 
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FIM DE ARQUIVO 



O último programa usou a variável 
N para controlar a leitura do arquivo. 
Contudo, nem sempre é possível saber 
de antemão quantos itens devem ser li- 
dos. Um modo de contornar o proble- 
ma é usar um marcador para sinalizar 
o fim do arquivo. O TRS-Color e o 
MSX colocam automaticamente um si- 
nal desse tipo — EOF — no final, sem- 
pre que uma instrução CLOSE é en- 
contrada. 

Assim os usuários dos microcompu- 
tadores TRS-Color e MSX podem mo- 
dificar o programa anterior para que ele 
leia o arquivo desde o início, parando 
sempre que encontrar o sinal que indi- 
ca fim de arquivo — EOF. 

Listamos o programa a partir da li- 
nha 100 para que você possa compará- 
lo à versão já dada e escolher o método 
que considerar melhor. 

Modifique as linhas conforme a lis- 
tagem abaixo e, depois, tente gravar e 
ler o arquivo novamente. 

Wi 

100 OPEN "CAS:ARQUIVO"FOR OUTPU 
T AS #1 
110 N-0 
120 N-N+l 

130 PRINT #1,AS(N) ,BS(N) ,TS(N) 
140 IF AS(N)<>"" AND N<50 THEN 
120 

150 CLOSE 11 

160 PRINT "DADOS GRAVADOS" 
170 END 

200 CLEAR 2000;DIM AS(50),BS(50 
) ,T$(50) :OPEN "CAS : ARQUIVO" FOR 

INPUT AS |1 
230 N-N+1:INPUT I 1 , AS (N) . BS (N) , 
TSCN) 

235 PRINT AS(N) ;BS(N) ;TS(N) 
240 IF EOF(1)-0 THEN 230 
250 CLOSE (1 

D 

Apague as linhas 210 e 220 e modifi- 
que as demais. Para a fita: 
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100 OPEN "O", |-1. "ARQUIVO" 
110 N-0 
120 N-N+l 

130 PRINT |-1,AS(N) ,BS(N) ,TS(N) 
140 IF AS(N)<>"" AND N<50 THEN 
120 

150 CLOSE #-1 

160 PRINT "DADOS GRAVADOS" 
170 END 

200 CLEAR 2000;DIM A5(50),B3(50 
> ,TS(50) :0PEN "I" . #~1 . "ARQUIVO" 
230 N-N+l: INPUT #-1 , AS (N> . BS <N) 
.T3(N) 

235 PRINT AS (M ; B3 (M ; TS (N) 
240 IF EOF(-1)-0 THEN 230 
250 CLOSE #-1 

Para o disquete: 

100 OPEN "O*. #1, "ARQUIVO" 
110 N-0 
120 N-N+l 

130 PRINT ll.AS(N) ,BS(N) ,T3<N) 
140 IF ASÍNJO"" AND N<50 THEN 
120 

150 CLOSE *1 

160 PRINT "DADOS GRAVADOS" 
170 END 

200 CLEAR 2000;DIM AS<50),BS(50 
) ,T3(50) :OPEN "O" , *1 , "ARQUIVO" 
230 N-N+l : INPUT »1 . AS (N) , BS <N) , 
TS(N) 

235 PRINT AS(N) ; BS (N) :T3(N) 
240 IF EOFÍD-0 THEN 230 
250 CLOSE «1 

A linha 240 de ambos os programas 
verifica a ocorrência de um sinal de fim 
de arquivo — EOF. 



OUTROS SINALIZADORES 



Para indicar o final do arquivo, os 
usuários dos microcomputadores da li- 
nha Apple podem colocar ali um sinali- 
zador arbitrário. Já no caso do Spec- 
tmm, detectamos o fim do arquivo de 
outra maneira: após entrar todos os da- 
dos no laço inicial, digitamos uma se- 
nha arbitrária. Esta pode ser ZZZ, 
- 999, a palavra FIM ou qualquer ou- 
tra coisa que normalmente não se inclui 
entre os dados de um arquivo. 

Altere as próximas linhas e veja co- 
mo utilizar um sinalizador desse tipo. 
Ao digitar os dados do arquivo, entre 
a palavra FIM após o último número de 
telefone e ENTER ou RETUitN após as 
outras duas solicitações. 

ffU 

70 IF A3(NX>"FIM" AND N<50 THE 
N 30 

140 IF AS(NK>"FIM" AND N<50 TH 
EN 120 

240 IF AS(NK>*FIM" AND N<50 TH 
EN 230 



m 

10 DIM AS (50) ,BS(50) ,TS(50) 
20 DS - CHHS (4) 
30 N ■ N * 1 

40 INPUT "PRIMEIRO NOME ";A3(N 
) 

50 INPUT "SECUNDO NOME ":BS(N) 

60 INPUT "TELEFONE ";TS(N1 

70 IF AS(N) < > "FIM" AND N < 

50 THEN 30 
80 HOME : PRINT "GRAVANDO OS D 
ADOS" 

100 PRINT DS;"0PEN ARQUIVO" 
110 N = 0 
120 N - N + 1 

130 PRINT D3:"WRITE ARQUIVO" 
1.40 PRINT AS(N>: PRINT BS <N) : 
PRINT TS(N) 

150 IF AS(N) < > "FIM" AND N 
< 50 THEN 120 

160 PRINT DS; "CLOSE ARQUIVO* 
170 PRINT "DADOS GRAVADOS* 
160 END 

200 DS - CHHS (4) : PRINT DS;"0 
PEN ARQUIVO" 

210 PRINT DS ; "READ ARQUIVO" 
220 DIM AS (50) ,BS(50) ,TS(50) 
225 L - 0 
230 L - L + 1 

240 INPUT AS{L): PRINT AS (D 



250 INPUT BS(L): PRINT BS(L) 
260 INPUT TS(L): PRINT TS (L) 
270 IF AS(L) < > "FIM" AND L 
< 50 THEN GOTO 230 
2B0 PRINT D5 ; "CLOSE ARQUIVO" 

U 

70 IF AS(NX>"FIM" AND N<50 THE 
N 30 

140 IF AS(N)0"FIM" AND N<50 TH 
EN 120 

240 IF A3(N)<>"FIM" AND N<50 TH 
EN 230 



0 USO DOS DADOS 



Armazenados em um arquivo, ou se- 
ja, fora de um programa BASIC, os da- 
dos podem ser utilizados por vários pro- 
gramas diferentes. Qualquer uma das 
rotinas de ordenação apresentadas nos 
artigos das páginas 468 e 738, por exem- 
plo, servem para ordenar alfabeticamen- 
te nossa lista telefónica. Uma vez feito 
isso, podemos localizar rapidamente de- 
terminado item da lista, por meio de 
uma busca binária, como mostra o ar- 
tigo da página 930. 
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TESTE DO VÍDEO 



A IMAGEM ESTA CENTRADA? 



DISTORÇÕES JUNTO ÀS BORDAS 

DEFINIÇÃO DA IMAGEM 

RAZÃO DE ASPECTO 



DEFINIÇÃO DAS CORES 



Se você sentir a vista cansada após 
fixar por algum tempo o vídeo do micro, 
talvez seja a hora de providenciar 
um outro monitor. Use este programa 
para testar a qualidade da imagem. 



Até pouco tempo atrás, o preço de 
um monitor de vídeo colocava esse pe- 
riférico totalmente fora do alcance da 
maioria dos proprietários de micros, 
obrigando -os a utilizar aparelhos co- 
muns de TV como saída de vídeo. 

Os televisores apresentam vários in- 
convenientes: a imagem pisca e oscila 
continuamente de modo imperceptível, 
o que provoca dores de cabeça e cansa- 
ço visual após um certo tempo. Outro 
problema é causado pela baixa resolu- 
ção da tela, que resulta em perda de de- 
talhes e definição da imagem em textos 
e gráficos. 

Entretanto, o custo relativo dos mo- 
nitores profissionais de vídeo tem caí- 
do bastante nos últimos anos, tornan- 
do esse periférico cada vez mais acessí- 
vel. E, se você ainda não tem um, vale 
a pena ir pensando em adquiri-lo, pois 
a qualidade da imagem é bem superior 
à de um televisor. 

No artigo da página 851, descreve- 
mos as características técnicas que dife- 
renciam um televisor de um monitor e 
falamos dos aspectos que devem ser con- 
siderados na escolha de um bom moni- 
tor. Não há dúvida, porém, de que o 
melhor critério para essa seleção ainda 
é o "Teste de São Tomé" — ou seja, 
ver como fica a imagem no vídeo, quan- 
do o conectamos ao nosso computador. 
Como há problemas de compatibilida- 
de entre monitores e micros, é funda 
mental que você use o seu modelo na ho 
ra desse teste. 

O programa listado neste artigo foi 
projetado para testar as características 
do vídeo em diferentes linhas de compu- 
tadores. A versão para o Spectrum mos- 
tra um único padrão visual na tela; já 
as versões para o|MSX, Apple, TK-2000 
e TRS-Color mostram duas ou três te- 
las sucessivas, cada qual projetada pa- 
ra testar um aspecto do funcionamento 
do vídeo. 



Os padrões visuais variam de compu- 
tador para computador, mas contêm ba- 
sicamente os elementos utilizados em tes- 
tes como os que são transmitidos em ho- 
ras mortas pelas emissoras de TV: cír- 
culos e linhas espaçadas a curta distân- 
cia, para testar o poder de definição de 
tela; padrões colocados nos cantos da te- 
la, para testar distorções marginais da 
imagem, e barras ou faixas de todas as 
cores disponíveis. 

Ao rodar o programa de teste, obser- 
ve primeiro se a imagem está bem cen- 
trada. Em alguns computadores, o ge- 
rador de vídeo não deixa margem na te- 
la, e, se ela estiver mal ajustada, haverá 
uma perda de gráficos e textos junto à 
borda. Muitos monitores e televisores 
dispõem de botões giratórios de ajuste 
de centralização e expansão de imagem, 
localizados atrás do aparelho.' Você po- 
derá usá-los para conseguir um resulta- 
do melhor. 

Verifique em seguida se as linhas dos 
retángulos junto às bordas da imagem 
não sofrem uma grande distorção (as li- 
nhas retas se transformam em arcos con- 
vexos: quanto menor o raio destes, maior 
a probabilidade de que o monitor seja 
de baixa qualidade). 

Todas as linhas aparecem nitidamen- 
te separadas umas das outras? Se isso 
não ocorrer, há problemas de definição 
na imagem, o que poderá prejudicar a 
legibilidade de textos. Em muitos mo- 
nitores e televisores, a resolução é me- 
lhor no sentido horizontal do que no ver- 
tical, ou vice-versa, devido à maneira 
como os pontos coloridos de fósforo são 
dispostos na tela. Monitores de boa qua- 
lidade têm resolução igual em todas as 
direções. 

Os círculos que o programa desenha 
não são perfeitos, tendendo a assumir 
uma forma ovalada? Este é um bom tes- 
te para uma das características dos ví- 
deos de boa qualidade, a chamada ra- 
zão de aspecto: para obtê-la, dividimos 
o diâmetro transversal do circulo pelo 
diâmetro vertical. Idealmente, é claro, 
o resultado deverá ser 1. 

Verifique também se as linhas apare- 
cem traçadas com nitidez ou se as bor- 
das e cantos parecem borrados. Um pro- 
blema desse tipo pode prejudicar a legi- 
bilidade de um texto na tela. 



Se o monitor ou TV for colorido, 
examine as cores das barras (ou das le- 
tras, no programa para o TRS-Color) na 
segunda parte do teste. Os cantos e bor- 
das das barras coloridas devem ser bem 
definidos, e a cor de uma barra não de- 
ve extravasar para outra. Como a den- 
sidade, brilho e a saturação das cores 
podem variar de vídeo para vídeo, ex- 
perimente mudar os controles do apa- 
relho, até obter a melhor combinação. 
Lembre-se de que diferentes ajustes de 
cor costumam ser necessários, confor- 
me a aplicação: texto puro, por exem- 
plo, requer pouca cor e brilho médio; 
um jogo exige muita cor e brilho. 

Os programas para o MSX e o TRS- 
Color permitem variar a cor de fundo na 
tela pressionando seguidamente a tecla 
< ENTER > , na última parte do progra- 
ma. Para interrompê-lo, pressione 
<BREAK> ou <CTRL><STOP>. 

No Apple e no TK-2000, os caracte- 
res de texto não podem ser coloridos. 
Assim, para testar a qualidade do vídeo 
quanto a este aspecto, interrompa o pro- 
grama e liste-o na tela. Observe se as le- 
tras aparecem em branco puro e se não 
há nenhum efeito de "arco-iris" (letras 
multicoloridas e borradas). 

Se você conhece um pouco de progra- 
mação gráfica em BASIC, não terá ne- 
nhuma dificuldade em modificar os pro- 
gramas aqui apresentados para torná-los 
mais completos ou atraentes. Procure 
alterar a combinação de cores de frente 
e de fundo, para verificar o efeito, gere 
mais uma tela de textos e caracteres grá- 
ficos etc. 



10 PMODE 4. 1:PCLS:SCREEN 1,1 
20 FOR K-0 TO 1:F0R J-0 TO 15 S 
TEP K+2 

30 LINE (K*16+J,K*16+J)-(255-K» 
16-J.191-K"16-J) ,PSET,B 
40 NEXT J.K 

.50 FOR K-100 TO 154 STEP 2:LINE 
(K.85)-(K,105) , PSET: LINE (113. K- 
32)-(141.K-32) ,PSET:NEXT 
60 FOR K-l TO 100 STEP 10:CIRCL 
E<127,95) ,K,5:NEXT 
70 IF INKEY3--" THEN 70 
80 PMODE 1,1:PCLS:SCREEN 1.0 
90 FOR J-0 TO 191 STEP 48:C0L0R 
J/48+1 
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Padrões de teste de vídeo utilizadas em diferentes computadores. 



100 LINEíO. J)-{255.J+47) .PSET.B 
F : NEXT 

110 FOB J-0 TO 255 STEP 63:FOB 
K-0 TO 63 STEP 4:COLOR J/63+1 
120 LINE(K+J,0)-(K+J.191) ,PSET 
130 NEXT K,J 

140 IF INKEYS-"" THEN 140 
150 S-l-StSCBEEN 1,S:GOTO 140 




5 FOB P-O TO 7: FOB i-0 TO 7 
: IF p-i THEN GOTO 200 

6 PAPEB p: INK ll BORDER 0: 
CLS 

10 FOR n-0 TO 12 STEP 2: PLOT 
n.n: DBA« 0,175-2"n: DRAW 255 
-2«n,0: DBAW 0 , - ( 175-2*n) : 
DBAW -(255-2*n) ,0: NEXT n 
20 FOR n-10 TO 20 STEP 2: 
CIBCLE INK i;12B,85,n: NEXT 

30 FOR n=5 TO 7: PBINT INK i 
; AT n.B;" * ; AT n+10,8;" ": 
NEXT n 

40 PBINT AT 4,B;: FOB P-0 TO 
1: FOB n-0 TO 7: PRINT PAPER 
n;" " i : NEXT n: NEXT m 
50 PBINT AT 18.8;: FOB m=0 TO 
1: FOB n-0 TO 7: PRINT PAPEB 

n;" "; : NEXT n: NEXT m 
55 PRINT AT 2,4;: FOB n-0 TO 
2: FOR B-0 TO 7: PBINT INK m 
i PAPER p;CHR$ ( 64+n* 7+m) ; : 
NEXT m: NEXT n 



57 PRINT AT 19.4;: FOR n-0 TO 
2: FOR m-0 TO 7: PRINT 
BRIGHT 1; INK m; PAPER p-.CHBS 
(64+n*7+ia) -, : NEXT m: NEXT n 
60 FOR n-0 TO 7: B0RP p R n: 
PAUSE 50: NEXT n: PAUSE 50 
200 NEXT l ! NEXT p 
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10 S-S+l: COLOB 15 . S . S : SCBEEN 2 
15 CL=15:IF S-15 THEN CL-1 
20 FOB K-0 TO 1 : FOR J-0 TO 15 S 
TEP K+2 

30 LINE(K*16+J.K»16+J)-{255-K*l 
6-J.191-K*16-J) ,CL,B 
40 NEXT J.K 

50 FOB K=100 TO 154 STEP3 : LINE { 

K,85)-(K,105) , CL : NEXT 

55 FOB K-65 TO 135 STEP3:LINE(1 

40 ,K) - (114 ,K) , CL: NEXT 

60 FOR K-l TO 100 STEP 10:CIRCL 

E (127. 95) ,K,CL:NEXT 

70 IF INKEYS- - " THEN 70 

80 COLOB 15. S, S :SCREEN 2 

90 FOB J-0 TO 191 STEP 13 

100 LINE(0,J)-(255,J+11) .J/13+1 

, BF : NEXT 

110 IF INKEYS-"" THEN 110 
130 GOTO 10 

BEQH 

10 HGB2 -LX = 279:LY - 180 
20 FOR XO - 0 TO 20 STEP 4 



25 LET YO - XOrLX - LX - 10:LY 

- LY - 10 
30 HPLOT XO.YO TO XO + LX.YO T 
O XO + LX.YO + LY TO XO.YO + LY 

TO XO.YO 
40 NEXT XO 

50 FOB Y - 60 TO 100 STEP 2 

55 HPLOT 110. Y TO 150. Y 

57 HPLOT 50, Y TO 70, Y: HPLOT 1 

90. Y TO 210, Y 

60 NEXT Y 

65 FOR X - 95 TO 165 STEP 3 
70 HPLOT X.6B TO X.93 

75 NEXT X 

85 FOR R = 10 TO 60 STEP 10 

66 HPLOT 130 + R.BO 

87 FOR A - 0 TO 6.4 STEP .1 

90 HPLOT TO 130 + R * COS (A 

) .80 + B * SIN (A) 

95 NEXT A: NEXT R 

100 GET AS 

105 TEXT : HOME 

110 GR :C = 0 

120 FOB I - 0 TO 36 STEP 3 

130 LET C - C + 1: COLOR- C: V 

LIN 1,15 AT I 

135 VLIN 1,15 AT I + 1: VLIN 1 

.15 AT I + 2 

140 NEXT I:C - 0 

145 FOB J - 18 TO 36 STEP 2 

150 LET C - C + 1: COLOB- C 

155 HLIN 0.38 AT J: HLIN 0,38 

AT J + 1 

160 NEXT J 

190 GET AS 

200 TEXT : HOME : END 
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BNTROLE A 



UMA ROTINA BÁSICA 



TESTANDO A ROTINA 



OUTRAS TECLAS DE RETORNO 
ENTRADAS SECRETAS 



ROTINA DE ENTRADA NUMÉRICA 



"Envenene" seus programas de entrada 
de dados com uma rotina de 
grande versatilidade. Ela substitui 
com vantagem o comando INPUT, 
superando várias de suas limitações. 

O comando INPUT satisfaz a maio- 
ria das necessidades de programação de 
entrada de dados. Em certas situações, 
porém, a utilização desse comando apre- 
senta alguns sérios inconvenientes. En- 
tre eles, podemos citar: 

- toda vez que o programa executa um 
comando INPUT, o cursor muda de li- 
nha na tela quando o usuário pressiona 
a tecla < ENTER > ; 

- um ponto de interrogação é sempre co- 
locado na tela (nos micros pertencentes 
às linhas TRS-80, TRS-Color e MSX), 
ou força a entrada na última linha (ca- 
so dos micros da linha Sinclair: ZX-81 
e Spectrum); 

- todos os caracteres digitados aparecem 
na leia: é impossível ocultá-los (como se 
faz, por exemplo, na entrada de uma se- 
nha secreta); 

-é necessário pressionar < ENTER > 
para terminar a entrada; 

- nào existe nenhum controle sobre os 
caracteres que estão sendo digitados. I)la 
linha TRS, por exemplo, se pressionar- 
mos a tecla de alimentação de linha (re- 
presentada pela flecha para baixo), pre- 
judicaremos a formatação de uma tela 
de entrada. 

É possível contornar todos os proble- 
mas mencionados recorrendo a uma ro- 
tina especial de entrada, que substitui o 
comando INPUT. 

Neste artigo, ensinaremos como de- 
senvolver essa rotina usando a função 
INKEYS, disponível no BASIC dos mi- 
cros pertencentes às linhas Sinclair, TRS 
e MSX, ou o comando GET, nos micros 
das linhas Apple e TK-2000. 



UMA ROTINA SIMPLES 



Inicialmente, vamos programar a ro- 
tina de entrada de dados da forma mais 
simples possível, para que você possa 
entendê-la sem dificuldade: 



1000 LET SS = "" 

1010 LET CS-INKEYS 

1020 IF CS-"" THEN GOTO 1010 

1022 LET C=A8C(CS) 

1025 IF C-13 THEN RETURN 

1030 LET SS-SS+CS 

1040 PRINT CS; 

1060 GOTO 1010 



Modifique as seguintes linhas, para 
micro ZX-81: 



Suprima a linha 1020 e substitua a li- 
nha 1010, para o programa funcionar no 
Apple e no TK-2000: 
1010 GET CS 

Teste a rotina, acrescentando a este 
pequeno programa: 

10 PRINT 

90 PRINT "ENTRE: " | 
100 GOSUB 1000 
110 PRINT 
120 PRINT SS 
130 GOTO 10 



El El 



Para evitar problemas de "estouro" 
da área alfanumérica, acrescente esta li- 
nha para o TRS-80 e TRS-Color: 
5 CLEAR 1000 



FUNCIONAMENTO DA ROTINA 



A linha 1000 inicíaliza a cadeia de saí- 
da, S$, que conterá tudo o que for digi- 
tado. As linhas 1010 e 1020 verificam se 
alguma tecla foi pressionada. Se a res- 
posta for negativa, o programa continua 
esperando. Caso contrário, o programa 
prossegue para a linha 1030, que testa 
se a tecla pressionada foi < ENTER > 
ou < RETURN > , que assinalam o fim 
da entrada de dados. Se foi outra tecla 
qualquer, ela é concatenada à cadeia de 



salda, na linha 1030, e impressa na li- 
nha 1040. Finalmente, o programa re- 
torna à linha 1010, para aguardar a pró- 
xima tecla. 



LIMITE PARA A ENTRADA 



Ao retornar da rotina, o cursor 
continua na mesma linha de entrada. A 
linha 100 força sua mudança para a li- 
nha seguinte, mas pode ser retirada, se 
necessário — por exemplo, se você esti- 
ver escrevendo um programa de forma- 
tação de tela de entrada, com vários 
campos da mesma linha. 

O programa principal pode ser mo- 
dificado de modo a colocar o cursor 
num ponto determinado da tela, antes 
de chamar a sub-rotina da linha 1000. 
Acrescente as seguintes linhas para ve- 
rificar o efeito obtido: 




APLICAÇÕES PARA A BOTINA 

A rotina apresentada neste artigo tem 
variadas aplicações. Usando a criativa- 
mente, você poderá trabalhar com diver- 
sas funções impossíveis de se obter com 
o BASIC. Essa rotina equivale, de fato. a 
um poderoso comando LINE INPUT que 
alguns interpretadores possuem. 

Em programas educativos e de jogos, 
você pode incluir uma função de atraso 
máximo de tempo dentro da rotina de en- 
trada — ou seja, a cada repetição do la- 
ço de varredura (apenas para as versões 
com o comando INKEYS). uma variável 
T de tempo pode ser incrementada. Ao 
sair da rotina, o programa tem acesso ao 
T total, informando ao usuário o tempo 
que levou para entrar os dados. 

Outra aplicação interessante consis- 
te em sair automaticamente da rotina 
quando um tempo máximo estipulado 
para a resposta foi ultrapassado — o 
que é últil em jogos de rapidez de ra- 
ciocínio, por exemplo. 



IHIIIIIIIIIII 



IIIIIIIIIHHH 




80 PRINT AT 10 . 10; 

IIÚ 

80 PRINT 128, ; 

fífi 

80 LOCATE 10,10 

a] si 

80 HTAB 10 : VTAB 10 



APERFEIÇOAMENTOS 



Como está, a rotina oferece poucos 
recursos e não apresenta vantagens de 
ordem significativa em relação ao co- 
mando INPUT. Mas existem várias ma- 
neiras de aperfeiçoá-la. Podemos, por 
exemplo, estabelecer um limite máximo 
para o número de caracteres que devem 
ser digitados, o que nos permitirá entrar 
dados sem a necessidade de pressionar 
a tecla <ENTER>. 

Acrescsnte esta linha à sub-rotina: 

sshhmse 

1050 IF LEN(S$)-MX THEN RETURN 

A variável MX, que indica o tama- 
nho máximo do campo, deve ser espe- 
cificada antes de se chamar a rotina. Pa- 
ra testá-la, acrescente estas linhas ao 
programa principal: 

20 PRINT "TAMANHO DO CAMPO "; 
30 INPUT MX 

Podemos ainda utilizar uma outra te- 
cla — como <SCAPE> — para con- 
cluir a entrada de dados. 

Substitua a linha 1025 por: 

SSOHWSE1 

1025 IF C-TX THEN RETURN 

Note que TX deve ser especificada 
pelo programa que chama a sub-rotina. 

Acrescente estas linhas, para testar a 
nova opção: 

40 PRINT "CÓDIGO DE TERMINO 
50 INPUT TX 

Uma rotina de entrada de dados tam- 
bém não estaria completa se não ofere- 
cesse ao usuário a possibilidade de cor- 
rigir erros, usando a tecla <BACKSPA- 
CE> ou <-. Adicione ao programa as 
I seguintes linhas: 



QHúEElM 

1026 IF C-3 AND LEN(SS)>0 THEN 
1070 

1070 LET SS-LEFT$(SS.LEN(S$)-1) 
1080 GOTO 1040 




1026 IF C = 8 AND LEN [S$. >0 THEN 
1070 

1070 LET SS-SSÍTO LEN(SS)-l) 
1080 GOTO 1040 




1026 IF C = H4 AND LEN(SS)>0 
THEN 1070 

1070 LET S$=SS(TO LEN (SS) "D 
1080 GOTO 1040 

A linha 1026 verifica se a variável de 
saída já tem no mínimo um caractere e se 
a tecla de correção foi pressionada (códi- 
go ASCII 8; em se tratando do ZX-81, de- 
ve ser pressionada a tecla < -, cujo códi- 
go é 114). 

Em caso positivo, a rotina desvia pa- 
ra a linha 1070, que extrai o caractere 
apagado e vai para a linha 1040. Esta 
faz retornar o cursor, imprimindo-a so- 
bre a posição anterior. 



ENTRADAS SECRETAS 



Se quiser que os caracteres digitados 
não apareçam na tela — para a entrada 
de uma senha secreta, por exemplo — , 
substitua a linha 1040 por: 

5 SHOWS] El 

1040 IF SX-1 THEN PRINT CS; 

A variável SX indica se o caractere 
digitado deve ser mostrado (SX= 1) ou 
não (SX < > 1). Para testar essa modi- 
ficação, acrescente as próximas linhas 
ao programa principal: 

60 PRINT "ENTRADA INVISÍVEL 
tSIM-0) "1 
70 INPUT SX 



ENTRADAS NUMÉRICAS 



Podemos tornar nossa rotina de en- 
trada ainda mais versátil. Uma opção in- 
teressante consiste em utilizar a chama- 
da censura de entrada, por intermédio 
da qual fazemos com que a rotina igno- 
re automaticamente toda tecla que não 
esteja incluída dentro de um determina- 
do conjunto de entrada. Essa alternati- 
va nos permite estabelecer que todas as 
teclas sejam maiúsculas, ou que não o- 




O que faz a instrução LINE INPUT? 

Esta resposta é dirigida aos usuários 
de computadores TRS-80 (com BASIC 
nível II), ZX-81, Sinclair, Apple e TK-2000. 
O BASIC padrão de suas máquinas não 
dispõe da instrução LINE INPUT, mas a 
sub rotina apresentada neste artigo po- 
de substituí-la muito bem. 

Como o nome sugere, a instrução 
LINE INPUT permite a entrada de' uma 
linha de texto pelo teclado. Essa linha 
é armazenada em uma variável literal 
ou string, nomeada pela instrução. Por 
exemplo: 

LINE INPUT X9 

Não podemos colocar outras variá- 
veis para entrada pela mesma instrução. 

Ao contrário da instrução INPUT, LI- 
NE INPUT não imprime na tela o ponto 
de interrogação - sinal de prontidão 
para o usuário -. o que dá uma maior 
liberdade de programação. 

O LINE INPUT aceita uma linha de 
texto contendo vírgulas, pontos e vír- 
gulas e outras pontuações - que nos 
obrigariam ao uso de aspas, para deli- 
mitar o string de entrada, caso utilizás- 
semos uma instrução INPUT. Assim, é 
ideal para a entrada em processamen- 
to de texto. 



corram certos caracteres, como vírgulas, 
ou, também, que a entrada seja apenas 
numérica. 

O procedimento é, na verdade, bas- 
tante simples. Para obter uma rotina de 
entrada numérica, por exemplo, basta 
que acrescentemos: 

SOOWSE 

1027 IF NOT (C>-43 AND C<-46) 
AND NOT (C>-4B AND C<=57) THEN 
GOTO 1020 




1027 IF C<>21 AND C022 AND 
C<>26 AND C< >27 AND NOT IO-28 
AND C<-37) THEN COTO 1020 

Essa linha verifica se o caractere en- 
trado está entre 0 e 9 ou se é um sinal 
de mais, de menos, vírgula ou ponto. Se 
não for um desses, retorna para a linha 
1020, de espera. 
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CONSULTA 
AOS ASTROS 



CARREIRA /DINHEIRO 



CONTATOSA/IAGENS 



PERSONALIDADE 



Muitas pessoas não saem de casa sem 
consultar o horóscopo: Você pode 
não ser uma delas, mas certamente se 
divertirá ouvindo o que o computador 
tem a dizer sobre seu destino. 



Astrologia e horóscopos intrigam as 
pessoas desde a Antiguidade, e lêm si- 



do motivo de muita controvérsia. Cien- 
tistas de histórico tão distinto, como 
Einstein e Jung, acreditavam na influên- 
cia dos astros sobre as pessoas — hipóte- 
se rejeitada pela maioria dos seus con- 
temporâneos. Estudos multidisciplina- 
res recentes, contudo, têm apresentado 
algumas evidências difíceis de se refu- 
tar. Seja como for, o papel dos astros 
na determinação da personalidade e do 
destino dos seres humanos é uma ques- 



tão que permanece aberta ã discussão 
Ainda que o tema não o apaixone 
você poderá passar horas muito agrada 
veis com seus amigos em torno de ui 
computador astrólogo. Para atribuir 
máquina esse papel, basta digitar o pro- 
grama aqui apresentado. Ele fornecerá 
características de personalidade de ca- 
da um de acordo com seu signo solar 
assim como as previsões para o próxi 
mo ano. Estas se dividem em quatro ca- 
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tegorias: Dinheiro/Carreira, Conta- 
tos/Viagens, Família e Amor. 

Como os horóscopos publicados nos 
jornais, o nosso também não leva cm 
conta a hora exata do nascimento — da- 
do que os astrólogos usam para forne- 
cer uma leitura mais completa do mapa 
astral de seus clientes. 



OPÇÕES 



O programa pede a data dc nascimen- 
to do consulente e dÍ2 o seu signo. 
Oferece-lhe, em seguida, duas opções: 
obter um perfil de sua personalidade ou 
as previsões para o próximo ano. 

Se o consulente escolher a primeira 
alternativa, o programa selecionará duas 
sentenças relacionadas ao seu signo, das 
oito que tem guardadas na memória. Se 
optar pela segunda, terá que indicar um 
dos seguintes tópicos: Dinheiro/Carrei- 
ra, Contatos/Viagens, Família e Amor. 
Duas previsões vão então aparecer. A 
máquina tem somente duas guardadas 
para cada tópico (por signo); portanto, 
não haverá nenhuma variação na res- 
posta, se você fizer novamente a mes- 
ma escolha. 



0 PROGRAMA 



Uma parte do programa é específica 
para cada computador. As linhas DA- 
TA são comuns a lodos, embora algu- 
mas alterações sejam necessárias, como 
mostramos mais adiante. 



5 POKE 23658.8 
10 INPUT 'DIGITE SUA DATA DE 
NASCIMENTO CDIA, MES , ANO) 
X.Y.Z 

20 IF X<1 OR X>31 OR Y<1 OB Y 
>12 THEN GOTO 10 
40 GOSUB 700 

90 CLS : PBINT AT 1,1; "SEU SI 

GNO E " : INVERSE 1 ;A3 
100 PBINT AT 5. li" VOCE DESEJA 
:"''TAB 3;"<1> PEHFIL DE PEBSO 
N AL IDADE" ' TAB 3;"<2> PREVISÃO 
PARA 1988"TAB 3:"<N> ENTRAB N 
OVA DATA" 

120 LET KS=INKEYS i IF KS<"1" 
OB KS>"5" AND K3<>"N" THEN 
GOTO 120 

130 IF KS="2" THEN GOTO 300 
140 IF KS="N" THEN GOTO 10 
150 CLS : PBINT AT 0.15-{<LEN 
(AS))/2) ;AS 
160 FOR B=l TO 2: LET A-INT [ 
RNDMJ + l 

170 FOR N=l TO A: READ BS.CS.D 
3: NEXT N 

180 PRINT PBINT BS'CS'DS: 

NEXT B: PAUSE 0: GOSUB 700: 
GOTO 500 

300 CLS : PBINT AT 8,8;"PREVIS 




AO SOBBE :""TAB 4;"<1> DINHEI 
BO/CARREIRA" 'TAB 4:"<2> CONTAT 
OS/VIAGENS" 'TAB 4;"<3> FAMÍLIA 

" 'TAB 4 ; "<4> AMOB " 
310 LET KS=INKEYS : IF K$="" 
THEN GOTO 310 
320 IF KS<"1" OB K$>"4" THEN 
GOTO 310 

330 BESTOBE {4000+320* (ST-1 )) : 
FOB T-l TO (VAL KS) -1 : FOR N=0 
TO 7: READ BS : NEXT N: NEXT T 
335 CLS : PBINT AT 1,15- ((LEN 
AS) /2) ;AS" ' 

340 FOR T=0 TO 7: READ B3 : 

PRINT BS ' : NEXT T 

500 PRINT AT 21. 10: "OUTRA VEZ 

510 IF INKEYS="S" THEN GOTO 
90 

520 IF INKEYSO"N" THEN GOTO 
510 

530 STOP 

700 FOR T=l TO 12: RESTORE ( 

1000+250* (T-l) ) 

710 READ AS. A, B, CD 

720 IF B=Y AND X>=A THEN LET 

ST-T: LET T-12: NEXT T: RETURN 

730 IF D°=Y AND X< = C THEN LET 
ST=T: LET T-12: NEXT T: RETURN 

740 NEXT T: RETURN 

U 

10 PCLEAR 1 

20 DIM H$C11.7,3) .DO, 11) .83(11 
) .PSU1.3.7) 

30 FOR K-0 TO 11 ; READ SS(R>.D(Q 
,K) ,D(1,K) ,D(2.K) ,D<3.X) :FOR J- 
0 TO 7:FOR L-0 TO 2 : READ HS(K.J 
,L) : NEXT L.J.K 

40 FOR K-0 TO ll:FOR J-0 TO 3:F 
OR L-0 TO 7: READ PS (K . J , L) : NEXT 
L.J.K 

50 CLS:INPUT"DIGITE SUA DATA DE 
NASCIMENTO (DIA. MES E ANO) * ; 
D,M, A: D-INT (D) :M-INT(M) 
60 IF D<1 OR D>31 OR M<1 OR M>1 
2 OR (D>30 AND (M=4 OR M-6 OR M= 
9 OR M=10)) OR |D>29 AND M*2)TH 
EN 50 
70 SS-0 

80 IF M-CD(l.SS)+12MSS-2 AND M- 

1) OR M>D(3.SS)-12*(SS-2 AND M- 

12) OB (M-D(l.SS) AND D<D(0.SS) 

) OR(M=D(3.SS)AND D>D{2,SS)) TH 

EN SS-SS+1 :GOTO 80 

90 CLS:PBINT"SEU SIGNO E ";SS(S 

S) 

100 PBINT : PBINT TAB ( 10 ) "VOCE DE 
SEJA: " 

110 PRINT : PBINT TAB(3}"1- PERFI 

L DE PERSONALIDADE" 

120 PRINT TAB(3)"2- PREVISÃO PA 

RA 1988" :PRINT:PBINT TAB (3) "N- 

ENTRAR NOVA DATA" 

130 KS-INKEY$:IF KS<"1" OR(KS>" 

2" AND KS<>"N")THEN 130 

140 IF KS="2* THEN 190 ELSE IF 

KS-"N" THEN 50 

150 CLS:PBINT 616-LEN {SS (SS) ) /2 
.SS(SS) :PRINT 
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160 C-8:FOB K-l TO 2:B-RND(S|-1 
:IF BOC THEN C = B ELSE K-1:NEXT 
170 FOR L-0 TO 3:PBINT #L*32+K* 
12B,HS(SS.C,L) : NEXT L.K 
180 GOTO 240 

190 CLS : PHINT ê2 „ "VOCE GUEB SAB 
EB SOBRE : " 

200 PBINT : PRINT" 1- DINHEIBO/C 
ABRE IRA" : PRINT" 2- CONTATOS/VI 
AGEN5" : PRINT" 3- FAMÍLIA" : PRIN 
T" 4- AMOR" 

210 KS-INKEYS:IF K$<"1" OR KS>" 
4" THEN 210 

220 CLS:PRINT S16-LEN {SS (SS) )/2 
,SS(SS) : PBINT 

230 FOR K-0 TO 7 : PRINT «64+32*K 
-32*(K>3) .P$(SS,VAL(KS)-1,K) : NE 
XT 

240 PRINT §448." OUTBA VEZ (S/N 
) ?" 

250 KS=INKEYS:IF KSO"S" AND K$ 
<>"N- THEN 250 

260 IF KS-"S" THEN 90 ELSE CLS: 
END 

Wi 

20 DIM HS til .7. 3) ,D{3,11) .SSÍ11 
) .PStll .3,7) 

30 FOB K-0 TO llrBEAD S$(K).D(0 
,K) ,D(1 ,K) ,D(2.K> ,D(3.K) :FOR J- 
0 TO 7:FOR L=0 TO 2 : READ HS(K.J 
,L) : NEXT L,J,K 

40 FOR K-0 TO ll:FOR J-0 TO 3:F 
OB L-0 TO 7: READ PS (K , J , L) :NEX 



T L.J.K 

50 CLS:INPUT"DIGITE SUA DATA DE 
NASCIMENTO (D.M.A) ";D.M,A:D=I 
NT (D! :M=.1NT(M) 

60 IF DO OB D>31 OR M<1 OR M>] 
2 OB (D>30 AND (M=4 OR M=6 OR M 
-9 OR B=LD) OR (D>29 AND M = 2) 
THEN 50 
70 SS-0 

80 IF M<D { 1 . SS) +1 2* (SS=2 AND M= 

1) OR M>D(3,22)-1?*(SS=2 AND M= 

12) OR (M-DU.SS) AND D<D(0,SS) 

) OR (M-DI3.SS) AND D>D (2 , SS) ) 

THEN SS=SS+1 : GOTO BO 

90 CLS : PH INT "SEU SIGNO £ ":SS( 

SS) 

100 PRINT : PRINT TAB (10): "VOCE D 
ESEJA 

1)0 PHINT : PRINT TAB{3);"1- PEBF 

IL DE PERSONALIDADE" 

120 PRINT TAB<3);"2- PBEVISAO P 

ABA L988" : PRINT: PRINT TAB(3);"N 

- ENTRAR NOVA DATA" 

130 K$=TNKEYS ! IF KS<"1" OR (KS> 

"2" AND KSO"N") THEN 130 

1.40 IF KS = "2" THEN 190 ELSE IF 

KS-"N" THEN 50 

150 CLS: PRINT TAB(20-LEN(SS(SS 

))/2) ;SS(SS) :PRINT 

160 C-B: FOR K-l TO 2:B»B*RND(- 

TIME)-1:IF BOC THEN C-B ELSE K 

=1:NEXT 

170 FOB L=0 TO 3 : LOCATE { (L*32+K 
*1 28) MOD32) +4 . TNT ( (L*32 + K*l 2B) / 
32):PRTNT HS (SS . C , L) ; NEXT L , K 



180 GOTO 240 

190 CLS:PRINT TAB ( 1 0) ; M PREVISÃO 
SOBRE : " 

200 PBINT : PRINT" 1- DINHETRO/CA 
RREIHA" : PRINT" 2- CONTATOíí/VTAG 
ENS" : PBTNT" 1- FAMTLIA" : PB TNT" 
4- AMOR" 

210 KS-INKEYS:IF KS<"1" OR KS>" 
4" THEN 210 

220 CLS:PR1NT TAB {20-LEN (SS (SS) 
) /2) ; SS (SS) : PRINT 
230 FOH K=0 TO 7 : LOCATE (64-* 32»K 
-32* (K>3) JMOD32 . TNT ( (64+32"K-32 
* (K>3) ) /32) 'PRINT PS(SS.VAHKS) 
-] ,K) ! NFXT 

240 PBINT TAB (10) ; " OUTRA VEZ (S 
/ti)?' 

250 KS = TNKEYS : TF KSO"S" AND KS 
<>"N" THEN 250 

260 IF KS="S" THEN 90 ELSE CLS: 
END 



ú 

10 HOME 

20 DIM HS(n .7. 3) ,D(3,11) .SSI1 
1 ) ,PS (11 , 3.7) 

30 FOR K • 0 TO 11: READ SS(K) 
.D(O.K) .D(l.K) .D(2.K) .D(3,K) : F 
OR J = 0 TO 7 : FOR L - 0 TO 2: 
READ HS(K.J.L): NEXT L.J.K 
40 FOR K-0 TO 1 i : FOR J-0 
TO 3: FOR L = 0 TO /: READ PS(K 
. J.L) : NEXT L.J.K 
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SO HOME : PRINT "DIGITE SOA DA 
TA Dt NASCIMENTO (D.M.A) ": INP 
UT D. M , A : D = INC (D) :M - INT 
(M) 

60 IF D < 1 Oíl D > 31 OH M < 1 
<>R M > 12 OH IO > 30 AND (M ■ 

4OBM-6 0BM- 4 OB M ■ 1 1 ) ) 
0R (D > 29 AND M ' 2) THEN 50 

70 KS * O 

no ti H < 0(1>68) - 12 * tss ■ 

2 AND M = 1) OH M > D(3,SS) ' 
12 * (SS = 2 AND M = 12) OB (M 
iND D < [HO, SS) ) OB ( 
AND D > DÍ2.SS) ) TH 
+ 1 : COTO BO 
PR I NT " SEI) SIGNO E " 



90 



l 1 . SS ) I 

D{3,S9 
98 - SS 

HOME : 

3 (SS) 



100 PRINT : IITA1J (10): PHINT " 
VOC8 DESEJA: " 

[ 10 PHINT : PB I NT TAB I 3) " 1- 

PEBFIL DE PKHSONAL IDADE" 

120 PHINT TAP ! 3)"2- PREVISÃO 

p AH A 19RB" ! PHINT : PBINT TAB 
( 3t"N- ENTHAH NOVA DATA" 
130 O Et K5: IF KS < "1" OB (KS 

> "2" AND KS < > "N") TH KM 13 

0 

140 11 KS " "2" THEN 190 
14b IF KS - "N" THEN SO 
LM HOME : LET CE - 20 - LEN 
|SS(SS)) / 2: HTAB ICE): PHINT 
SS !SS) : PBINT 

160 C - B : FOR K = 1 TO 2 : B = 
INT ! HND (1 ) * 8) : IF B < > C 
THEN C = B: IF B = C THEN K • 



1 ! NEXT 

170 FOB L = 0 TO 3: LET WW = L 

* 32 + K * 123: HTAB (WW - 32 
* INT (WW / 32)): VTAB ( INT ( 
WW / 32}): PBINT HS(8S,C,L): NE 
XT L.K 

180 GOTO 240 

190 HOME : PBINT TAB { 10) "VOC 
E DESEJA : " 

200 PRINT : PRINT " 1- DINHEI 
HO/CARBEIBA" : PRINT " 2- CONTA 
TOS/VIAGENS": PBINT " 3- FAMIL 
IA" : PRINT " 4- AMOR" 
210 GET KS: IF KS < "1" OR KS 
> "4" THEN 210 

220 HOME :CE - 20 - LEN (SS (S 
S)) / 2: HTAB (CE): PBINT SS (SS 
) : PBINT 

230 FOB K - 0 TO 7 



32 



32 ■ 



(K 



LET YY - 6 
> 3) : HTAB 

32)) : 




INT (YY 

AB ( INT (WW / 32)): PBINT PS(S 
S. VAL (KS) - l.K) : NEXT 
240 VTAB (18): PBINT " OUTRA V 
EZ (S/N) ?" 

250 GET KS: IF KS < > "S" AND 

KS < > "N" THEN 250 
260 IF KS " "S" THEN 90 
270 IF KS = "N" THEN HOME : E 
ND 



As linhas a seguir podem ser intro- 
duzidas como eslão no MSX e no Ap- 
ple. Se você possui um TRS-Color, de- 
ve usar aspas em todas as linhas DATA 
que contêm dois pontos (:) ou virgula. 
Os usuários do Specirum precisarão usar 
aspas em todas as linhas, exceto naque- 
las que contêm números. 



uso 

1330 
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6390 t 
6400 I 
6410 E 



7260 DATA pata 
7270 DATA ■ 




COMO APERFEIÇOAR O PROGRAMA 

Embora seja muito divertido, o pro- 
grama de horóscopo apresenta uma sé- 
ria desvantagem: não renova as inter- 
pretações e previsões, a não ser por um 
sorteio muito restrito. Assim, ele "per- 
de a graça" depois de uma ou duas 
consultas. 

Se você conhece um pouco de pro- 
gramação BASIC, porém, poderá mo- 
dificar o programa e tornar seu interes- 
se mais duradouro. Eis aqui algumas 
práticas sugestões: 

— aproveite a ideia adotada em nosso 
programa original e aumente o núme- 
ro de alternativas de interpretação do 
horóscopo para cada signo. Se você 
colocar oito ou dez alternativas mais 
curtas para cada signo, e usar o gera- 
dor de números aleatórios para esco- 
lher uma delas, diminuirá a chance de 
que o programa se repita; 

— além do signo do zodíaco Ique cor- 
responde a constelação que está no 
ponto mais alto do céu, no momento 
do nascimento), existe o signo ascen- 
dente ique é a constelação que está 
apontando no horizonte no momento 
do nascimento!. Inclua-o no programa, 
com o conjunto de interpretações cor- 
respondente; 

— armazene os textos de interpretação 
em um arquivo de disco, separadamen- 
te do programa. Depois que o signo da 
pessoa foi determinado, o texto corres- 
pondente será carregado na memória 
e mostrado no video. Você poderá, as- 
sim mudar constantemente os textos, 
sem precisar alterar o programa pro- 
priamente dito. 



7490 c 
7S00 c 
7510 r. 
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ÂVÂLANO 
COMEÇA ( 



ORDEM DE CHAMADA 



RECOMPENSA, MO R TE OU VIDA 
CÂMARA LENTA 



Na base da encosta, Willie permanece 
em compasso de espera. 0 cenário 
está completo - com pedras, buracos, 
cobras e mar. Para que o jogo 
comece, falta só um comando: "Ação!" 



Até agora, você digitou e testou se- 
paradamente as várias rotinas que com- 
põem o videogame A valanche. Neste ar- 
tigo, fornecemos a rotina final, que cha- 
ma Iodas as outras na ordem certa e exe- 
cuta o jogo completo. 

Depois de digitar e rodar esta rotina, 
comece a jogar. Certamente você se sen- 
tirá recompensado por todo o trabalho 
que teve. 

Caso o programa não funcione ade- 
quadamente, confira-o com a listagem 
completa e revisada (veja o próximo ar- 
tigo desta série). 



A rotina a seguir é o laço principal 
que completa o jogo: 

10 BEM org 5B702 

20 BEM alp cal 1 59153 

.10 REM call 58993 

40 BEM call 59823 

50 REM call 58B82 

60 REM call 5B795 
58751 



150 REM < 

160 REM . 

I 70 REM ( 

180 REM 

190 REM : 

200 REM I 

210 REM . 

220 REM l 



157336) 



59788 



70 REM ca 

80 REM ld 

90 REM cp 
100 BEM jp 
110 REM cp 2 
120 REM jp z,59652 
130 BEM dll ld b,50 
140 REM tJelb ld a, 255 
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Quando essa rotina e o restante do 
programa estiverem na memória, come- 
ce o jogo digitando a instrução: 
LET L=USH 58576 

Como você deve ter notado, ela cha- 
ma o endereço do rótulo gbin, que está 
na origem da rotina de inicialização do 
jogo, no artigo da página 969. 



A rotina principal chama, nesta or- 
.dem, a rotina de movimentação de Wil- 
llie, em 59153; a rotina das pedras, em 
58993; a rotina das cobras, em 59823; 
a rotina do mar. em 58882; a rotina da 
nuvem, em 58795, e a rotina das gaivo- 
| tas, em 58751. 



RECOMPENSA, MORTE OU VIDA 



■ Em seguida, a rotina verifica a eha- 
Imada variável da morte. Ela é transfe- 
Irida de 57336 para o acumulador e com- 
Iparada com I. Se este for o seu valor, 
Da instrução jr z manda o processador pa- 
ira a rotina da recompensa, no endereço 
159788. Essa rotina incrementa o escore 
fe coloca uma nova teia. 
li O conteúdo do acumulador é então 
Jlcomparado com 2. Se ele contém esse 



valor, o processador é mandado para a 
rotina da morte, no endereço 59652. Es- 
ta é a rotina que enterra Willie e encer- 
ra a 



Se o processador fosse instruído só 
para executar repetidamente a rotina fi- 
nal, a cada vez ele chamaria todas as ou- 
tras rotinas na memória, e o jogo seria 
tão rápido que se tornaria impraticável. 
Assim, para tornar o movimento mais 
lento, dois laços são construídos, o que 
atrasa o processador em dois centésimos 
de segundo. Pode não parecer muito, 
mas, considerando-se que a rotina é cha- 
mada seguidamente, trata-se de um tem- 
po significativo. 

B é carregado com 50. e A, com 255. 
A seguir, o conteúdo de A é decremen- 
tado. A instrução jr ai manda o proces- 
sador para o laço dela 256 vezes, para 
que A seja decrementado até 0. 

A instrução djnz decrementa o con- 
teúdo do registro B e faz o processador 
voltar e carregar A com 255 de novo. Is- 
so é feito até que B acabe sendo reduzi- 
do a 0. Portanto, o laço externo é exe- 
cutado cinquenta vezes, e o interno, 255 
x 50 vezes. 



O registro B contém o valor 50 ape- 
nas quando o jogo começa. Ã medida 
que Willie recupera seu lanche, um no- 
vo valor é colocado no endereço ocupa- 
do por 50 na instrução Id b. Se você vol- 
tar ao programa dos prémios, verá que 
o valor nesse endereço é carregado em 
A, decrementado e colocado de volta em 
B cada vez que Willie recupera um item 
do seu lanche. Essa operação resulta, 
efetivamente, em uma alteração no pro- 
grama — ou seja. uma rotina altera ou- 
tra rotina. Tal expediente só é recomen- 
dável quando seus efeitos forem total- 
mente controlados. 

O processador executará o laço de 
atraso uma vez menos, acelerando o jo- 
go em cerca de 90 microssegundos. 



Como todo bom programa, este tam- 
bém oferece ao usuário a alternativa de 
interromper a execução, sem ter que des- 
ligar o computador e perder tudo o que 
está na memória. 

Neste ponto do programa, precisa- 
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mos verificar se a tecla < BREAK > foi 
pressionada. Para isso, usamos o co- 
mando in. Se < BREAK > não foi pres- 
sionada, a instrução jr nz, alp faz o pro- 
cessador iniciar o laço principal outra 
vez. Se foi, o processador encontra a 
instrução ret e volta para o BASIC. 



O programa a seguir é o laço princi- 
pal que completa o jogo. 
10 ORG 20932 



ALP LDA »5 

STA 18258 
CLB 18261 
JSR ELB 
BLP JSR MAN 
JSR BAR 
JSR SNK 
JSR SEA 

JSR MOVSUN 

LDA 18252 

CMPA tl 

LBEQ RU D 

CMPA #2 

LBEQ DIE 

DLL LDB 1100 



160 
190 

200 

210 

220 

230 
240 
250 

260 

270 

230 
290 
300 
310 
320 
33(1 



DEL CLRA 
DELA DECA 
BNE DELA 
DECB 
BNE DEL 
JSR 41409 
CMPA *3 
BNE BLP 
RTS 

MOVSUN EQU S4D0F 
ELB EQU S4B59 
MAN EQU S4DBE 
SNK EQU 35178 
SEA EQU S4CDE 
RWD EQU S50P1 
DIE EQU S5050 
BAR EQU 34045 



Carregue a parte já digitada de A va- 
lanche e monte esse programa no topo. 

10 ORG 19572 
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PREPARANDO A ROTINA 



A é carregado com 5, valor armaze- 
nado em 18258, para ajustar o atraso do 
sol. A posição de memória 18261, que 
contém a variável do salto, é carregada 
com 0. Garantimos, assim, que Willie 
não apareça saltando na tela. 

O processador vai para a rotina ELB 
e define os bits necessários para os ní- 
veis superiores do jogo. Segue, então, 
para a rotina MAN, que cuida do mo- 
vimento de Willie e, em seguida, salta 
para BAR, SNK, SEA e MOVSUN — 
rotinas que movimentam, respectiva- 
mente, a pedra, as cobras, o mar e o sol. 



O conteúdo da variável morte, em 
18252, é carregado no acumulador e 
comparado com I. Se seu valor for igual 
a L Willie conquistou um prémio. 
LBEQ faz o processador executar um 
longo desvio para a rotina que oferece 
a Willie sua recompensa. 

Se a variável morte não for igual a 
1, CMPA #2 verifica se seu valor é 2. 
A presença desse número indica que 
Willie está morto — o processador se 
desvia então para a rotina D1E, que to- 
ma todas as providências necessárias pa- 
ra os funerais. 



presentação binária. A instrução BNE 
verifica se A chegou a 0; se ainda não 
chegou, é novamente decrementado. 
Caso contrário, o processador sai fora 
desse laço. Em seguida, decrementa B 
e salta para o laço interno, onde A é de- 
crementado. Isso é feito até que B tenha 
chegado a 0. 

Em outras palavras: no início, o pro- 
cessador rica no laço 256 x 100 vezes, 
para tornar a execução mais lenta. Po- 
rém, quando Willie consegue uma re- 
compensa, o jogo se acelera, pois o pro- 
cessador fica nesse laço apenas 256 x 
99 vezes, ou 256 x 98 ou 256 x 97 e 
assim por diante. 



B é carregado com 100, funcionan- 
do como contador para o maior laço de 
atraso. Note que a posição de memória 
ocupada por 100 quando o programa é 
montado — S51EE — equivale ao byte 
decrementado na rotina do escore. 

A é apagado e decrementado, o que 
torna seu conteúdo, 255 igual a -1 na re- 




Para examinar o teclado, saltamos 
para a sub-rotina em 32774. Verificamos 
então se a tecla < BREAK > foi pres- 
sionada, comparando o valor recebido 
no acumulador com 3. 

Se a tecla não foi pressionada, a ins- 
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Iruçâo BNE volta para dar prossegui- 
mento ao jogo. Caso contrário, o pro- 
cessador continua, encontra RTS e re- 
torna para o BASIC. 



Acrescentamos um último detalhe ao 
programa. Na rotina que seleciona a tela 
apropriada e ajusta o escore havia, ori- 
ginalmente, um RTS e duas instruções 
NOP. Elas foram usadas para reservar 
o espaço em que colocaríamos uma ins- 
trução de salto, que iria funcionar quan- 
do o jogo fosse executado pela primei- 
ra vez. Não podíamos introduzir essa 
instrução antes de escrever a rotina de 
acionamento. Agora que o programa es- 
tá pronto, montamos um JMP ALP na- 
quele endereço. Com isto, fechamos o 
círculo, completando Avalanche, nosso 
videogame em Assembler. 



mi 

O programa a seguir é o laço princi- 



pai que completa o jogo: 


10 


org 54101 


20 


jg call 54603 


30 


call -11136 


10 


call 55564 


so 


call -1131B 


60 


call -11266 


70 


call -11380 


8 0 


Id a, {-5201) 


90 


cp 1 


100 


JV z. 55506 


110 


cp 2 


120 


jp z, 55334 


130 


ld b,50 


HO 


atr ld a, 255 


150 




160 


jr nz!dl 


i 76 


djnz atr 


180 


ld a, 7 


190 


call 321 


200 


bit 4, a 


2 10 


jr nz.jg 


220 


ret 


230 





Quando essa rotina e o restante do 
programa já estiverem na memória, dê 
início ao jogo executando o pequeno 
programa BASIC: 

.1681 




Como você deve ter notado, esse pro- 
grama chama o endereço inicial da ro- 
tina que inicializa o jogo, publicada no 
artigo da página 969. 



O laço principal chama, nesta ordem, 
a rotina de movimentação de Willie, em 
54603; a rotina das pedras, em -1 1 136; 
a rotina das cobras, em 55564; a rotina 
do mar, em-1 1318: a rotina da nuvem, 
em -1 1266, e a rotina das gaivotas, em 
-11380. 



PREMIO. MORTE OU VIDA 



Em seguida, a rotina verifica a cha- 
mada variável da morte. Ela é transfe- 
rida de -5201 para o acumulador e com- 
parada com t. Se este for o seu valor, 
a instrução jp z manda o processador 
para a rotina da recompensa, no ende- 
reço 55506. Essa rotina aumenta os pon- 
tos de Willie e seleciona um nível maior 
de dificuldade. 

O conteúdo do acumulador é compa- 
rado com 2. Se ele contém esse valor, 
o processador é mandado para a n 
da morte, em 55334. Essa rotina ente 
ra Willie e encerra a partida. 



Se instruíssemos o processador para 
executar continuamente esse laço, a ca- 
da volta ele chamaria todas as rotinas 
da memória com crescente velocidade, 
tornando o jogo impraticável. Para lor- 
nar a execução mais lenta, montamos 
laços de atraso, como já fizemos na 
rotina da morte. 
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B é carregado com 50, e A, com 255. 




A seguir, o conteúdo de A e decremen- 
tado. A instrução jr nz faz o processa- Como todo bom programa, este tam- 

dor continuar a decrementar A, no la- bém oferece ao usuário a alternativa de 

ço dl, até que seu valor seja 0. interromper a execução, sem ter que des- 

A instrução djnz decrementa o con- ligar o computador e perder tudo o que 

teúdo do registro B e faz o processador está na memória, 
voltar ao rótulo atr e carregar A com Neste ponto do programa, pre- 

255 de novo. Isso é feito até que B se cisamos ver se <STOP> foi pres- 

reduza a 0. Portanto, o laço exierno é sionada. Essa operação é idêntica à 

executado cinquenta vezes, e o laço ín- que executamos para checar se M 



O registro B contém o valor 50 só de movimentação de Willie. 
quando o jogo começa. À medida que O número 7 é carregado no aeu- 

Willie recupera seu lanche, um novo va- mulador e a rotina 321 da ROM é 

lor é colocado no endereço ocupado por chamada. O número em A corres- 

50 na instrução ld b. Se você voltar à ro- ponde à linha da matriz do teclado 

tina do escore, verá que o valor nesse en- na qual está a tecla que desejamos 

dereço (54133) é decrementado cada vez verificar. Se alguma tecla dessa linha foi 

que Wiilie recupera uma pane de seu pressionada, a rotina 321 coloca o va- 

lanche. Essa operação resulta, efetiva- lor 1 no bit do acumulador correspon- 

mente, em uma alteração no próprio dente a ela. 

programa — ou seja, uma rotina altera A instrução bit 4,a examina o bit 4 

outra rotina. Esse expediente só é reco- do acumulador, que corresponde à te- 

mendável quando seus efeitos forem cia <STOP>. Se ela não foi pressio- 

controlados. nada, a instrução jr nz, jg faz o proces- 

Diminuindo o valor carregado em B, sador reiniciar o laço principal, jg. Ca- 

o processador executará o laço interno so contrário, o processador enconlra a 

256 vezes menos, acelerando o jogo. instrução rei e volta para o BASIC. 



terno, 255 x 50 vezes. 
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O PINTOR 



OBJETIVO DO JOGO 



O ROLO E A TINTA 



SOMA DE VERIFICAÇÃO 



NÍVEIS DE DIFICULDADE 



Este divertido jogo é um bom treino 
para os pintores "de fim de semana". 
Manejando o rolo, eles devem impedir 
que a tinta escorra pela parede 
e manche seu precioso carpete... 



Manchar o carpeie de tinta é um dos 
pesadelos dos pintores domésticos. Eis 
aqui uma boa oportunidade para que 
aprimorem sua técnica de trabalho e dei- 
xem de fazer tanta sujeira e provocar 
tanta confusão na casa, 

O objetivo do jogo é impedir que a 
tinta, que escorre pela parede (a tela), 
chegue até o chão (linha inferior da te- 
la). Para isso, você deve movimentar um 
rolo de pintura (um sinal gráfico hori- 
zontal, na tela), usando as teclas de con- 
trole do cursor. 



VERSÕES DO PROGRAMA 



O programa é apresentado em duas 
versões: uma para os microcomputado- 
res compatíveis com a linha Sinclair 
Specirum (TK-90X), e outra, para os da 
linha TRS-Color. Ambas utilizam códi- 
go de máquina, para que os cálculos se- 
jam efetuados com a rapidez necessária. 

Os programas em código de máqui- 
na estão incluídos no programa em BA- 
SIC, na forma de listagens numéricas 
decimais, dentro de linhas DATA. O 
programa de carregamento vê se os có- 
digos foram digitados corretamente, por 
meio de somas de verificação (check- 
sum). Apesar disso, convém gravar o 
programa em fita ou disco antes de usá- 
lo, pois um só código errado poderá da- 
nificar o conteúdo da memória. 



1 Cl EAR 28761: GOSUB 100 
5 CLS : PRINT AT 8, 2: "DIGITE 
NÍVEL DE DIFICULDADE" ' TAB H 
;"<1> MUITO FÁCIL" 'TAB 8;*<2 
> FÁCIL" " TAB 8;"<3> NORMAL"' 
TAB 8;"<4> DIFICIL"'TAB 8:"< 
5> IMPOSSÍVEL" 



6 LET DS-INKEYS: IF DS<"1" 
OP. DS>"5" THEN GOTO 6 

7 POKE ZB951, t (DS-" 1 ") '200) + 
( (DS-"2")*175)+( (DS«"3"1 «80) 
+ í(DS-"4")M0) + (D$-"5") 

10 BORDER 0: PAPEH 7: 1 NK 2: 
CLS : LET a$-*": FOR n-1 TO 
32: LET aS"*S+" ": NEXT n 

14 POKE 28953,0: FOR n-l TO 4 
: PRINT PAPER 2;aS:: NEXT n 

15 FOR N-19 TO 21: PRINT 
PAPER 6: AT N,0;A$: NEXT N 

16 PLOT 0,143: DRAW 255,0 
20 RAND tJSR 28672: RAND HSR 
28702 

40 PRINT AT 12,7; FLASH 1| 
PAPER Sl INK 0;" F I M DE 

JOGO"*' FLASH OiAT 14 . 7 
; PAPER 7; "PLACAR FINAL ":: 
LET BS-": FOR N-28945 TO 
28950: LET BS=BS*CHRS (PEEK N 
) : NEXT N: PRINT BS 
45 FOR N=l TO 500: NEXT U 
50 IF INKEYS-"" THEN GOTO 50 
60 RON 5 
100 LET L-500: R ESTORE L: FOR 
N-28672 TO 28961 STEP 8 
110 LET T-0: FOR D-0 TO 7: 
READ A: POKE N+D, A 1 LET T-T+A: 
NEXT D 

120 READ A: IF AOT THEN 
PRINT "ERRO NOS DADOS DA LINHA 

":L: STOP 
130 LET L-L+10: NEXT N: RETURN 
500 DATA 33.34.113,6,0,62.32, 
119,399 

510 DATA 35. 16, 252 , 33 , 128, ] 00, 
.14.32.630 

520 DATA 113.33,48.48.34.17. 
113,34.440 

530 DATA 19,113,34.21.113.201. 
205,228.934 

540 DATA 112.89.22.0,33.34.113 
.25.428 

550 DATA 126.60,254,156,200, 

245,229,205,1475 

560 DATA 176.34.209,193,245. 

126,254.255.1492 

570 DATA 40,2.120.18.241.254,0 

. 71 , 746 

580 DATA 62,128,40,4,203,31,16 
.252, 736 

590 DATA 70.176.119.58.25.113, 
214,64.839 

600 DATA 50.25,113.194,194.112 
.237.75,1000 

610 DATA 32.113.62.0.33.26.113 
, 197,576 




620 DATA 205,214,112,193.62, 

223,219.254,1482 

630 DATA 245,203.31,203,31.48, 

16. 203,980 

640 DATA 31.48, 15. 203. 31. 4B. 14 
.203,593 

650 DATA 31, 4B, 13. 241.195. 156. 
112.12.808 

660 DATA 24.7,4,24,4,5,24,1.93 
670 DATA 13,241,121,254,240,48 
,13.120,1050 

680 DATA 254,150,48.8.254,32. 
56. 4,806 

690 DATA 237,67,32.113,237,75. 
32.113,906 

700 DATA 197.33,29.113,205,214 
,112,193,1096 

710 DATA 121.230,248,79,89.22, 
0,33,822 

720 DATA 34.113.25.72,6.24.126 
. 185,585 

730 DATA 32.5.61.119.205.252. 
112. 35.821 

740 DATA 16.244,42,23,113,45, 
32,253.766 

750 DATA 37.242.197.112.62.127 
.219,254,1250 

760 DATA 203.31,218.30.112.201 
.229.120,1144 

770 DATA 205.176.34.235.225.1. 
3.0,879 

780 DATA 237.176.235,201,42, 

118.92,237.1338 

790 DATA 91,120.92.25.237.90. 

84.93,832 

80(1 DATA 41,41.25,41.41.41.25. 
34.289 

810 DATA 118. 92. 76, 201. 213. 24S 
.17,22,984 

820 DATA 113,26,60.254.58,32.6 
.62.611 

830 DATA 48,18.27.24.244.18. 
241.209.829 

840 DATA 201.48.48.48.48.48.48 
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A tinta escorrendo na tela do TRS-Color. 



1100 DATA 6,188.63.43,34,3,46,1 
36,32.116,63.40,36.14.188,63.41 
,37.9.46.136,224.52.16.141.13.1 
792 

1110 DATA 53, 16. 191. 63. 51. 198, 3 
.111.128.90.38,251.57.31.16.142 
.63.53.14 7.186,52.4.196.31.66.8 
8.2347 

1120 DATA 48,133.53.4.88.73.86. 
73.31.68.73,137,92,134.12.225.1 
32.36.4.106,132.141.6.48.1.74.2 
034 

U30 DATA 36.243,57.52,22.142,6 
3.45.198.6,26,1,166.132.137.0.1 
67.128.90.38.247,53.150,1.3,0.2 
205 



. 200,689 

850 DATA 0.64.0.0.0.255.255. 
255.629 

860 DATA 128.100,36.36,37.37, 
35.35,444 

O jogador controla o rolo por meio 
das teclas Y. U, I e O. O programa em 
código de máquina é responsável pelo 
movimento do rolo e dos pingos de tin- 
ta, além de cuidar do escore (número de 
pomos marcados). 

No programa em BASIC, a linha 1 
reserva espaço para o programa em có- 
digo de máquina, por intermédio do co- 
mando MIAR. e chama a rotina que 
começa na linha 100. Esta 18 os códigos 
numéricos correspondentes ao progra- 
ma em linguagem de máquina e os co- 
loca na memória reservada (usando co- 
mandos POKE, na linha 1 10). 



SOMA DE VERIFICAÇÃO 



A soma de verificação é armazenada 
na variável T, que é checada a cada oi- 
to códigos pela Unha 120 do programa. 
Essa linha informa se o valor da soma 
é igual ao primeiro número lido na li- 
nha DATA. Em caso afirmativo, o pro- 
grama continua até ler todos os códigos, 
que estão armazenados da linha 500 ã 
linha 860. 

As linhas 5 a 7 inicializam o nível de 
dificuldade — que pode ser fácil, razoa- 
velmente fácil, normal ou difícil — e co- 
locam o valor correspondente de atraso 
de tempo nas locações absolutas do pro- 
grama em código de máquina, por meio 
de comandos POKE. 

As linhas 10 a 16 montam a tela grá- 
fica c a 20 chama a rotina em linguagem 
de máquina. As linhas 40 a 60 finalizam 
o jogo e imprimem o escore. 



10 CLEAR 200, 15799:CLS 

20 FOR K-0 TO 13:T-0:FOR J-0 TO 

25 : READ A:T-T+A 
30 POKE 15800+K«26*J.A 
40 NEXT:READ A:IF TOA THEN PRI 
NT" ERRO NOS DADOS DA LINHA" ; 100 
0+K*10:END ELSE NEXT 
50 CLS : PRI NT #2. "ESCOLHA NÍVEL 
DE DIFICULDADE" 

60 PRI NT §200. "1 - FACIL-:PRINT 
§232.-2 - SIMPLES* : PRI NT §264. 
*3 - MEDIO":PRINT §296, "4 - DIF 
ICIL":PRINT §326. "5 - IKPOSSIVE 
L" 

70 AS-INKEYS:IF A$<"1" OR AS>"5 
• THEN 70 

80 LV-VAKAS) :POKE 16162, 6-LV:P 
OKE 16164. 128*64« (LW>2) :POKE 16 



167,RND(256)-1 

90 PMODE 3,1:PCLS 2:SCREEN 1.0 
100 COLOR 4:LINE[0,01'(2255,0) . 
PSETrCOLOR 3 : LINE (0 , 166) - (255 . 1 
91) .PSET.BF 

110 DEFUSRO-15800:S-USRO{0) 
120 SC-0;CLS:FOR K-5 TO 0 STEP 
~1:SC-SC*256 + PEEKU6173+K) : NEXT 
130 PRI NT §8.-yOCE GANHOU"iSC 
140 PRI NT §161, "QUALQUER TECLA 
PARA RECOMEÇAR" :AS=INKEYS 
150 IF INKEYS-"" THEN 150 ELSE 
50 

1000 DATA 127.63.33.127,63,37.7 
9,95.253,63,45,253.63.47.253,63 

,49.142.19,14.191,63,51,158.186 

,48. 2585 

1010 DATA 137,1,0,191.63.41.48, 
137.19.223,191,63.43.204,0,128. 
142.63,53,167.128.90.38,251.141 
.29.2591 

1020 DATA 182.63.37,176.63.36.1 
83,63,37.38.243,141.119,23.0.14 
5,190,63,34,48,31.38,252.125.63 
,33.2426 

1030 DATA 39.226.57.206.63.53,1 
41 ,59. 196, 127.52.4.51. 197. 166. 1 
96.198,32,61.211.186.31,1.53.4, 
31,2641 

1040 DATA 152,84.64.58,230.132. 
38.1,57,132,3.64.139.3,198.3,74 
.43.4.68.68.32.249,234,132,231. 
2553 

1050 DATA 132,108.196.166.196.1 
29.168.37,5,134.1,183,63 33,57, 
190,63.38.79.95.179.63,38.36,2. 
46,2439 

1060 DATA 31,179.63,38,36.2.48. 
31.195.255.254,36.2,46.1.52.16, 
163.225.37,3,131.0.1.253,63.216 
3 

1070 DATA 38,57.134.247.127,63. 
40,120,63.40,183.255.2.246.255. 
0.193.247.36,3,124,63,40.26.1.7 
3,2678 

1080 DATA 129,127,34.233,57.190 
.63.51,198,3,134,85.167,128,90. 
38,251.190.63.51.116.63,40.36,1 
0.31,2573 

1090 DATA 16,203.3.196,31,39,2. 
48.1.116,63,40,36.8.31,16,196,3 
1.39,2.48.31.116.63.40,36.1451 



O jogador controla o rolo de tinta pe- 
las teclas de movimentação do cursor 
(flechas). O programa em código de má- 
quina é responsável pelo movimento do 
rolo e dos pingos de tinta, além de cui- 
dar do escore (número de pontos mar- 
cados). Ele verifica se alguma das teclas 
de controle do cursor está sendo pres- 
sionada e desloca o rolo de tinta na di- 
reção indicada. Se o jogador consegue 
deslocar um pingo de tinta, um atraso 
de tempo é introduzido e o escore é au- 
mentado. 

No programa em BASIC, a linha 10 
reserva espaço para o programa em có- 
digo de máquina através do comando 
CLEAR. As linhas 20 a 40 lêem os có- 
digos numéricos correspondentes ao 
programa em linguagem de máquina e 
os coloca na memória reservada (usan- 
do comandos POKE, na linha 30). 

A soma de verificação é armazenada 
na variável T, que é checada pela linha 
40 do programa. Essa linha informa se 
o valor da soma é igual ao primeiro nú- 
mero lido na linha DATA. Em caso afir- 
mativo, o programa continua até ler to- 
dos os códigos, que estão armazenados 
nas linhas 1000 a 1130. 



nível de dificuldade 



A linhas 50 a 80 inicializam o nível 
de dificuldade — que pode ser simples, 
médio, difícil c "impossível" — e colo- 
cam o valor correspondente de atraso de 
tempo tias locações absolutas do progra- 
ma em código de máquina, por meio de 
comandos POKE. 

A linha 100 monta a tela gráfica e 
a linha 110 chama a rotina em lingua- 
gem de máquina. 

As linhas 120 a 150 finalizam o jogo 
e imprimem o escore. A seguir, o pro- I 
grama pergunta ao jogador se ele dese- 
ja participar de mais uma rodada. 



Mil 
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OPERAQOB 

ATAS 



CONVERSÃO DO FORMATO 
COMPRESSÃO DE DATAS 



TESTE DE VALIDADE 



INTERVALO ENTRE DATAS 



A armazenagem e a manipulação de 
datas em BASIC apresentam problemas 
nem sempre fáceis de resolver. 
Com as rotinas aqui fornecidas, você 
simplificará bastante seu trabalho. 

Mais cedo ou mais larde, o progra- 
mador vai ler que trabalhar com cálcu- 
los de datas. Como no BASIC não há 
nenhuma função que facilite a realiza- 
ção desses cálculos, a tarefa poderá en- 
volver algumas complicações, devido à 
própria irregularidade do sistema de da- 
tação em uso — meses com número di- 
ferente de dias, anos bissextos etc. 

Os principais problemas de cálculo e 
manipulação de datas, que surgem so- 
bretudo em programas para aplicações 
financeiras e/ou comerciais, são: 

— representação interna de datas na 
memória do computador; 

— checagem da validade de uma data; 

— determinação do dia da semana pa- 
ra uma data e do número de dias com- 
preendido entre duas datas; 

— cálculo de data corrida a partir de 
certa data de calendário. 

Mostraremos em INPUT alguns tru- 
ques que simplificam essas manipu- 
lações. 



ARMAZENAGEM DE UMA DATA 



Há diversos tipos de notação para da- 
tas. A mais comum é a data gregoria- 
na, ou data de calendário, que tem a for- 
ma: dia/mês/ano (D/M/A). 

Essa data pode ser armazenada no 
micro de diferentes maneiras. A mais di- 
reta usa o formato de oito bytes: 

DD/MM/ AA 

Em consequência, deve ser armaze- 
nada em uma variável literal (alfanumé- 
rica), e não em uma variável numérica, 
ocupando, ao todo, oito bytes. 

Podemos reduzir o espaço para a ar- 
mazenagem suprimindo os sinais de se- 
paração (barras ou pontos), já que é 
possível inseri-los novamente no mo- 
mento de exibir ou imprimir uma data. 
Temos, então, o formato de seis bytes: 



DDMMAA 

Armazenando as datas como são vi- 
sualizadas, é impossível ordená-las. Co- 
locar um conjunto de datas em ordem 
ascendente, por exemplo, resultará em 
uma enorme confusão: uma data como 
010187 virá antes de 011286. 

Por essa razão, é preferível usar o 
formato sueco, já adotado universal- 
mente em sistemas de computação: 

AAMMDD 

No exemplo acima, 861201 aparece- 
rá, corretamente, antes de 870101. 

Eis aqui duas rotinas para converter 
uma notação em outra. A variável NS 
representa uma data em formato nor- 
mal, de oito bytes; IS. uma data em for- 
mato invertido, de seis bytes. 

Conversão de formato normal para for- 
mato invertido: 



1000 LLT IS=NS(7 TO)+NS{4 TO 5 
)+N3(l TO 2) 
1010 RETURN 



Lembre-se de dimensionar N$(8) e 
1$(6) no começo do programa. 



Conversão de formato invertido para 
formato normal: 



El El MH] El 



1100 LET NS-1SI5 TO)+"/"+I3(3 
TO 4)+"/"+IS(l TO 2) 
1110 RETURN 

Seis bytes podem significar muito es- 
paço de memória para certas aplicações , 
por exemplo, para um banco de dados, 
em que cada registro deve reservar 
espaço para uma ou mais datas. 

Podemos reduzir ainda mais o espa- 



ço de memória ocupado por uma data 
de calendário, mas isso envolve algumas 
manipulações que codificam a data, im- 
pedindo sua exibição imediata (sem a 
prévia decodificação). 

Um dos formatos codificados de da- 
tas é o formato de três bytes: 
CHHS l AA) +CHRS (MM) +CHR5 (DD) 

A data será armazenada em uma ca- 
deia literal de três bytes, no formato sue- 
co; mas não poderá ser impressa ainda. 
Seguem-se duas rotinas que realizam as 
conversões. Nelas, D$ é uma variável li- 
teral com uma data em oito bytes, e CS, 
uma variável com uma data em forma- 
to comprimido de três bytes. 

Compressão de oito para três bytes: 

QQl^Sli 

1200 CS=CHH3(VAL[MIDS(D3,7,2))) 
+CHRS (UAL (MIDS ÍDS , 4 , 2) ) ) +CHRS (V 
AL(MIDS(D$.1.2))) : RETURN 



1200 LET C$=CHR$ VAL DS(7 TO 8) 
+CHRS VAL DS(4 TO 5) + CHRS VAL 

DSU TO 2) 
1210 RETURN 



Não se esqueça de dimensionar CS(3) 
e D$(8), no começo do programa. 

Descompressão de três para oito hvtes: 

El BttU HE] 

1300 D3-RIGHTS(STR$(ASC(MIDS(CS 
, 2) ) ) , 2) + V+RIGHTS (STRS (ASCÍMI 
D${CS, 3) ) ) ,2)+"/"+RIGHTS (STRS (A 
SC(CS)) ,2) : RETURN 



1300 LET DS-STRS CODE CS (3 TO 3 
)+STR3 CODE C3(2 TO 2)+STR3 COD 
E CS(1 TO 1) 
1310 RETURN 

Essa técnica tem só uma desvanta- 
gem: na armazenagem de datas compri- 
midas em três bytes em arquivos sequen- 
ciais (fila ou disco), a transmissão será 
truncada sempre que surgir um dia 13 
(pois CHRS(13) é o código ASCII para 
fim de linha). Isto não ocorrerá com ar- 
quivos de acesso aleatório. 



IIIIIIIIIHHH 
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Nada impede que se armazene uma 
data de calendário em formato numéri- 
co—o que é até desejável em certas 
aplicações. Porém será desperdício de 
memória, mesmo que usemos variáveis 
inteiras (que ocupam só dois bytes de es- 
paço cada no TRS-80, TRS-Color, Ap- 
ple, TK-2000 e MSX; o ZX-81 e o Spec- 
trum não oferecem essa possibilidade). 

A armazenagem de uma data de ca- 
lendário em três variáveis inteiras — por 
exemplo. D, M e A — ocupará oito 
bytes. Podemos armazená-las em uma 
variável de precisão simples: 



10000 



100 



Veja os exemplos seguintes: 
Data DT 



Se a variável E retornar igual a 0, a 
data é válida; se retornar igual a 1 , hou- 
ve erro de entrada. 



Para muitas das técnicas de cálculo- 
de funções relacionadas a datas, é pre- 
ciso saber o dia do ano de certa data de 
calendário. Isso caracteriza a data cor- 
rida, composta do ano e do dia do ano 
(um número de 1 a 366). Por exemplo, 
a data corrida para 14 de maio de 1981 
é 134/81. 

Esta sub-rotina calcula a data corri- 
da a partir de uma data de calendário 
D$, em formato de oito bytes. O resul- 
tado será armazenado em N. 



01/01/47 
31/12/87 



470.101 
871.231 



Note que DT não pode ser uma va- 
riável inteira, pois esta não aceitaria os 
números maiores. Assim, ficamos, de 
novo, com seis bytes por data. 



VALIDADE DE UMA DATA 



Uma boa prática de programação 
consiste em testar a validade da data de 
calendário que foi entrada pelo teclado, - 
checando separadamente o dia, o mês 
e o ano. 

Eis aqui uma rotina simples para teste 
de uma data entrada no formato de oi- 
to bytes (variável D$): 

HHWlilEl 

1500 E-0:MS-"312931303130313130 
313031" 

1510 IF LEN(DS)<>B THEN E-1:RET 
UHN 

1520 M-VAL(MIDS(DS,4,2)) :IF M<1 

OR M>13 THEN E"l : RETURN 

1530 D-VAL(HIDS(DS. 1, 2) ) :IF D<1 

OH D>VAL (MIDS (MS , (M-l) "2+1 ,2) ) 

THEN 1590 

1550 RETURN 



1500 LET MS="312931303130313130 

313031" 

1505 LET E-0 

1510 IF LEN(D3)<>8 THEN GOTO 15 
60 

1520 LET M-VAL DS (4 TO 5) 

1S25 IF M<1 OR M>13 THEN GOTO 1 

560 

1530 LET D-VAL DS (1 TO 2) 

1535 IF D<1 OR D>VAL MS((M-1>*2 
+1 TO (M-l)*2+2) THEN GOTO 1590 

1550 RETURN 

■ 1590 LET E-l 

I 1600 RETURN 



1600 MS C "0000310590891201501812 
12242273303334" 

1605 Dt=VAL(MIDS(DS. 1.2) ) :MI=VA 
L(MIDS(DS.4,2) ) : Aí -VAL [MIDS (DS . 
7.2) ) 

1610 NÍ=VAL(MIDS(M$. (M*-l)*3+l. 
3! )+DI 

1620 IF Mi>2 AND (Al AND NOT-4) 
=0 THEN NÍ=NÍ+1 
1630 RETURN 



1600 LET MS="000D310590a9120150 
181212242273303334" 

1605 LET D=VAL DS ( 1 TO 2) 

1606 LET M=VAL DS (4 TO 5) 

1607 LET A=VAL DS(7 TO 9) 
1610 LET N-VAL MS((M-1)*3+1 TO 
(M-l)*3+3)+D 

1620 IF M>2 AND (A AND NOT-4 ) =0 

THEN LET N=N+1 
1630 RETURN 

A variável MS, na linha 1600, con- 
tém o número do dia no ano equivalen- 
te ao primeiro dia de cada mês, menos 
1, para ano não bissexto. As variáveis 
D, M e A são extraídas da variável DS, 
que contém a data de calendário. Na li- 
nha 1610, o número de dias correspon- 
dente à data D.M.A é calculado 
somando~se D ao número que se obtém 
extraindo-se do stríng MS o valor para 
o primeiro dia do mês M. 

Finalmente, a linha 1620 verifica se 
o mês é março ou um dos meses que o 
sucedem e se o ano é divisível por 4 (ano 
bissexto). Nesse caso. acrescenta-se 1 ao 
número do dia, para compensar o fato 
de fevereiro ter 29 dias. O emprego, 
pouco usual, da expressão lógica AND 
NOT funciona como teste do resto da 
divisão por 4. 

A rotina só pode ser usada para os 
anos de 1901 a 1999, pois o cálculo de 
anos bissextos não funciona para sécu- 



los ímpares — a não ser que o ano em 
questão seja divisível por 400. 



DIAS ENTRE DUAS DATAS 



O modo mais fácil de determinar o 
número de dias transcorridos entre duas 
datas de calendário consiste em calcu- a 
lar a data corrida de cada uma e obter 
a sua diferença mais 1 . A operação fun- 
cionará bem se as datas forem do mes- 
mo ano; caso contrário, dará resultados 
errados. 

Por isso, devemos obter um outro 
número (chamado data juliana), que le- 
va em conta o total de dias entre uma 
data-base, fixa. c a data de calendário 
que especificamos. Para simplificar o 
cálculo, multiplicamos o ano por 365, 
de forma que a data-base passa a ser 
1900; depois, somamos o número de 
dias referente aos anos bissextos entre 
1900 e o ano atual. 

A próxima sub-rotina calcula a dife- 
rença entre duas datas, entre 1901 e 
1999. Adicione-a à sub-rotina anterior, 
que começa na linha 1600. 



1700 DS=DlS:COSUB 1600:Nl=Ni+ 
A**365+INT ( (Ai-1) /4) 
1710 DS=D2S:G0SUB 
1600*N2=Ni+A*«365+INT( (At-1) / 
1720 P-INT (N2-N1 ) :RETURN 



1700 LET DS=D1S 

1705 GOSUB 1600 

1706 LET N1 = N+A«365 + INT (A-U/4 
1710 LET DS=D2S 

1715 GOSUB 1600 

1716 LET N2=N+A*365+INT (A-D/4 
1720 LET P = INT N2-N1 

17 25 RETURN 

A sub-rotina aceita como argumen- 
tos duas datas, D1S e D2S. no formato 
de oito bytes (DD/MM/AA), e retorna 
o resultado armazenado em P. 

Para testá-la. acrescente as seguintes 
linhas: 

10 PRINT " PRIMEIRA DaTA (DD/MM/ 
AA) " ; 

20 INPUT D1S 

30 PRINT "SEGUNDA DATA (DD/MM/ 

40 INPUT D2S 

50 GOSUB 1700 

60 PRINT P 

70 GOSUB 10 

Use o programa para saber quantos 
dias você viveu até hoje! 
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FERRAMENTAS 



COMANDOS EXTRAS 



RENUMERAC A O DE LINHAS 
AU TON UM ERA C Ã O DE LINHAS 
ELIMINAÇÃO EM BLOCO 
OUTROS COMANDOS 



Este conjunto de ferramentas de 
programação BASIC tornará seu 
trabalho mais fácil. Com ele, você 
terá acesso a diversos comandos 
inteiramente novos no Spectrum. 



Embora lodos os micros examinados 
em INPUT utilizem a mesma linguagem 
BASIC, você já deve ter percebido que 
há diversas variantes, ou "dialetos" da 
mesma. De fato, é muito raro encontrar 
um programa, mesmo curto, que possa 
ser executado sem modificações em 
qualquer linha de computadores. Com 
frequência, trata-se apenas de uma va- 
riação na sintaxe dos comandos ou na 
maneira como eles são usados; nesse ca- 
so, a adaptação do programa não envol- 
ve maiores complicações. Algumas ve- 
zes, porém, constata-se que muitos dos 
comandos destinados a um computador 
simplesmente não existem para outros. 
Ainda que eles não sejam essenciais pa- 
ra a programação de muitas tarefas, não 
há dúvida de que, se fossem disponíveis, 
o trabalho do programador se tornaria 
bem mais fácil. Incluem-se nessa cate- 
goria os comandos para renumeração 
das linhas de um programa (RENUM), 
para eliminação de blocos de linhas 
(DEL) etc. Presentes em computadores 
de linhas mais recentes, como o MSX, 
esses comandos fazem muita falta nos 
micros da Unha Sinclair. 

O programa apresentado neste arti- 
go adiciona vários comandos desse tipo 
ao interpretador dos microcomputado- 
res da linha Sinclair Spectrum, facilitan- 
do o desenvolvimento de programas em 
BASIC. Os micros das linhas TRS-80, 
TRS-Color e MSX não precisam de um 
programa como este, pois já dispõem da 
maioria dos comandos necessários em 
seu interpretador BASIC. 

O programa foi desenvolvido em có- 
digo de máquina, de modo a coexistir, 
na memória, com o programa em BA- 
SIC e o interpretador. 

São adicionados ao interpretador oi- 
to novos comandos e funções: 

• renumeração de linhas; 

• eliminação de um bloco de linhas; 



• número de bytes livres na memória; 

• comprimento de um programa; 

• numeração automática de linhas; 

• catalogador de fitas; 

• conversão de hexa para decimal e 
vice-versa. 

Todas essas funções são chamadas 
por intermédio do comando RANDO- 
M1ZE USR, seguido de um número, 
conforme mostramos mais adiante. 

Uma vez que um novo comando te- 
nha sido ativado, ele pedirá diversos pa- 
râmetros — tais como os números das 
linhas a serem apagadas — através de 
mensagens exibidas na tela. 

O programa utiliza diversas rotinas 
em linguagem de máquina fornecidas 
em artigo posterior {Referência Cruza- 
da). Assim, será necessário juntar os 
dois programas. As instruções para a 
execução dessa tarefa estão contidas 
dentro do programa aqui apresentado. 
Bastará, portanto, digitar o programa, 
acioná-lo com um comando RUN e, en- 
tão, seguir a orientação dada pelas men- 
sagens exibidas na tela. O programa in- 
formará, também, se você cometeu al- 



gum erro na digitação das linhas DATA, 
que contêm o programa em código de 
máquina, pois efetua automaticamente 
uma soma de verificação. Corrija todos 
os erros, antes de armazenar o progra- 
ma em fita. 

Os códigos conjuntos do referenda- 
dor e do extensor de comandos serão ar- 
mazenados em fita sob a denominação 
"TOOLK1T" CODE. 

Para carregar o programa, digite: 
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A rotina de remuneração de linhas é 
ativada pelo comando: 

RANDOMIZE USB 63489 

O programa pede que se informe o 
incremento de linhas a ser utilizado (um 
número entre 1 e 255). Para achar o 
comprimento de um programa BASIC 
residente na memória, use: 

RANDOMIZE USB 63889 

Para achar o número de bytes dispo- 
níveis na memória, digite: 

RANDOMIZE USB 63860 

A numeração automática de linhas 
(comando AUTO, em outros computa- 
dores) é ativada por: 

RANDOMIZE USR 64154 



Em seguida o programa pedirá o nú- 
mero da linha inicial (entre 1 e 9900) e 
o incremento (1 a 9900). Para cancelar 
o comando, entre dois zeros quando o 
número de linha aparecer na tela. A ro- 
tina terminará com uma mensagem de 
erro, que deverá ser ignorada. 

Para apagar um conjunto de linhas 
de um programa, digite: 

RANDOMIZE USR 64000 

O programa solicita que o usuário di- 
gite os números de linha do início e do 
fim do bloco a ser apagado. Para acio- 
nar o catalogador de fitas, chame: 

RANDOMIZE USR 63919 

A seguir, a borda da tela começará 
a piscar. Posicione a fita a catalogar no 
inicio de um programa e pressione a te- 
cla PLAV do gravador. O programa exi- 



birá na tela informações contidas no ca- 
beçalho do arquivo (header). 

Finalmente, para converter números 
decimais para hexadecimais, use: 

RANDOMIZE USR 64394 

Para efetuar a conversão no sentido 
oposto, digite: 
RANDOMIZE USR 64453 

Não é preciso pressionar <EN- 
TER> após entrar o número hexa- 
decimaJ. 

5 CLEAR 63488: BORDER 0: 

PAPER 0: INK 6: CLS 
10 PRINT AT 0,5: INVERSE 1 ! "C 
ONJUNTO DE FERRAMENTAS" 
12 PRINT AT 8,2;" Qualquer te 
cia para carregar programa 
em código de maquina.": PAUSE 
0 

14 LOAD "CREF-CODE 
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15 CLS : PRINT "Pokeando codi 
go de maquina. Prepare o 

cassete para gravar . " 
20 LET L-100: RESTORE L : FOH 
N-63489 TO 64560 STEP 16 
30 LET T-0: FOR D-0 TO 15 
40 READ A ! POKE (N+D),A: LET 
T=T+A: NEXT D 
50 READ A: IF AOT THEN 
PRINT "ERRO DE CHECKSUM EM "; 
L ! STOP 
60 LET L=L+10 
70 NEXT N 
100 DATA 62.12.205,48.252,205, 
60, 250,237.67, 155. 248, 42. 8 3. -92 
,1,2019 

110 DATA 0.0.126,254,128.40,9, 
197,205.184,25.193,3,235.24, 
242. 1865 

120 DATA 205,43,45,58.155.248. 
205,40,45.239.4.56.205,162,45, 
33,1788 

130 DATA 15.39.167,237,66,48,2 
,207.5,33.145.248.126.60.40.32 
,1470 

140 DATA 35,229,237.91.83.92. 

42.75.92.167,237.82.68,77.235. 

237,2079 

150 DATA 177,197.229,245.204, 

157,248,241.225,193,234.80,248 

.225,24.220,3147 

160 DATA 42.83,92,58.155.248, 

54.0.35,119,205.40.45,239.49, 

192. 1656 

170 DATA 56.42,83.92.205.184. 
25.42,75,92,43.167,237,82.216. 
235,1876 

180 DATA 229,239,224.15.49.56. 

205.162.45,225.112,35,113,43, 

24,228.2004 

190 DATA 201,224,228.235.236, 
239.246,255.0.0,10,0.229.6,4, 
35.2148 

200 DATA 126,254.14,40,4,16. 

246.225.201,197,35,35,35,76.35 

,70.1613 

210 DATA 42,83,92,217,1,1,0, 

217,205,149,22,43,235,167.237, 

66,1777 

220 DATA 235,48,11,217,3,217. 
197.205,184.25,193,235,24,2 34, 
217,197,2442 

230 DATA 217,209,42,155,248, 

205,169.48,235,42,104,92.35,35 

,115.35,1986 

240 DATA 114.235,62.0,167,1,9, 
0.237,66.56.17.60,1,90,0,1115 
2S0 DATA 237.66.56.9.60,1,132, 
3,237.66,56,1,60.209,225,229, 
1647 

260 DATA 245.130,214.4.245,6,0 

,56,9,79,40.12.205,65.22.35. 

1387 

270 DATA 24.6,237.68,79,205, 
232.25.193. 241. 197. 79,6,0.9.65 
,1666 

280 DATA 229.197.35,35,235,42, 
104.92.1.5.0,237,176,193,225, 
229.2035 

290 DATA 397.239.224,164,5,58, 
103.164.4,224,1,3.225,192,2,56 
,1951 

300 DATA 205.213,45.193.225, 



198,48.119.43,16.228,229.42, 
104.92,35. 2035 

310 DATA 35,126,225.196,46,119 
, 241 , 193 , 24 5 ,42 , 63 ,92 , 167 , 229 , 
237,66,2346 

320 DATA 225,48.8.197,205,184, 

25,193,235,24.242,235,35,35, 

293,126,2210 

330 DATA 128.119.201,62.0,205. 

48,252,205,26,31,33.0.0,62,0. 

1372 

340 DATA 237,66.229,193.205.43 
.45,62,254.205.1.22.205,227,45 
. 201 .2240 

350 DATA 42.75.92,237.75,83,92 
.62,0. 237,66,229,62,1 ,205,46, 
1606 

360 DATA 252,193,205,43,45,205 

.227,45,62,2,205,48,252,201. 

221.33,2239 

370 DATA 32,255,37,17.0,175.55 
,205,86,5,62,3,205.48,252,221, 
1638 

380 DATA 33,32,255,221,126,0, 
198.6.221.229,205,46,252,62,13 
,215. 21 16 

390 DATA 62.4,205,48.252,221. 
225.221,35,221,126,0,254.255, 
40, 10.2179 

400 DATA 6.10,221.126,0,221.35 
,215,16.248.62,13,215,62,5.205 
.1660 

410 DATA 48,252,221.33.32,255, 

221.76.11.221,70.12,195.163, 

249,205,2266 

420 DATA 142.250,62,10.205,48, 
252,205.60,250,205,110,25.229, 
62,13,2128 

430 DATA 215,62.11.205,48,252, 
205 . 60 , 250 ,205.110,25.193,32, 
16,229,2118 

440 DATA 35,35,126,35.95,126, 

87.225.237.90,17,4,0,237.90, 

229,1666 

450 DATA 197.62.0,237.66,218. 
87.252.195.89,252.6.0.197,205. 
95,2158 

460 DATA 252,205.115,252,193, 

254,13.40,26,254,58,48,240.214 

,48,56.2266 

470 DATA 236.245,4,120,254,6, 

32.4,5.241.24.225.241,245,198, 

48,2126 

480 DATA 215.24,218,221,33,49. 
255,120.254.0.40,207.33,0,0, 
221, 1890 

490 DATA 94,0,221.86,1,241,254 
0,40,7,237,90.56,13,61.32,1433 
500 DATA 249.221,35,221,35,5, 
32.231.229,193,201,207,5,42,75 
.92, 2073 

510 DATA 237.75.83,92,237.66, 
192,207,9,62,10,205,48,252,205 
,60. 2040 

520 DATA 250.34,30,255,62.13, 
215.62.12,205.46,252,205.60. 
250,34,1987 

530 DATA 28.255,33,48.48.34,59 
,255,34,61.255,237.75.30.255. 
205, 1912 

540 DATA 115,251.62.2,50,107, 
92 , 50 , 10 7 ,92 , 205 , 149 , 23 , 205. 
176.22,1708 



550 DATA 62,0,205,1,22,33,59, 
255.6.4,126,229.197,205.129,15 
. 1548 

560 DATA 193,225,35.16.245,205 
,44,15,205,23,27,221,33,58,92, 
221,1858 

570 DATA 203,0.126,32,13,42,89 
,92.205,167.17,62,255,50.58,92 
,1503 

580 DATA 24,206,42,89,92.34.93 
.92,205,251.25,120,177,32,10, 
223, 1715 

590 DATA 254,13,40,174.205,176 

,22,207.1.237,67,73,92,42,93, 

92.1786 

600 DATA 235.33.65.21.229.42. 
97, 92. 55, 237, B2. 229, 96, 105, 205 
,110.1953 

610 DATA 25,32,6,205,184,25, 
205,232,25,193,121.61,176,40, 
47,197.1774 

620 DATA 3.3.3,3.43,237.91.83. 

92,213,205.85,22,225,34,83, 

1425 

630 DATA 92.193,197,19,42,97, 
92,43,43,237,184,42,73.92,235, 
193, 1874 

640 DATA 112.43.113.43,115,43. 
114.237.75,28.255.205,115,251, 
241,195.2185 

650 DATA 195,250,33.62,255,126 
,60,254,58,40,8,119.11,121,128 
,176,1896 

660 DATA 200,24,239,62,46.119, 
43,24,236,62,14,205.48,252,205 
,60.1641 

670 DATA 250,62,13,215.197,62. 
15,205.48.252.193.46.2.96,124. 
203.1983 

660 DATA 31.203,31.201.31,203, 
31,230.15.205.189,251,215,124, 
230,15,2207 

690 DATA 205,189,251,215,97.45 

,32,230,62,13,215,201.198,48. 

254.58.2313 

700 DATA 216,198,7,201,62,16. 
205,48,252,17,65,255,6,4,213, 
197,1982 

710 DATA 205,95,252,205,115, 

252,215,245,241,193,209,18,19, 

16.239,62,2581 

720 DATA 13.215,62.17,205.48. 

252.221,33.85,255,17,0,16,33,0 

.1472 

730 DATA 0,14,4,221.126.0.221. 
35.214,48,218,87.252,254,10.56 
,1760 

740 DATA 2,214,7,254,16.210,87 
,252.71,254.0,40,3.25,16,1704 
750 DATA 203,58,203,27,203.56, 
203.27,203.58.203,27,203,58, 
203,27,1964 

760 DATA 13.32,208.229,193.205 

,43,45,205,227,45.62,13.215, 

201.203.2139 

800 CLS : PRINT AT 5,S|" COMPI 

LACAO COMPLETA. " 

810 PRINT AT 7,2; "PREPARE O CA 

SSETE PARA GRAVAR" 

B20 PRINT AT 9,4; "O NOME E TOO 

LKIT" " CODE" 

830 SAvE "TOOLKIT-CODE 63489, 

2000 1» 
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COMUMCaÇÃO COM O EXTERIOR 



Para se comunicar com um robô, os 
microcomputadores pessoais geralmente 
lêm pelo menos uma porta de entra- 
da/saída (E/S), através da qual podem 
entrar em contato com dispositivos me- 
cânicos externos. Existem dois tipos de 
porta E/S: as seriais e as paralelas. Elas 
diferem entre si quanto à maneira de en- 
viar e receber o fluxo de bits do perifé- 
rico. Na maioria dos micros, a unidade 
básica de intercâmbio de informação é 
o byte — um conjunto de oito bits, ou 
dígitos binários. A informação armaze- 
nada em um byte é uma sequência de oi- 
to algarismos 0 ou 1 — por exemplo: 
00101101. 

Na memória interna de trabalho do 
computador, dois bytes são rotulados 
especialmente para intercâmbio de da- 
dos com cada porta de entrada e saída. 
O primeiro byte, chamado de Registro 
de Direção dos Dados {Data Direction 
Register, DDR), determina o status da 
porta, definindo quando o intercâmbio 
será no sentido da entrada ou no senti- 
do da saída. Em geral, se um bit no 
DDR tiver valor igual a 0, a porta cor- 
respondente está recebendo informações 
de fora; se for igual a 1, ela está trans- 
mitindo. Portanto, com o auxilio de um 
comando POKE, em BASIC, podemos 
ajustar cada um dos oito canais coman- 
dados pelo DDR, colocando um núme- 
ro decimal entre 0 (todos os canais re- 
cebendo) e 255 (todos os canais trans- 
mitindo, ou seja, DDR = 1 1 1 1 1 1 1 1 em 
binário). Colocando o valor 15, por 
exemplo, teremos DDR - 00001111 — 
isto é, os quatro primeiro canais estão 
emitindo, e os quatro últimos, receben- 
do. O endereço absoluto do DDR, a ser 
usado com o comando POKE, varia de 
computador para computador. 

O segundo byte que controla a porta 
corresponde ao endereço da mesma. Um 
dado colocado nesse byte é convertido 
pela interface, conforme a aplicação a 
que se destina, em uma série de pulsos 
de voltagem, que são então passados pa- 
ra o dispositivo. No sentido oposto, as 
voltagens emitidas pelo dispositivo pe- 
riférico são convertidas para bits pela in- 
terface, e colocadas no byte de endere- 
ço da porta. Dessa forma, o processa- 
dor central — e qualquer programa in- 
troduzido nele — tem fácil acesso à por- 
ta de entrada e saída, não precisando se 
ocupar com as conversões a serem rea- 
lizadas. 

A linguagem de máquina, como al- 
gumas linguagens de alto nível, entre 
elas o BASIC, dispõe de instruções pa- 
ra escrever e ler numa determinada por- 



ta de saída. Essas instruções são deno- 
minadas OUT e INP, respectivamente. 
Em BASIC, por exemplo, um comando: 
OUT 32,127 

coloca o número decimal 127 na porta 
de salda número 32. Normalmente, a 
maioria dos micros de oito bits admite 
até 256 portas de E/S, numeradas de 0 
a 255. Embora algumas delas estejam re- 
servadas para periféricos já existentes, 
como o gravador cassete, as outras es- 
tão disponíveis para outros usos, como 
o controle de um robô. 

O comando INP tem a mesma sinta- 
xe e é usado para ler um byte no ende- 
reço da porta. Em geral, o computador 
não sabe quando este dado esta dispo- 
nível. Assim, costuma-se usar um outro 
comando em BASIC para testar a dis- 
ponibilidade de um novo dado: WAIT 
(não confundir com o comando PAU- 
SE dos micros da linha Sinclair). 

Em uma porta paralela, os oito bits 
disponíveis no periférico ou byte de en- 
dereço da porta são transmitidos, simul- 
taneamente, por oito fios distintos. Na 
porta serial, a transmissão se realiza em 
um bit de cada vez, em "fila indiana", 
por um único fio. 

Quando chega a seu destino, no pe- 
riférico, a>Ínformação é usada para con- 
trolar várias operações. Em um dispo- 
sitivo eletromecãnico, como um robô, 
ela é utilizada para ligar e desligar mo- 
tores, relés etc. Após selecionar o ende- 
reço da porta de saída, o programador 
pode enviar sinais para destinos especí- 
ficos. Por exemplo, se o valor é ajusta- 
do em 00110111, um sinal é mandado 
para as destinações correspondentes, 
através do terceiro, quarto, sexto, séti- 
mo e oitavo condutores de uma porta 
paralela, ou, sequencialmente, por um 
fio só, de uma porta serial. 



ROBÔS PARA MICROCOMPUTADORES 



Com o aumento do interesse pela ro- 
bótica, surgiram nos últimos anos vários 
tipos de robôs baratos que podem ser 
controlados por um computador domés- 
tico. As duas categorias básicas de ro- 
bôs desse tipo são os braços robóticos 
e os robôs móveis (tartarugas e buggies), 
geralmente fornecidos em forma de kits 
para montar, e com o software neces- 
sário para operá-los. 

Os braços robóticos procuram imitar 
os movimentos do braço humano. Cos- 
tumam ter cinco pontos de movimento, 
ou graus de liberdade: ombro, cotove- 
lo, pulso, garra (com ou sem rotação ao 
redor do pulso) e base do braço (movi- 
mento basculante). Braços robóticos po- 



dem ter até nove graus de liberdade. O 
nível de sofisticação do braço se refle- 
te, é claro, em seu preço final. 

Os braços mais baratos, como o Ar- 
matron, comercializado na Europa, não 
são programáveis. A designação de ro- 
bô não se aplica a eles, portanto — não 
passam de um brinquedo mais elabora- 
do. Outros, como o Armbot e o Arm- 
droid 1 , podem ser controlados por vá- 
rios tipos de microcomputador. Têm 
cinco ou seis motores de passo variável 
e custam tanto quanto uma UCP de 
bom preço. Seus movimentos, realiza- 
dos um por vez ou de modo continuo, 
são controlados de modo direto ou por 
uma sequência armazenada no micro. E 
possível adicionar pausas, alterar a ve- 
locidade do braço e editar as sequências 
armazenadas, para modificar ou acres- 
centar novas fases de movimento. O 
programa para controle do braço pode 
ser escrito em Assembler ou BASIC, 
com chamadas às rotinas em código de 
máquina que controlam as portas de 
E/S. Estas são fornecidas pelo fabrican- 
te que também coloca à disposição do 
usuário listagens-exemplo de BASIC, 
com comentários e explicações. 

Existem ainda braços robóticos que 
utilizam servomotores, em vez de mo- 
tores de passo. Um servomotor possui 
um sensor de posição que verifica con- 
tinuamente se as posições determinadas 
por comandos estão sendo atingidas. 
Circuitos integrados de preço bastante 
acessível (amplificadores lineares) per- 
mitem um controle razoável do perifé- 
rico. Um exemplo de braços desse tipo 
é o Beasty, comercializado na Inglater- 
ra para os micros da linha BBC. 

O Beasty tem diversos implementos 
úteis para o desenvolvimento de proje- 
tos de robótica aplicada. Uma câmara 
miniaturizada, chamada Snap, permite 
que o micro "veja" e mova o braço. Es- 
se dispositivo contém um circuito inte- 
grado sensível à luz, que transmite uma 
imagem digitalizada com uma resolução 
de 128 x 256. Pesa menos que 45 g, me- 
de 8 x 10 cm, e é capaz de captar até 
vinte imagens por segundo. Vários pro- 
gramas interessantes são fornecidos com 
o Snap, possibilitando, entre outras 
coisas: 

- exibir as imagens captadas no vídeo do 
microcomputador. A imagem pode ser 
"fixada", como se fosse uma foto, ar- 
mazenada em disco ou fita, e, posterior- 
mente, reproduzida por meio de uma 
impressora gráfica; 

- animar uma sequência de imagens 
(vinte quadros), como se fosse um fil- 
me ou desenho animado; 
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Há robôs para micros no Brasil? 

Os leitores que se interessaram pe 
lo assunto com certeza ficarão frustra- 
dos com a resposta: atualmente não 
há, no Brasil, robôs comerciais para co- 
nexão a microcomputadores. 

A Universidade Estadual de Campi- 
nas (Unicamp) construiu uma tartaru- 
ga semelhante à criada pelo MIT, para 
uso em seus projetos com a linguagem 
LOGO. Porém, essa tartaruga não che- 
gou a ser produzida industrialmente. 
Grupos de trabalho da Universidade de 
São Paulo |USP) e da Universidade Fe- 
deral do Rio de Janeiro [UFRJ) desen- 
volveram protótipos de braços robóti- 
cos, como os descritos no artigo, mas 
estes também não são comercializados 
ainda. 

Para Quem tem condições, resta a 
possibilidade de mandar trazer do ex- 
terior um dos modelos de robô mais co- 
nhecidos, como a Terrapin Turtle ou a 
Valiant Turtle (tartarugas), o Hero I (ro- 
bô buggy da Zenith/Heathkitl, Armbot, 
Armdroid ou Beasty (braços robóticos) 
e kits da Lego. 



- comparar duas imagens tomadas em 
períodos distintos. Esse recurso tem lar- 
ga aplicação, por exemplo, na monito- 
rização de residências, edifícios ou lo- 
jas, no sentido de evitar a penetração de 
estranhos. Se a imagem tiver se modifi- 
cado além de um limite prefixado, um 
alarme pode ser ativado. O programa 
mostra um gráfico com o número de 
mudanças, em função do tempo; 

• reconhecer cenas e objetos e movimen- 
tar o braço em função disso. 

Muitas empresas que fabricam jogos 
mecânicos de armar, como Meccano e 
Lego, lançaram kits com braços robó- 
ticos, que podem ser conectados a mi- 
crocomputadores baratos, como o Sin- 
clair Spectrum. Esses jogos são muito 
educativos — aprende-se muito sobre o 
funcionamento de um robô, quando se 
tem a oportunidade de armar e progra- 
mar um sistema desde o inicio. 



ROBÔS MÓVEIS 



Ao contrário dos braços robóticos, 
de base estacionária, alguns robôs para 
microcomputadores, como as tartarugas 
e os buggies, movimentam-se sobre ro- 
das. O primeiro robô desse tipo data dos 
anos 40, quando o cientista britânico 
Ross Ashby desenvolveu uma tartaruga 
eletrõnica que tinha a tarefa de achar 
uma tomada para alimentar suas bate- 
rias. O "bichinho", apesar de muito 
simples, exibia notáveis e surpreenden- 
tes padrões "comportamentais". 

A primeira tartaruga para micros 
apareceu no Laboratório de Inteligên- 
cia Artificial do MIT (Massachusetts 
Institute of Technology), nos Estados 
Unidos. Era o "filhote" da equipe do 
Prof. Seymour Papert, criador da lin- 
guagem LOGO. Sua estrutura também 
é simples: consta de uma campânula he- 
misférica de acrílico, montada sobre 
uma base móvel com duas rodas inde- 
pendentes, acionadas por motores con- 
trolados pelo microcomputador. A cam- 
pânula pode ser acoplada a um sensor 
de contato, que se comunica com o com- 
putador quando o robô colide com al- 
gum objeto ou parede. Na "barriga" da 
tartaruga, um solenóide controla um 
porta-caneta, que levanta ou abaixa sob 
controle do computador. Assim, a tar- 
taruga pode ser "ensinada" a traçar de- 
senhos sobre um papel colocado no 
chão. 

As tartarugas têm sido muito utiliza- 
das em escolas secundárias, para ensi- 
nar conceitos de programação a crian- 
ças menores. Empregando a linguagem 



LOGO ou uma simplificação da mesma 
(com comandos de uma tecla), a crian- 
ça aprende a programar a tartaruga pa- 
ra realizar movimentos complexos. Um 
dos jogos preferidos consiste em dar co- 
mandos pelo teclado, até que a tartaru- 
ga entre em sua "casinha". Os coman- 
dos em LOGO, digitados em um micro- 
computador, são traduzidos por uma in- 
terface de software para códigos biná- 
rios de controle das portas de saída. Es- 
ses sinais são enviados por um "cordão 
umbilical" ligado à tartaruga, ou, nos 
modelos mais sofisticados, como a Va- 
liant Turtle, por meio de sinais infraver- 
melhos. Uma placa com circuitos eletrô- 
nicos, na tartaruga, traduz os comandos 
binários em ações sobre os motores das 
rodas e da caneta. A tartaruga tem ain- 
da um olho luminoso, que acende quan- 
do ela se movimenta. 

Os comandos do LOGO permitem a 
movimentação da tartaruga segundo um 
sistema geométrico, em que a própria 
tartaruga é o ponto de referência. Exa- 
minaremos esses comandos em detalhe, 
na série de artigos sobre novas lingua- 
gens. Adiantamos aqui, entretanto, as 
instruções mais típicas: 

FORWARD - Move a tartaruga, em 
linha reta, para a frente. 
BACK -Move a tartaruga, em linha re- 
ta, para trás. 

R1GHT - Vira a tartaruga para o la- 
do direito. 

LEFT - Vira a tartaruga para o lado 
esquerdo. 

PENUP - Levanta a caneta, interrom- 
pendo o desenho. 

PENDOWN - Abaixa a caneta, per- 
mitindo o desenho. 
REPEAT - Repete uma sequência de 
movimentos várias vezes. 
TO...END - Armazena uma sequência 
programada de movimentos, que rece- 
be um nome (procedimento). 

Para fazer a tartaruga desenhar um 
triângulo com lados de duzentos passos 
(unidades de deslocamento), as instru- 
ções a serem dadas são: 

FORWARD 200 
BIGHT 120 
FORWARD 200 
RIGHT 120 
FOBUABD 200 
RIGHT 120 

Poderíamos escrever o mesmo com 
mais economia: 

BEPEAT 3 [FORWARD 200 RIGHT 
1201 

Ou, ainda, armazenar as instruções 
na forma de um procedimento denomi- 
nado TRIANGULO: 



TO TRIANGULO 

BEPEAT 3 (FORWARD 200 BIGHT 

120] 

END 

Uma vez definida, a palavra TRIAN- 
GULO passa a fazer parte do vocabu- 
lário LOGO. Depois, para traçar a fi- 
gura, basta digitar o comando TRIAN- 
GULO pelo teclado. 

Pode-se utilizar um mesmo procedi- 
mento dentro de outros, destinados a 
realizar movimentos mais complexos. 
Por exemplo, para fazer com que a tar- 
taruga desenhe uma flor formada de do- 
ze pétalas triangulares iguais, digitamos 
o seguinte: 

TO FLOR 

BEPEAT 12 [TRIANGULO BIGHT 30] 
END 

O LOGO é uma linguagem muito 
versátil, também empregada para fazer 
cálculos matemáticos, manipular dados 
simbólicos como listas, palavras e no- 
mes etc. Associado a uma tartaruga, tem 
o poder de tornar muito divertido o 
aprendizado da programação. 

Programas em outras linguagens, co- 
mo o BASIC, também podem ser usa- 
dos para controlar a tartaruga. 
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RAÍZES DE UMA LINGUAGEM 



EVOLUÇÃO 



LINGUAGENS IMPERATIVAS 



LINGUAGENS FUNCIONAIS 



QUARTA GERAÇÃO 



Existem atualmente mais de duzentas 
linguagens de programação. 
Algumas delas prometem tornar-se 
tão conhecidas quanto o BASIC 
no decorrer dos próximos anos. 



Até agora, focalizamos em INPUT 
duas linguagens de programação: As- 
sembler e BASIC. Estas são, de fato, as 
linguagens mais difundidas entre os 
usuários dos microcomputadores pes- 
soais e domésticos existentes atualmen- 
te no mercado brasileiro. Não são, po- 
rém, as únicas disponíveis. 

Algumas linguagens vêm se tornan- 
do gradativamente mais conhecidas e 
utilizadas em micros pessoais — em par- 
ticular o LOGO, o PASCAL e o 
FORTH. Outras, criadas já há algum 
tempo, mas destinadas a computadores 
de maior porte, prometem estender seu 
uso aos micros, podendo se tornar o fu- 
turo "esperanto" das máquinas de me- 
nor porte. Entre elas, inc!uem-se o L1SP 
e o PROLOG. Entretanto, como as lin- 
guagens mais recentes ainda se encon- 
tram em processo de aceitação e difu- 
são, nem sempre estão disponíveis para 
os micros de todas as marcas. 

' Na série que se inicia com este arti- 
go, apresentaremos duas linguagens de 
programação cuja popularidade tem 
crescido dia a dia entre os usuários de 
micros: o LOGO e o PASCAL. Cada 
uma tem características que permitem 
sua aplicação seja como linguagem ge- 
ral de programação (como o PASCAL), 
seja como linguagem destinada a áreas 
específicas — a área educativa, por 
exemplo (como o LOGO). 

Examinaremos aqui alguns aspectos 
do desenvolvimento de linguagens de 
programação, a evolução histórica das 
linguagens existentes e os critérios usa- 
dos em sua classificação. 

Há atualmente mais de duzentas lin- 
guagens de programação catalogadas. A 
primeira vista, podemos ter a impressão 
de que se trata de uma enorme e bíblica 
"torre de Babel". No entanto, as lin- 
guagens de programação, tal como as 
linguagens naturais, podem ser enqua- 
I dradas em linhas evolutivas, ou famílias 



de linguagens. Dentro de uma família, 
as semelhanças são maiores que as dife- 
renças, o que facilita muito a compreen- 
são e o aprendizado das linguagens que 
a compõem. 



NOVAS LINGUAGENS 



Um dos fatores condicionantes do 
aparecimento de novas linguagens de 
programação é o progresso tecnológico 
do hardware dos computadores — ou 
seja, a disponibilidade de memórias cen- 
trais cada vez maiores, o aumento na ve- 
locidade do processador central (UCP), 
o custo mais baixo das memórias auxi- 
liares de disco, o aparecimento de redes 
de computadores etc. 

Nos úitimos anos, as linguagens de 
alto nível — que se parecem mais com 
a linguagem natural humana do que 
com a binária, entendida somente pelos 
computadores — sofreram grande evo- 
lução. Avanços técnicos recentes permi- 
tem que elas sejam utilizadas como a lin- 
guagem nativa dos computadores, no lu- 
gar da linguagem de máquina. Com is- 
so, a programação se torna muito mais 
fácil, podendo sor realizada, em muitos 
casos, pelos próprios usuários. 

No final da década de 70, o Assem- 
bler e o BASIC eram praticamente as 
únicas linguagens para micros de custo 
mais baixo, pois o tamanho das memó- 
rias ROM disponíveis limitavam muito 
a complexidade e a extensão do progra- 
ma interpretador, que deveria ficar per- 
manentemente na memória da máquina. 

Entretanto, à medida que o espaço 
para a memória foi sendo ampliado, 
cresceu também a demanda por outros 
tipos de linguagem — o que era de se 
esperar, dado o número cada vez maior 
de usuários e de possibilidades de apli- 
cação. Surgiram então as primeiras im- 
plementações práticas, cm microcompu- 
tadores, dc FORTH, PASCAL, LOGO, 
FORTRAN. PILOT, C, LISP, PRO- 
LOG, SMALLTALK e várias outras lin- 
guagens. Muitas delas só podiam ser 
usadas, anteriormente, em computado- 
res de grande porte. 

Mesmo algumas linguagens de maior 
complexidade, que encontram aplica- 
ções em áreas comerciais ou científicas 



mais "pesadas", como o COBOL, 
APL, PL/1, SNOBOL, MODULA, 
ALGOL e ADA, já podem ser utiliza- 
das em microcomputadores da faixa 
profissional. 

Ao que :udo indica, a difusão dessas 
linguagens tende a crescer, conforme os 
usuários forem se familiarizando com as 
suas vantagens. A expansão na capaci- 
dade e velocidade dos micros fornecerá 
as bases para esse avanço. 

Outro fenómeno registrado na mi- 
croinformática é a multiplicação de pro- 
gramas que funcionam.ao mesmo tem- 
po, como um aplicativo (bancos de da- 
dos, planilhas eletrònicas etç.) e como 
linguagem de programação. É o caso do 
dBASE 11 (banco de dados) e do FRED 
(planilha eletrònica), entre outros. 

O desenvolvimento de muitos desses 
novos aplicativos "genéricos" deu ori- 
gem a linguagens altamente específicas, 
usadas para simulação (DYNAMO. 
GPSS), controle de equipamentos indus- 
triais (PEARL), controle de interfaces 
e equipamentos musicais (AMPLE) etc. 



0 DESENVOLVIMENTO DE LINGUAGENS 



Nada impede que todas as linguagens 
de programação venham a ser desenvol- 
vidas para microcomputadores Mas pa- 
rece pouco provável que isso ocorra, vis- 
to o grande número de linguagens exis- 
tentes. Das mais dc duzentas desenvol- 
vidas até agora, não chegam a vinte as 
que se tornaram conhecidas c utilizadas. 

Como as linguagens naturais, as lin- 
guagens de programação passam por 
contínuo processo de transformação, re- 
visão e alteração. O FORTRAN (FOR- 
mula TRANstation), por exemplo, evo- 
luiu tanto a partir da versão original, 
lançada em 1954, que, em alguns aspec- 
tos, é uma linguagem diversa. 

Além desse contínuo aperfeiçoamen- 
to, as linguagens também passam por 
um processo de geração de uma enor- 
me quantidade de "dialetos" ou varian- 
tes, desenvolvidas para implementação 
em linhas específicas de hardware, em 
diferentes sistemas e organizações. 

Uma das limitações mais sérias en- 
contradas pelo usuário de micros é jus- 
tamente a incompatibilidade entre dife- 
rentes dialetos do BASIC. Um progra- 
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ma desenvolvido segundo o BASIC da 
linha Apple, por exemplo, em geral não 
pode ser executado em um micro de ou- 
tra linha, como o Spectrum ou o MSX. 

Apesar de todo o esforço despendi- 
do na elaboração de um padrão inter- 
nacional, o ANSI BASIC, o problema 
ainda não foi solucionado. A inadequa- 
ção desse padrão é evidente: tanto que 
não há uma única marca de computa- 
dor que o adote integralmente. Por is- 
so, o interpretador BASIC, criado pela 
firma norte-americana Microsoft, tem 
sido usado como uma espécie de padrão 
por fabricantes de máquinas tão distin- 
tas como o Apple, o TRS-80 e o MSX, 

O projeto do MSX, aliás, é fruto de 
uma das últimas tentativas de se padro- 
nizar hardware e software de microcom- 
putadores pessoais através da implemen- 
tação de mais um dialeto do BASIC Mi- 
crosoft. Esse padrão tem tido excelente 
repercussão mundial, principalmente no 
Japão (seu pais de origem), na Europa, 
e no Brasil. 

A história das outras linguagens não 
foi muito diferente: o sucesso de um pa- 
drão resultou sempre da conquista de 
uma boa fatia do mercado pela empre- 
sa que o desenvolveu. O FORTRAN, 
por exemplo, foi desenvolvido pela IBM 
e, como era distribuído gratuitamente 
com os computadores dessa empresa, 
passou a ser amplamente adotado e se- 
guido, inclusive por outros fabricantes. 
Contando com uma grande base de 
usuários, a própria IBM pôde realizar 
melhorias subsequentes do FORTRAN 
— como o FORTRAN II, o FORTRAN 
IV, as versões G e H, o FORTRAN 77 
etc. 

Entretanto, uma linguagem como o 
PASCAL, que talvez seja a segunda lin- 
guagem mais popular para micros, pos- 
sui pelo menos sete versões diferentes. 
Cada uma delas é um semipadrão para 
o PASCAL relativo ao sistema opera- 
cional sob o qual roda. 



AS RAÍZES DA LINGUAGEM 



A torre de Babel é uma consequên- 
cia inevitável da necessidade de desen- 
volvimento de novas linguagens. 

Voltemos ao exemplo do FOR- 
TRAN. Seguramente, foi a primeira lin- 
guagem de alto nível desenvolvida. Sua 
criação atendeu a duas exigências: a re- 
solução de fórmulas matemáticas e cien- 
tificas, e o uso eficiente dos recursos 
computacionais disponíveis. Nesses as- 
pectos, foi um sucesso. Mas, em dois 
outros pontos, que não tinham sido jul- 
gados importantes pelos projetistas do 
FORTRAN, a linguagem mostrou-se 
I deficiente. Ela è excelente para fins ma- 



temáticos e científicos, mas extrema- 
mente inadequada (ou mesmo inútil) pa- 
ra tarefas como processamento de tex- 
tos ou bancos de dados. Além disso, não 
é uma linguagem estruturada, o que 
restringe a ação do programador. 

Na década de 60, desenvolveu-se uma 
outra linguagem, o ALGOL 60, com 
uma filosofia distinta de projeto. Seus 
pontos fracos e fortes diferem bastante 
daqueles que caracterizam o FORTRAN 
— sobretudo por se tratar da primeira 
linguagem de programação estruturada 
Ela foi projetada para ser essencialmen 
te algorítmica (daí seu nome, ALGO- 
rithmic Language), ou seja, para corres- 
ponder não às fórmulas matemáticas: 
mas ao processo inerente usado na re- 
solução de um problema (algoritmo). A 
unidade básica do ALGOL é o procedi 
mento, um bloco autónomo de código, 
com uma tarefa claramente definida, 
que trabalha com tipos predefinidos dc 
variáveis (declarações). Por essa razão, 
todas as linguagens derivadas direta- 
mente do ALGOL, como o PASCAL, 
o MODULA-2 e o ADA, são classifica- 
das como procedimentais, declarativas, 
algorítmicas e estruturadas. 

Embora não tenha sido muito usado, 
o ALGOL 60 desempenhou um papel de 
destaque, gerando um grande número 
de linguagens. Já o COBOL, conside- 
rado o terceiro "avô" da computação, 
foi intensamente utilizado — mas só dei- 
xou um "descendente", o PL/1. 

O COBOL (Common Business — 
Oriented Language) surgiu como respos- 
ta à conclusão — enunciada pelo Minis- 
tério da Defesa dos Estados Unidos — 
de que as instalações militares e centros 
de pesquisa necessitavam de uma lingua- 
gem de programação comum, se quises- 
sem operar o sistema americano de de 
fesa como um todo, efetivamente. De- 
senvolvida a partir de um esquema de 
cooperação entre governo e indústria, 
essa linguagem difundiu-se rápida e am- 
plamente. E provável que seja, hoje, a 
linguagem mais utilizada para aplicações 
comerciais em computadores de grande 
porte. Uma das razões que explicam a 
grande aceitação do COBOL é sua pro- 
ximidade do inglês natural. 



As linguagens de alto nível anterior- 
mente mencionadas deram origem à 
grande maioria das linguagens de pro- 
gramação da década de 60, muitas das 
quais ainda em uso. O BASIC, por 
exemplo, é um descendente direto do 
FORTRAN. As diferenças entre ambos 
refletem o intuito de se chegar a uma lin- 



guagem de fácil uso pelos iniciantes em 
programação. O ALGOL 60 deu origem 
ao ALGOL 68 — tão diferente, que po- 
de ser considerado uma nova linguagem, 
apesar do mesmo nome — , bem como 
ao PASCAL e ao SIMULA. De uma 
combinação entre o ALGOL e o CO- 
BOL surgiu o PL/ 1 . Do PASCAL e do 
SIMULA nasceu um grupo de lingua- 
gens procedimentais e algorítmicas, que 
incluem o MODULA, o MESA, o EU- 
CLID e o ADA. Finalmente, uma lin- 
guagem bastante poderosa, voltada à 
programação de objetos. originou-se do 
SIMULA — o SMALLTALK. 



LINGUAGENS IMPERATIVAS 



Todas as linguagens citadas são clas- 
sificadas como imperativas, pois ope- 
ram através de uma sequência de co- 
mandos declarativos — isto é, coman- 
dos que determinam um tipo altamente 
especifico de ação sobre dados da me- 
mória, rotulados na forma de variáveis. 
Muitas pessoas estão tão acostumadas 
a essa forma de programação, que ima- 
ginam tratar-se da única possível. En- 
tretanto, outras famílias, que incluem 
linguagens como o FORTH, o L1SP e 
o LOGO, têm estruturas de dados e de 
processamento bastante diferentes. Elas 
constituem o grupo de linguagens cha- 
madas funcionais ou aplicativas, ope- 
rando basicamente através da aplicação 
recursiva de funções. 



LINGUAGENS FUNCIONAIS 



As linguagens funcionais, como o 
próprio nome sugere, atuam sobre os 
dados por meio de funções ou procedi- 
mentos. Um procedimento é algo bem 
mais poderoso do que um comando. Ve- 
jamos por quê: toda linguagem de pro- 
gramação tem um vocabulário fixo de 
instruções, chamado conjunto de instrur 
ções. As linguagens imperativas utilizam 
um conjunto fixo de instruções, ou se- 
ja, um conjunto que não pode ser am- 
pliado pelo próprio usuário. A lingua- 
gem funcional, ao contrário, não faz 
distinção entre os comandos, declara- 
ções ou funções pertencentes ao conjun- 
to original e as funções ou procedimen- 
tos criados pelo usuário. Por isso, diz- 
se que certas classes de linguagens fun- 
cionais são extensíveis. 

O processamento baseado em fun- 
ções apresenta ainda outra vantagem: 
ela age sobre parâmetros de entrada e 
devolve parâmetros de saída, sem "sa- 
ber" necessariamente o que eles repre- 
sentam. Isso justifica a classificação das 
funções como generalizáveis. 
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As linguagens funcionais podem ser 
divididas em módulos (blocos autóno- 
mos de processamento) mais facilmen- 
te do que as imperativas, e possuem uma 
estrutura interna hierárquica que é usa- 
da tanto para o armazenamento do pro- 
grama quanto dos dados. No LISP ou 
no LOGO, por exemplo, uma lista de- 
finida como uma estrutura de dados po- 
de ser usada para armazenar um progra- 
ma. Existem comandos para modificar 
e executar um programa, armazenado 
em uma lista (EXECUTE, em LOGO, 
e EVAL, em LISP). Essa propriedade 
de uma linguagem é chamada indireção. 

Já em uma linguagem imperativa, co- 
mo o BASIC, programa e dados são ele- 
mentos inteiramente distintos. O con- 
junto de instruções não pode ser amplia- 
do e a ordem de execução é muito im- 
portante: se ela sofrer alguma modifi- 
cação, determinados valores de memó- 
ria não serão criados ou atualizados. 

Linguagens como o LISP permitem 
uma abordagem bem diferente. Em um 
certo sentido, cada programa em LISP 

— ou nas linguagens que dele derivam 

— é uma exLensão da linguagem origi- 
nal, com o acréscimo das novas funções 
definidas pelo usuário. Com uma lin- 
guagem funcional, o programador tem 
maior controle sobre o que faz do que 
com uma linguagem imperativa. 

As três propriedades mencionadas — 
recursâo, extensibilidade e indireção — 
são fundamentais em um campo muito 
atuai das ciências da computação: a In- 
teligência Artificial ("raciocínio" e 
"aprendizado" por máquina). LISP e 
LOGO, aliás, foram criados especifica- 
mente para facilitar o processamento 
simbólico, não-numérico, característico 
das aplicações de Inteligência Artificial. 
Ambos nasceram no Laboratório de In- 
teligência Artificial do MIT (Massachu- 
setts Institute of Technology, nos EUA). 



Como já dissemos, as linguagens de 
computador, da mesma forma que as 
linguagens naturais, não permanecem 
estáticas: elas evoluem constantemente, 
absorvendo aspectos de outras lingua- 
gens. Com isso, as diferenças entre lin- 
guagens imperativas e linguagens fun- 
cionais tendem a diminuir. 

Tomemos como exemplo o BASIC: 
os dialetos mais difundidos do Micro- 
soft BASIC (para as linhas Apple, 
TRS-80, TRS-Color e MSX) são lingua- 
gens puramente imperativas. Seus des- 
cendentes mais modernos, porém, como 
o QuickBASIC (da própria Microsoft), 
possuem características funcionais, en- 
tre elas a programação estruturada. 



Um processo semelhante ocorreu 
com o BASIC original das linhas Sin- 
clair. O SuperBASIC do modelo QL 
Spectrum, que dele deriva, tem não só 
estruturas — como CASE SELECT — 
próprias do PASCAL, como também 
oferece a possibilidade de se chamar 
funções apenas pelo nome e de se utili- 
zar a recursâo. Desenvolvimentos futu- 
ros da linguagem BASIC provavelmen- 
te a afastarão ainda mais do padrão ori- 
ginal (ANSI), incorporando elementos 
de linguagens funcionais como o 
FORTH e o LISP. 

Como já vimos, o LISP foi desenvol- 
vido como uma linguagem para o cam- 
po de Inteligência Artificial, e, ainda ho- 
je, predomina nessa área. Uma de suas 
principais características é o intenso uso 
de cadeias de caracteres (slring). Outra 
linguagem útil na mesma área é o SNO- 
BOL (SlriNg Oriented SymBOlic Lan- 
guage), originalmente desenvolvida pa- 
ra o processamcnio de linguagem natu- 
ral em Inteligência Artificial, Linguísti- 
ca etc, em tarefas como a determina- 
ção da autoria de manuscritos, análise 
estilística" de textos literários e geração 
automática de poemas. 

Também merece destaque a recente 
evolução das linguagens de desenvolvi- 
mento de sistemas. São linguagens de al- 
to nível, mas que incorporam recursos 
avançados de trabalho direto com a me- 
mória, processador e periféricos do 
computador. Entre as linguagens desse 
tipo, a de maior sucesso é o C, que foi 
usada para desenvolver o sistema ope- 
racional UNIX. Ela possui um podero- 
so conjunto de ferramentas de desenvol- 
vimento de software e tem sido utiliza- 
da sobretudo por programadores mais 
experientes. Para o usuário comum, o 
C parece um tanto inacessível — está en- 
tre uma linguagem de alto nível, como 
o PASCAL, e um Assembler, bem mais 
flexível, mas difícil de usar. Mesmo as- 
sim, essa linguagem vem se difundindo, 
principalmente entre os amadores que 
desejam dominar sua máquina sem ter 
o trabalho de aprender Assembler. Exis- 
tem diversas implementações do C pa- 
ra micros, inclusive o Spectrum. 

O SmallTalk é outra linguagem que 
segue de perto a filosofia do LISP. Tí- 
pica de uma nova família, a das lingua- 
gens de programação de objetos, ela 
constitui um "ambiente" completo de 
programação, como o C, e não apenas 
uma linguagem. O SmallTalk tem, no 
entanto, diversos recursos voltados pa- 
ra a máxima simplificação do conceito 
de programa e da tarefa de programa- 
ção. Nessa linguagem, cada item de um 
programa é considerado um objeto. A 
programação é feita através do inter- 



câmbio de "mensagens" entre objetos. 
Como não existe outro tipo de proces- 
samento, qualquer ação em um progra- 
ma é sempre a mesma coisa: uma men- 
sagem enviada para um objeto, que, por 
sua vez, envia mensagens para outros 
objetos. 

Os objetos podem realizar processa- 
mentos internos, conforme a mensagem 
que recebem. Um objeto do SmallTalk 
é, assim, semelhante a uma função LISP 
ou a um procedimento PASCAL. Só 
que, em vez de construir procedimentos 
e incorporá-los a uma estrutura em ár- 
vore, como no LISP e LOGO, os obje- 
tos podem ser considerados entidades 
independentes — como os registros de 
uma base de dados, em que cada regis- 
tro interroga ou responde aos demais. 
Em outras palavras, um objeto pode 
conter tanto dados quanto programas. 

A idéia não é muito fácil de enten- 
der, a não ser que se observe o funcio- 
namento do sistema. Infelizmente, ain- 
da não se encontram implementações de 
SmallTalk para todos os micros. Mas 
certamente vale a pena investigar essa 
linguagem, pois ela representa uma ten- 
dência importante para o futuro. Siste- 
mas operacionais de micros modernos, 
como o Macintosh, da Apple, foram 
muito influenciados pela filosofia Small- 
Talk, inclusive quanto ao tratamento da 
interface com o usuário, que é feita atra- 
vés de "janelas" múltiplas, menus e 
acionamento do "mouse". 



LINGUAGENS DE QUARTA GERAÇÃO 



Certas linguagens aplicativas mais re- 
centes (de quarta geração) foram desen- 
volvidas a fim de dotar o programador 
de poderosíssimos recursos, denomina- 
dos macros. Com efeito, nessas lingua- 
gens, um único comando ou função 
equivale a centenas ou milhares de ins- 
truções de uma linguagem imperativa 
comum, como o BASIC. Um exemplo 
de linguagem de quarta geração para mi- 
cros, o dBASE II (e sua extensão para 
micros de dezesseis bits, o dBASE III), 
é, ao mesmo tempo, um sistema aplica- 
tivo — mais especificamente, um siste- 
ma gerenciador de bases de dados, ou 
SGBD — e uma linguagem de pro- 
gramação. 

Outra linguagem de quarta geração 
em franca ascensão é o PROLOG 
{PROgrammmg in LOGic), desenvolvi- 
do na França e adotado pelos japone- 
ses em seu programa de computadores 
de quinta geração. O PROLOG está pa- 
ra o campo da Inteligência Artificial co- 
mo o dBASE para a área de gerencia- 
mento de dados. Existem PROLOG pa- 
ra micros de oito e dezesseis bits. 
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MfAL ANCHE □ KíSIS * 



montanha, enfrentar o mar, 



LISTAGEM COMPLETA tt.VZztz, 



Avalanche agora está completo, mas 
pode precisar de alguns acertos. É pou- 
co provável que você tenha digitado um 
programa tão longo sem cometer alguns 
enganos. Dedique-se à resolução de 
eventuais problemas causados ao criar 
ou copiar erros. Para descobri-los, ve- 
rifique suas listagens Assembly; se achar 
conveniente, remonte-as. 

Depois que as rotinas separadas esti- 
verem funcionando, carregue-as na me- 
mória, salve-as numa fita e teste o con- 
junto completo, chamando-o com o co- 
mando de execução de código de máqui- 
na de seu microcomputador. 

Por sua estrutura modular, o progra- 
ma do videogame Avalanche é fácil de 
corrigir. Caso encontre algum problema 
durante a execução do jogo, tenha o cui- 
dado de identificar a parte que apresen- 
tou o defeito e concentre nela seus es- 
forços para descobrir o erro. 

Mesmo que todas as rotinas funcio- 
nem adequadamente quando rodadas 
uma a uma, é possível que o programa 
completo apresente falhas. Rotinas cha- 
mam outras rotinas — e se uma delas 
contiver algum tipo de erro ou estiver 
montada cm lugar inadequado, o pro- 
grama poderá não funcionar. Estamos, 
por isso, publicando uma listagem he- 
xadecimal completa do jogo. Utilize-a 
para checar sua versão final. 

Depois de montar A valanche, o pro- 
grama estará na memória do computa- 
dor como uma série de números hexa- 
decimais em posições sucessivas, tal qual 
mostramos neste artigo. O número de 
quatro dígitos na coluna esquerda cor- 
responde ao endereço da posição de me- 
mória ocupado pelos dois primeiros 
bytes de programa naquela linha. Os pa- 
res subsequentes de dígitos ocupam as 
posições seguintes. Você tem, portanto, 
a possibilidade de examinar cada byte 
de Avalanche através do conteúdo da 
posição de memória correspondente e 
verificar se cada instrução do jogo foi 
montada corretamente. 

Ao contrário de alguns outros jogos 
de computador. Avalanche nunca che- 
ga a entediar, pois seus parâmetros de 
execução podem ser alterados. A cons- 
trução modular do programa deixa o 
usuário livre para fazer as modificações 
que quiser, permitindo-the adaptar Ava- 



lanche às suas preferências pessoais. Se- 
ja curioso. Experimente. Afinal, o jo- 
go agora é seu. E você pode fazer dele 
o que bem entender. 



O jogo está escrito na região 50000 
da memória para que possa ser monta- 
do pelo Assembler de INPUT. 

Se você não está usando o Assembler 
de INPUT, talvez precise deslocar o jo- 
go na memória por causa do espaço ocu- 
pado pelo próprio Assembler. A melhor 
alternativa é a região 20000. Para fazer 
a transferência basta mudar para 2 os 
endereços que iniciam com 5. 

Lembre-se de verificar se a rotina que 
executa a música não apagou outras ro- 
tinas ao ser deslocada. 

Use o monitor de código de máqui- 
na para analisar a memória do seu mi- 
cro e ver se ela confere com a listagem 
em hexa dada a seguir. Se você tiver des- 
locado o jogo, as posições de memória 
serão diferentes, mas a sequência de có- 
digos hexa deve ser a mesma. 

DE AS 18 3C 3C 18 3C 3C 3C 3C 

DEBO 3C 3C 18 18 1B 18 18 1E 

DEB8 01 03 03 01 00 01 01 01 

DECO 80 CO 60 80 00 00 00 E0 

DEC9 OE 00 01 02 04 08 04 00 

DEDO 00 00 BO AO 20 20 30 00 

DED8 00 00 00 00 18 3C 3C 1B 

DEE0 00 10 10 1E EO 00 0C 24 

DEE8 42 B2 43 00 00 00 00 00 

DEF0 00 00 00 00 01 03 03 01 

DEF8 00 00 00 00 BO CO CO 80 

DFO0 00 01 01 01 0E 00 01 02 

DF0B 00 00 00 E0 00 00 80 40 

DF10 04 08 04 00 00 00 00 00 

DF 18 20 20 30 00 00 00 00 00 

DF20 1C 3E 7F FF FF FE FC 38 

DF28 03 07 OF 0F 0F 07 03 01 

DF30 80 CO EO FO FO F0 E0 CO 

DF38 00 00 07 18 20 40 40 80 

DF40 00 00 1F AO CO 00 00 00 

DF48 00 00 80 40 SC 22 02 02 

DF50 80 40 7C 02 02 01 00 00 

DF58 00 00 00 04 0A 11 60 00 

DF60 02 04 08 04 04 04 F8 00 

DF68 00 00 78 B6 01 01 00 00 

DF70 00 00 1E 61 80 BO 00 00 

DF78 00 00 00 00 B7 79 00 00 

DF80 00 00 00 00 El 9E 00 00 

DF88 22 14 Oa 08 08 08 08 08 

DF90 18 3C 36 3E 7E 3C 18 IS 



DF98 16 18 OC OC 06 06 03 03 

DF AO 06 06 OC OC 18 18 30 30 

DFA8 60 60 C6 C3 66 6C 38 38 

DFBO 84 D6 FF FF FF FF FF FF 

DFB8 00 01 03 07 1F 3F 7F FF 

DFCO 00 00 FF FF 3C 3C FF FF 

DFC8 06 08 76 FF FF FF 3E 3C 

DFDO 10 10 10 38 38 39 38 38 

DFD8 10 1C 7C 38 38 38 10 10 

DFEO 00 00 00 20 51 8A 04 00 

DFE8 00 00 00 82 45 2B 10 00 

DFFO 00 00 00 00 00 00 00 00 

DFFB 00 00 00 00 00 00 00 00 

EOOO 00 00 00 00 00 00 00 00 
E008 00 00 00 00 00 00 00 62 
E010 00 B4 05 E9 00 C7 04 83 
E018 00 3E 04 DC 00 C4 03 4E 
E020 00 8C 03 93 00 C4 03 05 
E028 01 3E 04 6E 00 11 05 83 
E030 00 6A 06 31 00 B4 05 6E 
E038 00 11 05 E9 00 C7 04 62 
E040 00 B4 05 93 00 B4 05 2C 
E048 00 6A 06 62 00 B4 05 DC 
EOSO 00 11 05 5C 00 OC 06 DC 
E058 00 A7 07 43 4C 49 46 46 
E060 48 41 4E 47 45 52 43 52 
E068 45 41 54 45 44 20 42 59 
E070 20 41 2E 44 4F 45 57 52 
E078 49 54 54 45 4E 20 42 59 
EOBO 20 50 2E 43 4C 41 52 4B 
E088 20 41 66 74 65 72 20 61 
E090 20 73 6B 6F 72 74 20 77 
E098 61 6C 6B 20 57 69 6C 6C 
EOAO 69 65 20 20 20 20 20 20 
E0A8 72 65 74 75 72 6E 73 20 
EOBO 74 6F 20 66 69 6E 64 20 
EOBB 74 68 65 20 67 6F 61 74 
EOCO 73 20 6B 61 76 65 20 20 
E0C8 73 70 72 65 61 64 29 68 
EODO 69 73 20 70 69 63 6E 69 
E0D8 63 20 67 6F 6F 64 69 65 
EOEO 73 20 61 6C 6C 20 20 20 
E0E8 6F 76 65 72 20 61 20 72 
EOFO 6F 63 6B 79 20 65 6D 62 
E0F8 61 6E 6B 6D 65 6E 74 20 
E100 20 20 20 20 20 20 20 20 
E108 57 69 6C 6C 69 65 20 63 
E110 65 74 73 20 6F 66 66 20 
E118 74 6F 20 72 65 63 6C 61 
E120 69 6D 20 68 69 73 20 20 
E128 6C 6F 73 74 20 70 6F 73 
E130 73 65 73 73 69 6F 6E 73 
E138 2C 62 75 74 20 69 73 20 
E140 6B 61 6D 70 65 72 65 64 
E148 62 79 20 66 61 6C 6C 69 
E150 6E 67 20 62 6F 75 6C 64 
E158 65 72 73 2C 70 6F 74 20 
E160 68 6F 6C 65 73 20 20 20 
E16B 61 6E 64 20 76 69 63 69 
E170 6F 75 73 20 73 6E 61 6B 
E178 65 73 2E 54 6F 20 6D 61 
E180 6B 65 20 20 20 20 20 20 



um 



50 coueootMÃumu so 
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COMO DESCOBRIR 




DA VERSÃO FINAL 




OS ERROS 


■ 


0 CÓDIGO HEXADECIMAL 


m 


TESTE 0 


■ 


ALTERAÇÕES POSSÍVEIS 




CONJUNTO COMPLETO 


■ 


DESLOCAMENTO DO JOGO 


■ 


VERIFICAÇÃO 




NA MEMORIA 



E188 6D 61 74 74 65 72 73 20 

E190 77 6F 72 73 65 20 74 68 

E198 65 20 74 69 64 65 20 69 

E1A0 73 20 72 69 73 69 6E 67 

E1A8 61 6E 64 20 68 65 20 69 

E1B0 73 20 69 6E 20 64 61 6E 

E1B8 67 65 72 20 6F 66 20 62 

E1C0 65 69 6E 67 20 63 75 74 

E1C8 6F 66 66 2E 54 6F 20 68 

EIDO 65 6C 70 20 57 69 6C 6C 

E1D8 69 65 20 69 6E 20 68 69 

E1E0 73 20 71 75 65 73 74 20 



E1E8 72 65 61 64 20 74 68 65 
E1F0 20 66 6F 6C 6C 6F 77 69 
E1F8 6E 67 20 61 6E 64 20 70 
E200 72 65 73 73 20 27 53 27 
E208 74 6F 20 73 74 61 72 74 
E210 2E 20 20 20 20 20 20 20 
E218 20 20 20 20 20 20 20 20 
E220 20 4E 20 20 20 20 2D 20 
E228 52 75 6E 20 20 20 20 20 
E230 20 20 20 20 20 20 20 20 
E238 20 20 20 20 20 20 20 20 
E240 20 4D 20 20 20 20 2D 20 



E248 56 65 72 74 69 63 61 6C 
E2S0 20 6A 75 6D 70 20 20 20 
E258 20 20 20 20 20 20 20 20 
E260 20 42 6F 74 68 20 2D 20 
E268 44 69 61 67 6F 6E 61 6C 
E270 20 6A 75 6D 70 53 43 4F 
E27S 52 45 2D 30 30 30 30 30 
E280 30 4C 49 56 45 53 2D 35 
E288 47 41 4D 45 20 4F 56 45 
E290 52 20 21 21 21 23 23 21 
E29B 23 23 23 21 23 23 21 23 
E2A0 21 23 23 23 23 21 23 21 
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E2A8 
E2B0 
E2B8 
E2C0 
E2C8 
E2D0 
E2D8 
E2E0 
E2E8 
E2F0 
E2F8 
E300 
E30B 
E310 
E316 
E320 
E328 
E330 
E338 
E340 
E348 
E350 
E3S8 
E360 
E368 
E370 
E378 
E3B0 
E388 
E390 
E398 
E3A0 
E3A8 
E3B0 
E3B8 
E3C0 
E3C8 
E3D0 
E3D8 
E3E0 
E3E8 
E3F0 
E3FS 
EAOO 
E408 
E410 
EA18 
E420 
E428 
EA30 
E43B 
EA AO 
E448 
E4S0 
E458 
E460 
EA68 
E470 
E47B 
E480 
EA88 
E490 
EA9B 
EAAO 
E4A8 
EABO 
E4B8 
E4C0 
E4C8 
E4D0 
E4D8 
EAEO 
| EAE8 
I E4F0 



23 23 
23 23 
D3 FE 
21 SB 
86 00 
CC 00 
07 21 
12 21 
02 21 
E5 ED 
CD 50 
20 00 
E3 06 



23 23 
23 CD 
3E 10 
EO 06 
CD 2B 
CD 2B 
62 02 
A2 02 
E8 FD 
52 El 
E3 DD 
3E 07 
8A CD 



00 19 06 i 



E3 3E 
F8 C9 
20 F8 
CD 3E 
DD 23 
F8 3C : 
19 3D : 
DD 21 i 
00 DD 



FD DB 
3E FD 
C9 C5 



00 
C9 F5 
01 38 
Dl 7A 
00 97 

19 Dl 
24 03 
F5 El 
Dl 77 
00 00 
00 00 
00 00 
10 32 
06 20 
32 Fl 
FE 21 
3D 32 
DF 3A 
3E 2D 
3A Fl 
B8 DF 
FO DF 

20 11 
Cl 10 
3E 29 
E3 21 
E3 CD 
06 D8 
23 OD 
C5 01 
20 00 
00 EO 
08 00 
BF 00 
00 EO 
83 EA 
A9 EA 
EA 21 
3A 01 
CS 01 
E3 11 
C9 21 
91 01 
CD BC 
DF F5 
20 00 
CD B3 
3E 00 
22 F9 
DF 3E 
32 09 



77 00 
00 ED 
E5 C5 



Fl 3D 
Fl DS 
D5 El 
00 00 
00 00 
00 00 
FO DF 
CS DC 
DF DD 
20 OD 
FO DF 
FO DF 
CD 48 
DF FE 
3E 2C 
47 3E 
20 00 
AF 21 
DD 21 
71 00 
57 E4 
OE 1F 
20 F8 



19 10 
3E 3A 
FE 00 
Fl FE 
C9 21 
91 01 
CD 96 
00 3D 

20 00 
C9 01 
CD BC 
EA C9 
3E 2B 
19 Fl 
E2 3E 
32 00 
DF 22 
13 32 
EO 21 



21 23 23 21 
50 E3 3E 02 
32 48 SC DD 

05 3E A6 21 
E3 06 06 21 
E3 06 10 3E 
CD 2B E3 06 
CD 2B E3 06 
11 00 00 2B 

20 F9 10 Fl 

21 88 EO 21 

06 FF CD 2B 
2B E3 11 26 
3E A6 CD 2B 
FE CB 4F 20 
DB FE CB AF 
FS DD 7E 00 
CD 69 E3 23 
EE C9 ES 21 
00 06 1F 90 
E5 Cl El C9 
21 00 1B 3E 
DD 23 2B E5 
52 El 20 Fl 
ES Dl 7A FE 
11 00 07 19 
28 06 D5 11 
D5 11 00 AO 
Cl F5 OA 77 
28 03 F5 18 
11 00 58 19 
C9 00 00 00 
00 00 00 00 
00 00 00 00 

00 00 00 3E 
DD 21 B2 E2 
35 EA 3E 00 
7E 00 DD 2B 

05 3A FO DF 
3E 01 32 Fl 
A7 21 1F 00 
EA 01 BO DF 

01 20 03 01 
CD 69 E3 3A 
17 90 47 3E 
19 CD 48 EA 
31 00 06 OC 
75 E2 CD 2B 

06 07 CD 2B 
C9 21 00 AO 
23 7E 2B 77 
23 10 F3 C9 
CD 69 E3 11 
10 F2 C9 3A 
DF 47 04 11 
FD E5 Cl 21 
CD 69 E3 3A 
28 OC F5 CD 
01 28 03 CD 
C9 01 CD 96 
CD 96 EA 21 
EA C9 06 OA 
3E 2D CD 69 
19 Cl 10 FD 
CD BC EA 21 
EA 21 3A 01 
3E OA 01 90 
CD 69 E3 -11 
3D 20 F2 C9 
05 32 FF DF 
EO 21 00 00 
FB DF 22 FD 
6S EA 3E 06 
EO 02 22 OA 



E4F8 EO 21 82 00 22 01 EO 3E 
E500 03 32 03 EO 3E 00 32 OA 
E508 EO 3E 02 32 OS EO 21 Cl 
ES10 01 22 F4 DF 21 00 00 22 
E518 F6 DF 3E 00 32 FB DF 21 
E520 DF 00 22 OC EO 3E 00 06 
E528 05 32 06 EO 80 32 07 EO 
E530 80 32 08 EO CD BF E3 CD 
E538 3B E6 21 77 00 3A FF DF 
ES40 06 30 BO CD 3E E3 3E 29 
E5AB CD 69 E3 CD 60 EA CD 11 
E5S0 E7 CD 71 E6 CD AF E9 CD 
ES58 02 E6 CD AB ES CD 7F ES 
ES60 3A FB DF EF 01 CA BC E9 
E568 FE 02 CA OA E9 06 32 3E 
E570 FF 3D 20 FD 10 FB 3E FE 
E578 DB FE CB A7 20 DO C9 3A 
E580 05 EO 3C CB 9F 32 05 EO 
E588 01 68 DF FE OA 38 03 01 
ES90 78 DF 3E 2E 21 2A 00 C5 
E598 CD 69 E3 23 CD 69 E3 Cl 
E5A0 21 A A 00 CD 69 E3 23 CD 
ESA8 69 E3 C9 3A 03 EO 3D 32 
E5B0 03 EO FE 00 28 01 C9 3E 
E5B8 06 32 03 EO 3E 2D 01 00 
E5C0 AO 2A 01 EO 16 03 1E 02 
E5CS CD 5A E6 3A OA EO FE 00 
E5D0 28 03 2B 18 01 23 22 01 
E5D8 EO 01 38 DF 3E 2F 16 03 
E5E0 1E 02 CD SA E6 11 81 00 
E5E8 ED 52 20 06 3E 00 32 OA 
E5F0 EO C9 11 90 00 2A 01 EO 
ESF8 ED 52 20 OS 3E 01 32 OA 
E600 EO C9 01 EO DF 3A 09 EO 
E608 CB 57 2B 03 01 EB DF 2A 
E610 OA EO 3E OF 16 20 D5 CS 
E618 CD 69 E3 23 Cl Dl IS 20 
E620 F5 3A 09 EO 3D 32 09 EO 
E62B 20 10 3E OA 32 09 EO 2A 
E630 OA EO 11 20 00 ED 52 22 
E63S OA EO C9 21 37 00 DD 21 
E640 F9 D7 06 06 C5 DD 7E 00 
E6A8 06 30 80 CD 3E E3 3E 29 
E650 CD 69 E3 23 DD 23 Cl 10 
E658 EB C9 E5 D5 E5 D5 CD 69 
E660 E3 23 Dl IS 20 F7 El 11 
E668 20 00 19 Dl 1D 20 EC El 
E670 C9 3A 00 EO FE 00 28 05 
E678 FE 03 28 01 C9 3A OE EO 
E680 FE 01 2B S5 2A OC EO 01 
E688 20 DF 3E 2A CD 69 E3 23 
E690 3E 2D 01 00 3D CD 69 E3 
E698 2A OC EO 11 EO 01 ED 52 
E6A0 28 SD 2A OC EO 11 20 58 
E6A8 19 7E FE OF 28 51 FE 2D 
E6B0 20 IA 2A OC EO 01 00 3D 
E6B8 3E 2D CD 69 E3 11 20 00 
E6C0 19 22 OC EO 01 20 DF 3E 
E6C8 2A CD 69 E3 2A OC EO 2B 
E6D0 22 OC EO 3E 01 32 OE EO 
E6D8 C9 2A OC EO 11 00 58 19 
E6E0 7E FE 28 20 05 3E 02 32 
E6E8 F8 DF 2A OC EO 3E 2A 01 
E6F0 2B DF CD 69 E3 23 CD 69 
E6F8 E3 3E 00 32 OE EO 69 2A 
E700 OC EO 01 00 3D 3E 2D CD 
E708 69 E3 21 DF 00 22 OC EO 
E710 C9 3A F7 DF FE 00 C2 CB 
E71B E7 3A F6 DF FE 01 28 5C 
E720 2A F4 DF 2B 01 00 AO 3E 
E728 2D 11 02 02 CD 5A E6 01 
E730 A8 DE 3E 28 23 11 02 01 
E738 CD SA E6 11 AO 58 19 7E 
E7A0 FE 2D CA C2 E7 FE 2B 2B 



E7A8 
E750 
E758 
E760 
E768 
E770 
E77B 
E780 
E7B8 
E790 
E798 
E7A0 
E7A8 
E7B0 
E7B8 
E7C0 
E7C8 
E7D0 
E7D8 
E7E0 
E7E8 
E7F0 
E7F8 

E80 0 
E808 
E810 
E818 
E820 
E828 
E830 
E838 
E840 
E848 
E850 



ES A O 
EBA8 
EBBO 
EBBB 
EBCO 
E8C8 
E8D0 
E8D8 
E8E0 
E8E8 
E8F0 
EBF8 
E900 
E908 
E910 
E918 
E920 
E928 
E930 
E938 
E9A0 
E948 
E950 
E958 
E960 
E968 
E970 
E978 
E980 
E988 
E990 



79 FE OF 28 
FE CB 57 20 
SF 20 02 06 
DF 18 09 CB 
01 32 F6 DF 
BF 00 ED 52 
32 F8 DF C9 
OC 06 CD B5 
11 21 58 19 

31 FE 2C 28 
29 11 20 00 
28 20 FE 2D 
28 1B 2A FA 
B8 DE 11 02 
23 22 FA DF 
DF C9 3E 02 
11 06 00 21 
03 3A F7 DF 
3C 32 F7 DF 
20 00 ED 52 
D8 DE 3E 28 
56 E6 C9 FE 

32 F7 DF 2A 
DE 3E 28 11 
E6 11 AO 00 

00 3D CD 69 

20 IA 3C 32 
DF 01 D8 DE 

01 CD 5A E6 
22 FA DF C9 
3E 00 32 F7 
11 20 00 ED 
3E 2D CD 69 
FE 81 20 33 
2A FA DF 11 
FE 2B CA C2 
07 2A FA DF 
2A FA DF 11 
22 FA DF 01 

02 3E 28 CD 
8A 28 5B 3C 
F6 DF FE 01 
DF 01 00 AO 

02 CD SA E6 
01 A8 DE 3E 
CD SA E6 3E 
C9 2A F4 DF 
28 11 02 02 
22 F4 DE 11 
FE 2C 20 OC 
DF 3E 04 06 
3E 00 32 F6 
32 F7 DF 2A 

00 AO 3E 2D 
5A E6 11 21 
DF C3 11 E7 
3E 04 CD B5 

21 6E 06 CD 
DF 01 11 3D 
E3 11 20 00 

01 A8 DE 3E 
CD 5A E6 11 

03 ED 5F 6F 
FA DF 11 CO 
CD 3E 09 32 
DF 3D 32 FF 
21 4A 01 3E 
21 88 E2 CD 
E6 11 05 01 
B5 03 11 88 
CD B5 03 11 
06 CD B5 03 
E5 C3 DO E4 
26 03 CD BS 



75 3E 00 DB 
OE 06 01 CB 
BI 78 32 F7 
SF 20 OS 3E 
2A FA DF 11 
30 05 3E 01 
11 03 00 21 
03 2A F4 DF 
7E FE 2B 28 

27 FE 2A 28 
19 7E FE OF 

28 1C FE 2B 
DF 3E 28 01 
02 CD 5A E6 
3E 00 32 F6 
32 FB DF C9 
F7 02 CD B5 
FE 01 20 1B 
2A FA DF 11 

22 FA DF 01 
11 03 01 CD 
02 20 1F 3C 
F4 DF 01 AB 

02 01 CD 5A 

19 3E 2D 01 
E3 C9 FE 03 
F7 DF 2A FA 
3E 2B 11 03 
11 20 00 19 
FE 04 20 18 
DF 2A FA DF 
52 01 00 3D 
E3 C3 11 E7 
3C 32 F7 DF 
21 58 19 7E 
E7 FE 2C 20 
2B 22 FA DF 

20 00 ED 52 
FO DE 11 03 
5A E6 C9 FE 
32 F7 DF 3A 
28 23 2A FA 
3E 2D 11 03 

23 22 FA DF 
28 11 02 01 
01 32 F6 DF 

01 B8 DE 3E 
CD 5A E6 23 
AO 58 19 7E 
3E 00 32 F7 
05 CD FC E9 
DF C9 3E 00 
FA DF 2B 01 
11 02 02 CD 

00 19 22 FA 
11 C4 00 21 

03 11 83 00 
B5 03 2A FA 
3E 2D CD 69 
19 22 FA DF 
28 11 02 01 
1E 00 21 6E 
CD B5 03 2A 

02 ED 52 38 
65 EA 3A FF 
DF C2 EE EA 
8E 06 OB DD 
2B E3 CD 3B 

21 6E 06 CD 

01 21 3E OA 
05 01 21 6E 
3E 32 32 6E 
11 OB 02 21 

03 3A 00 EO 



E998 3C CB 97 32 00 E0 3A 6E 

E9A0 E5 3D 32 6E E5 3E 03 06 

E9A8 05 CD FC E9 C3 E9 E4 3A 

E9B0 00 EO FE 02 30 01 C9 DD 

E9B8 21 06 EO 21 A9 01 CD CE 

E9C0 E9 21 71 01 CD CE E9 21 

E9C8 IA 01 CD CE E9 C9 E5 ED 

E9D0 SB OA EO ED 52 El 38 01 

E9D8 C9 DD 7E 00 3C CB A7 DD 

E9E0 77 00 DD 23 FE 07 30 01 

E9E8 C9 01 8B DF 16 2B FE OF 

E9F0 20 05 01 00 3D 16 2D 7A 

E9FB CD 69 E3 C9 DD 21 F9 DF 

EAOO 16 00 5F DD 19 DD E5 CD 

EA08 12 EA DD EA 10 F7 CD 3B 

EA10 E6 C9 DD E7 00 3C FE OA 

EA18 20 09 3E 00 DD 77 00 DD 

EA20 2B 18 EF DD 77 00 C9 00 

EA28 00 00 00 00 00 00 00 00 

EA30 00 00 00 00 00 00 00 00 

EA38 00 00 00 00 00 00 00 00 

EA40 00 00 00 00 00 00 00 00 

EAíiS 00 00 00 00 00 00 00 00 

EA50 00 00 00 00 00 00 00 00 

EA58 00 00 00 00 00 00 00 00 

EA60 DD 21 OF EO 06 13 C5 DD 

EA68 56 01 DD 5E 00 DD 66 03 

EA70 DD 6E 02 DD E5 CD B5 03 

EA78 DD El 11 04 00 DD 19 Cl 

EA80 10 E4 C9 00 00 00 00 00 




Você já deve ler observado que a ro- 
tina da música funciona independente- 
mente de qualquer outra e foi montada 
distante do programa principal. Isso não 
interfere com o Assembler de INPUT, 
mas,se você usou outro montador, po- 
derá descobrir que a rotina da música 
está na região de memória ocupada pe- 
lo próprio Assembler. Nesse caso, co- 
loque uma nova origem na rotina da 
música. Tente usar 24000 em vez de 
30000 — e não se esqueça de mudar as 
declarações EQU e as instruções JSR 
30000, para que o processador vá para 
o novo endereço inicial quando a roti- 
na da música for chamada. 

Use o monitor de código de máqui- 
na do seu computador para ler (com 
PEEK) a memória e verificar se ela con- 
fere com a listagem hexa dada a seguir. 
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03 


oc 


09 


0 6 


06 


OH 


01 


OE 


4270 


07 


DS 


12 


0 i 


12 


05 


01 


14 


4 i ? B 


05 


04 


20 


02 


19 


20 


01 


2E 


4280 


04 


OF 


03 


17 


12 


09 


14 


14 


4238 


05 


DE 


20 


02 


19 


20 


13 


2E 


4290 


OB 


05 


OC 


OC 


01 


17 


01 


19 


429B 


01 


0E 


04 


20 


07 


2E 


08 


05 


4 2A0 


04 


OC 


05 


19 


20 


01 


06 


14 


42A8 


06 


12 


20 


01 


20 


13 


0 8 


OF 


42B0 


12 


U 


20 


17 


01 


OC 


OB 


,■0 


42B8. 


17 


09 


0 C 


OC 


09 


05 


20 


20 


A2C0 


20 


20 


20 


20 


12 


0 6 


14 


05 


42C6 


12 


OE 


13 


20 


H 


OF 


20 


06 


12D0 


09 


DE 


04 


20 


14 


OH 


0 6 


20 


■5 2 DS 


07 


OF 


01 


14 


13 


20 


08 


01 



42E0 16 05 20 20 13 10 12 05 

42E8 01 04 20 08 09 13 20 10 

42F0 09 03 OE 09 03 20 07 OF 

42F8 OF 04 09 05 13 20 01 OC 

4300 OC 20 20 20 OF 16 05 12 

4308 20 OJ 20 12 OF 03 OB 19 

4310 20 05 OD 02 01 OE OB OD 

4318 05 OE M 2E 20 20 20 20 

4320 20 20 20 20 20 17 09 OC 

43211 OC 09 05 20 13 05 14 13 

4330 20 OF 06 06 20 14 OF 20 

4338 12 05 03 OC 01 09 OD 20 

4340 08 09 13 20 OC OF 13 14 

4348 20 10 OF 13 13 05 13 13 

4350 09 OF OE 13 2C 02 15 14 

4358 20 09 13 20 08 01 OD 10 

4360 05 12 05 04 02 19 20 06 

4368 01 OC OC 09 OE 07 20 02 

4370 OF 15 OC 04 05 12 13 2C 

4378 10 OF 14 20 08 OF OC 05 

4380 13 2C 20 20 01 OE 04 20 

43BS 16 09 03 09 OF 15 13 20 

4390 13 OE 01 OB 05 13 2E 14 

4398 OF 20 OD 01 OB 05 20 20 

43A0 20 20 20 20 OD 01 14 14 

43A8 05 12 13 20 17 OF 12 13 

4JB0 05 20 14 08 05 20 14 09 

43B8 04 05 20 09 13 20 12 09 

43C0 13 09 OE 07 01 OE 04 20 

43C8 08 05 20 09 13 20 09 OE 

43D0 20 04 01 OE 07 05 12 20 

43D8 OF 06 20 02 05 09 OE 07 

43E0 20 03 15 14 OF 06 06 2E 

43E8 14 OF 20 08 05 OC 10 20 

43F0 17 09 OC OC 09 05 20 09 

43F8 OE 20 08 09 13 20 11 15 

4400 05 13 14 20 12 05 01 04 

440B 20 14 08 05 20 06 OF OC 

4410 OC OF 17 09 OE 07 20 01 

4418 OE 04 20 10 12 05 13 13 

4420 20 27 13 27 14 OF 20 13 

4428 14 01 12 14 2E OE 20 20 

4430 20 20 2D 20 12 15 OE OD 

4438 20 20 20 20 2D 20 16 05 

4440 12 14 09 0,3 01 OC 20 OA 

4448 15 OD 10 02 OF 14 08 20 

4450 2D 20 04 09 01 07 OF OE 

4458 01 OC 20 OA 15 OD 10 23 

4460 23 23 21 23 23 21 23 23 

4468 23 21 23 23 21 23 23 23 

4470 23 21 23 23 21 23 23 21 

4470 23 23 23 21 23 23 21 21 

4480 55 54 50 50 40 40 00 00 

4488 7F 5F 57 D7 F5 FF D5 75 

4490 DD 77 5D D5 7D 75 5D 77 

4498 F5 FD 57 75 DD 77 5D D5 

44A0 FD 5F 57 D7 5D FF D5 7F 

44AB 75 77 FD F7 D5 5D 75 77 

44B0 -55 D5 D5 5D 5D D7 F5 7D 

44B8 D5 5D 5D D7 55 57 FF 7F 

44C0 57 57 FD FD 55 75 D5 55 

44C8 55 75 D5 55 75 75 D5 D5 

44D0 5D 5D D5 D5 5D 5D D7 55 

44D8 57 5D D/ 5D D5 D5 5D 5D 

44E0 75 D7 DD 75 7D 5D 75 D5 

44E8 5D 75 5D D7 57 75 5D 5D 

44F0 F5 D5 57 75 5D D5 57 75 

44F8»57 55 55 D7 F7 55 55 DD 

4500 57 55 55 D5 77 55 55 DF 

4508 D5 D5 57 55 5D D5 57 7F 

4510 F5 75 5D 55 57 75 5D F5 

4518 57 5D 75 5F 5D 57 D7 55 

4520 75 75 57 55 55 77 75 D5 



4528 55 D7 75 D5 55 D7 75 75 
4530 57 57 5D 75 57 57 5D 55 
4538 55 57 5D 55 7D D7 D7 D7 
4540 7D 5D 7D 5D 5D FF 7D D7 
4548 5D 75 FF FD 57 FD 57 FD 
4550 5D 7D DD FF 5D FF D5 7D 
455B 57 FD 7F D5 FD D7 7D FF 
4560 57 5D 75 75 7D D7 7D D7 
4568 7D 7F D7 7F 57 57 57 5F 
4570 5F 57 5F 5F 5F 5F D5 F5 
4578 F5 D5 F5 F5 F5 F5 5F 5F 
4580 57 57 57 57 S7 57 F5 F5 
4588 D5 D5 D5 D5 D5 FD 55 55 
4590 55 55 55 55 55 55 57 5F 
4598 5F 57 55 57 57 57 D5 F5 
45A0 F5 D5 55 55 55 FD 55 55 
45A8 55 55 55 55 55 55 55 55 
45B0 55 55 55 55 55 55 FD 55 
45B8 57 5D 75 D5 75 55 55 55 
45C0 D5 75 5D 5D 5F 55 55 55 
45C8 55 55 55 55 55 55 55 55 
45D0 55 55 57 5F 5F 57 55 55 
45D8 55 55 D5 F5 F5 D5 55 57 
45E0 57 57 FD 55 S7 5D 55 55 
45E8 55 FD 55 55 D5 75 75 D5 
45F0 75 55 55 55 55 55 5D 5D 
4SF8 5F 55 55 55 55 55 55 55 
4600 55 55 55 55 55 55 55 55 
4608 55 55 57 5F 5F 57 55 55 
4610 55 55 D5 F5 F5 D5 55 55 
4618 55 55 55 55 55 55 55 55 
4620 55 55 55 55 55 55 55 57 
4628 57 57 FD 55 57 5D 55 55 
4630 55 FD 55 55 D5 75 55 55 
4638 55 55 55 55 55 55 55 55 
4640 55 55 55 55 55 55 75 D5 
4648 75 55 55 55 55 55 5D 5D 
4650 5F 55 55 55 55 55 55 55 
4658 55 55 55 55 55 55 57 5F 
4660 7F FF FF FF 7F 5F F5 FD 
4668 FF FF FF FD F5 D5 55 55 
4670 55 55 55 55 55 55 5F 7F 
4678 FF FF FF 7F 5F 57 D5 F5 
4680 FD FF FF FF FD F5 55 55 
4698 55 55 55 55 55 55 5D 57 
4690 55 55 55 55 55 55 5D 75 
4698 D5 D5 D5 D5 D5 D5 57 5F 
46A0 7D 7F 7F 5F 57 57 D5 F5 
46A8 FD FD FD F5 D5 D5 57 57 
46B0 55 55 55 55 55 55 D5 D5 
46B8 F5 F5 7D 7D 5F 5F 55 55 
46C0 55 55 57 57 5F 5F 7D 7D 
46C8 F5 F5 D5 D5 55 55 7D 7D 
46D0 F5 F5 7D 7D 5F 5F 55 55 
46D8 7D 5F 7D F5 D5 D5 55 55 
46E0 AA AA 56 56 AA AA 55 55 
46E8 AA AA 95 95 AA AA 55 55 
46F0 7F FF FF FF 7F 5F 81 15 
46F8 7D FF FF FF FD F5 57 57 
4700 57 5F 5F 5F 5F 5F 55 55 
4708 55 D5 D5 D5 D5 D5 57 5F 
4710 7F 5F 5F 5F 57 57 55 D5 
4718 F5 D5 D5 D5 55 55 AA AA 
4720 AA A6 99 6A AA AA AA AA 
472B AA AA A9 66 9A AA AA AA 
4730 AA 6A 9A A6 A9 AA AA AA 
4738 AA A6 99 6A AA AA 00 05 
4740 00 00 00 00 00 00 06 1D 
4A38 BD 4A CC BE 04 21 10 8E 
4A40 42 68 C6 05 BD 4A E6 8E 
4A48 04 67 C6 06 BD 4A E6 8E 
4A50 05 61 C6 10 BD 4A E6 8E 
4A58 05 AO C6 15 BD 4A E6 8E 




IIIIIIIIIIHH 50 coDiGODtmaum 50 



4A60 05 C7 C6 OC BD 4A E6 66 
4A68 05 8E FF FF 30 1F 26 FC 
4A70 4A 2b F6 BD 4A CC 8E 04 
4A76 00 10 8E 42 A4 5F BD 4A 
4A80 E6 C6 89 8D 4A E6 30 B8 
4A88 18 C6 OA BD 4A E6 30 88 
4A90 16 C6 14 BD 4A E6 30 OC 
4A98 C6 14 BD 4A E6 BD 80 06 
4AA0 81 53 26 F9 39 BD 4A EE 
4AAB BD 4A D9 BE 15 FF 10 BE 
4AB0 44 5F C6 20 34 04 BD 4A 
4AB8 FD BD 4B 12 35 04 5A 26 
4AC0 F3 10 8E 44 C4 8E 06 21 
4AC8 BD 4B 43 39 8E 04 00 86 
4ADQ 80 A7 80 8C 06 00 25 F9 
4ADB 39 8E 06 00 86 55 A7 00 
4AE3 BC 1E 00 25 F9 39 A6 AO 
4AE8 A7 80 5A 26 F9 39 86 E5 
4AF0 B7 FF 22 B7 FF C3 B7 FF 
4AF8 C5 B7 FF C7 39 34 30 8E 
4B00 06 00 10 8E 06 01 A6 AO 
4B08 A7 80 8C 1D FF 25 F7 35 
4B10 30 39 34 10 A6 AO 80 21 
4918 26 1C 35 10 30 89 FF 00 
4B20 34 10 34 20 10 8E 44 80 
4B28 C6 08 A6 AO A7 84 30 88 
4B30 20 5A 2b F6 35 20 6F 84 
4B38 30 88 20 8C 1E 00 25 F6 
4B40 35 10 39 C6 1E 34 04 C6 
4B48 04 A6 AO A7 80 5A 26 F9 
4B50 30 88 1C 35 04 5A 26 ED 
4B58 39 B6 47 3E C6 10 3D C3 
4B60 46 DE 1F 03 8E OA DE BD 
4B68 4B CA B6 47 3E 27 OE 34 
4B70 02 BD 4B 7E 35 02 81 01 
4B78 27 03 BD 4B 9A 39 8E 13 
4B80 E7 CE OB FF BD 4B B6 8E 
4B88 11 EF CE 08 FF BD 4B B6 
4B90 8E OE F9 CE OB FF BD 48 
4B9B B6 39 8E 13 E7 CE 4b 9E 
4BA0 BD 4B B6 8E 11 EF CE 46 
4BAB 9E BD 4B B6 8E OE F9 CE 
4BB0 46 9E BD 4B Bb 39 C6 04 
4BB8 34 54 BD 4B CA 35 54 30 
4BC0 89 01 00 33 C8 10 5A 26 
4BC8 EF 39 C6 02 34 14 C6 08 
4BDÒ 37 02 A7 84 30 88 20 5A 
4BD8 26 F6 35 14 30 01 5A 26 
4BE0 EB 39 BD 4A 38 86 05 B7 
4BEB 47 3F 7F 47 3E SE 47 40 
48F0 C6 06 6F 80 5A 26 FB 86 
4BF8 06 B7 47 46 BE 1D 00 BF 
4CO0 47 47 8E 13 EO BF 47 49 
4C08 7F 47 4B 7F 47 4C 8E OB 
4C10 FE BF 47 4D 7F 47 4F 86 
4C18 05 B7 47 50 Bb OA B7 47 
4C20 51 BD 4A A5 8E 07 OF CE 
4C28 44 88 C6 05 66 03 37 20 
4C30 10 AF 81 4A 26 F8 30 88 
4C38 IA 5A 26 FO BD 4C 77 8E 
4C40 08 OF CE 44 A6 C6 05 86 
4C48 03 37 20 10 AF 81 4A 26 
4C50 F8 30 88 IA 5A 26 FO B6 
4C58 47 3F C6 05 3D C3 45 3C 
4C60 1F 03 8E 08 16 C6 05 37 
4C68 02 A7 84 30 88 20 5A 26 
4C70 F6 BD 75 30 7E 51 C4 34 
4C78 36 8E 47 40 C6 06 10 8E 
4C80 07 16 A6 84 34 14 C5 01 
4C88 26 24 C6 05 3D C3 45 3C 
4C90 1F 01 34 20 C6 05 A6 80 
4C98 A7 A4 31 A8 20 5A 26 F6 
4CA0 35 20 31 21 35 14 30 01 



4CA8 5A 26 D7 35 36 39 C6 05 
4CB0 3D C3 45 3C 1F 01 34 20 
4CB8 C6 05 A6 80 34 02 84 OF 
4CC0 48 48 48 48 8A 05 A7 21 
4CC8 35 02 44 44 44 44 8A 50 
4CD0 A7 A4 31 A8 20 5A 26 E2 
4CD8 35 20 31 22 20 C6 CE 47 
4CE0 1E B6 47 46 85 02 27 03 
4CEB CE 47 2E BE 47 47 86 10 
4CF0 34 42 BD 4B CA 35 42 4A 
4CF8 26 F6 7A 47 46 26 OF 96 
4D0U OA B7 47 4b BE 47 47 30 
4D08 89 FF 00 BF 47 47 39 7A 
4D10 47 52 26 30 86 05 27 47 
4D18 52 13 BE 06 21 86 1E 34 
4D20 02 86 02 1C FE 34 01 5F 
4D28 35 01 66 85 34 01 5C Cl 
4D30 8E 26 F5 68 84 35 01 66 
4D38 84 4A 26 E7 30 88 20 35 
4D40 02 4A 26 DB 39 86 47 3E 
4D48 27 05 81 03 27 01 39 BE 
4D50 47 4D CE 06 00 34 10 BD 
4D58 4B CA 35 10 30 1F 8C 14 
4D60 EO 27 4B BF 47 4D A6 84 
4D68 81 AA 27 42 81 55 27 09 
4D70 81 5D 27 05 86 02 27 47 
4D78 4C 30 89 01 21 Ab 84 BI 
4D80 AA 27 2B 81 55 26 06 30 
4D88 B8 DF BF 47 4D B6 47 54 
4D90 27 02 BE 47 4D CE 46 76 
4D98 BD 4B CA 7F 47 54 39 BE 
4DA0 47 4D CE 46 5E BD 4B CA 
4DA8 86 01 B7 47 54 39 BE 47 
4DB0 4D CE 06 00 BD 4B CA 8E 
4DB8 OB FE BF 47 4D 39 FC 47 
4DC0 49 C4 1F Cl 1E 26 05 86 
4DC8 01 B7 47 4C B6 47 55 10 
4DD0 26 00 D9 BE 47 49 30 89 
4DD8 02 20 AE 84 8C 55 55 10 
4DE0 27 00 BB 8C AA AA 10 27 
4DE8 00 B4 8C 5F F5 10 27 00 
4DF0 AD 5F 7F 47 5B 86 BF B7 
4DFB FF 02 B6 FF 00 B7 47 56 
4EO0 86 DF B7 FF 02 B6 FF 00 
4E08 B7 47 57 81 FD 26 IA C6 
4E10 01 Bb 47 56 81 FD 26 02 
4E18 C6 81 F7 47 55 Bb 47 58 
4E20 26 15 BE 47 49 34 10 20 
4E28 3C B6 47 56 61 FD 26 EA 
4E30 86 01 B7 47 58 20 E3 BE 
4E38 47 49 CE 06 00 BD 4B CA 
4E40 30 89 00 FE BD 4B CA BE 
4E48 47 49 30 01 34 10 30 89 
4E50 01 61 A6 84 81 D5 D7 44 
4E58 81 FF 27 40 81 50 27 44 
4E60 B6 47 4B 27 16 AE E4 CE 
4E68 45 CE BD 4B CA AE E4 30 
4E70 89 01 00 BD 4B CA 7F 47 
4E78 4B 20 19 AE E4 CE 45 96 
4E80 BD 4B CA AE E4 30 89 01 
4E88 00 CE 45 B6 BD 4B CA 86 
4E90 01 B7 47 4B AE E4 BF 47 
4E98 49 35 10 39 35 10 86 02 
4EA0 B7 47 4C 39 35 10 30 1F 
4EA8 34 10 20 B9 BD 51 6F B6 
4EB0 47 55 61 01 26 2C 7C 47 
4F.B8 55 BE 47 49 34 10 30 89 
4EC0 01 00 CE 06 00 BD 4B CA 
4EC8 35 10 30 89 FF 00 BF 47 
4ED0 49 CE 45 96 BD 4B CA 30 
4ED8 89 00 FE CE 45 B6 BD 4B 
4EE0 CA 39 BI 02 26 1F 7C 47 
4EE8 55 BE 47 49 30 89 FF 00 



4EF0 CE 45 CE BD 4B CA 30 89 
4EFB 00 FE BD 4B CA 30 89 00 
4FO0 FE BD 4B CA 39 81 03 26 
4F08 2F 7C 47 55 BE 47 49 30 
4F10 89 FF 00 CE 06 00 BD 4B 
4F18 CA 30 89 00 FE CE 46 06 
4F20 BD 4B CA 30 89 00 FE CE 
4F28 46 26 BD 4B CA 30 89 00 
4F30 FE CE 4b 4b BD 4B CA 39 
4F38 61 04 2b 25 7F 47 55 BE 
4F40 47 49 34 10 CE 06 00 BD 
4F48 4B CA 35 10 30 89 01 00 
4F50 BF 47 49 CE 45 6E BD 4B 
4F58 CA 30 89 00 FE BD 4B CA 
4F60 39 81 81 26 30 7C 47 55 
4F68 BE 47 49 30 89 01 22 Ab 
4F70 84 61 57 10 27 FF 27 BD 
4F78 50 3F BE 47 49 30 89 FF 
4F80 01 BF 47 49 CE 45 96 BD 
4FSB 4B CA 30 89 00 FE CE 45 
4F90 B6 BD 4B CA 39 81 82 26 
4F9B 40 7C 47 55 BD 50 3F BE 
4FA0 47 49 30 B9 FF 01 BF 47 
4FA8 49 CE 45 CE BD 4B CA 30 
4FB0 89 00 FE BD 4B CA 30 89 
4FB8 00 FE BD 4B CA BE 47 49 
4FC0 30 89 03 60 A6 80 81 FF 
4FCS 27 07 A6 64 81 FF 27 01 
4FD0 39 86 04 C6 05 BD 51 OF 
4FD8 39 81 83 26 2B 7C 47 55 
4FE0 BD 50 3F 30 89 00 FE CE 
4FE8 Ob 00 BD 4B CA BE 47 49 
4FF0 30 89 01 01 BF 47 49 CE 
4FF8 45 96 BD 4B CA 30 89 00 
5000 FE CE 45 B6 BD 4B CA 39 
5008 81 84 26 1C BD 50 3F BE 
5010 47 49 34 10 30 89 02 00 






5018 10 AE 84 
5020 55 26 05 
5028 7F 47 55 
5030 49 CE 45 
5038 89 00 FE 
5040 47 49 CE 
5048 30 89 00 
5050 66 88 8K 
5058 86 83 8E 
5060 BE 47 49 
5068 CA 30 89 
5070 CE. 45 6E 
5078 00 EE BD 
5080 00 71 BD 
5088 8C 1B 00 
5090 10 26 FB 
5098 FF 30 1F 
50 AO BD 4A CC 
50A8 B7 FF 22 
50B0 C4 B7 FF 
50B8 8E 07 01 
5OC0 AF Al 8E 
50C8 16 05 AF 
50DO Al 86 C8 
50D8 33 86 C8 
50EO 33 86 FF 
50E8 33 86 64 
50FO Fl 86 FF 
50F8 33 B6 47 
5100 47 3E 7A 
5108 03 BD 51 
5110 69 8E 47 
5118 51 23 35 
5120 4C 77 39 
5128 26 06 6F 
5130 AF 84 39 
5138 84 FF B7 



35 10 
30 01 
7F 47 
6E SD 
BD 4B 
06 00 
FE BD 
00 8C 
00 D5 
CE 06 
00 FE 
BD 4B 
4B CA 
51 33 

25 D3 
63 86 

26 FC 
B6 FF 
B7 FF 
C6 10 
AF Al 
20 OF 
Al BE 
8E 00 
8E 00 
8E 00 
D7 51 
8E 00 
3E 4C 
51 EE 
OF 16 
40 3A 
12 4A 
A6 84 
84 30 
34 02 
FF 01 



10 8C 55 
BF 47 49 
4B BE 4 7 
4B CA 30 
CA 39 BE 
BD 4B CA 
48 CA 39 



00 BD 4B 
BF 47 49 
CA 30 89 
86 1E BE 
DE 47 49 
7A 47 3F 
05 BE FF 
4A 26 F6 
22 84 OF 
C2 B7 FF 
8E 05 OB 
8E OD 05 
AE Al 8E 
12 21 AF 
FF BD 51 
C6 BD 51 
FF BD 51 
EE 16 FA 
96 BD 51 
84 03 B7 
C6 05 86 
FA E8 1E 
34 12 BD 
26 F2 BD 
4C 61 OA 
1F 20 F3 
B6 FF 01 
B6 FF 03 



5140 
5148 
5150 
5156 
5160 
5168 
5170 
5178 
5180 
5188 
5190 
5198 
51A0 
51A8 
51B0 
51B6 
51C0 
51C8 
51D0 
51D8 
51E0 
51E8 
51F0 
51F8 
5200 
7530 
7538 
7540 
7548 
7550 
7558 
7560 
7568 
7570 
. v S 7tí 

7580 



02 34 
30 1F 
20 30 
26 EB 

00 62 
B6 4 7 
10 8E 

51 97 
6E OE 
10 BE 
E4 35 
4C 84 

01 39 

03 CE 
BD 4B 

52 7F 
4D BE 
BD 4C 
4C 81 

02 10 
4A 26 
06 81 
00 00 
8E 75 
34 02 
FF 01 
FF 03 
FF 23 
12 11 
75 8A 
FC F7 
AE E4 
FC AE 
6A E4 
75 C3 



B7 FF 
B7 FF 
10 C6 
26 FC 
1F 26 
1C AF 
86 04 
E3 81 
47 4F 



11 
F9 BD 
47 47 
10 22 
OF A7 
CE 46 
06 00 
CA 39 
47 55 
BD 4D 
DE BD 
01 10 
27 FE 
CD 5A 
03 26 
00 00 
SA BF 
B6 FF 
B6 FF 
B6 FF 
FE 75 
83 75 
FF 75 
FF 20 
7F FF 
E4 4A 
26 CE 
62 00 



03 B6 FF 23 
23 IA 50 35 
FC F7 FF 20 
AE E4 7F FF 
FC AE E4 4A 
35 10 39 8E 
BD 51 33 39 
02 24 01 39 
8E 13 E7 BD 
EF BD 51 97 
51 97 39 34 



30 



1F I 



01 39 A6 A4 
AO 81 07 24 
8E 81 OF 26 
30 89 FF 00 
86 05 B7 47 
BD 4B 59 BD 
45 BD 51 78 
4D OF B6 47 
27 FF OA 61 
63 C6 64 4F 
26 F9 BD 80 
D2 39 39 03 

00 00 00 00 
75 88 86 13 

01 84 F7 B7 
03 84 F7 67 
23 8A 08 B7 
88 IA 50 37 
CD 25 03 CE 
88 34 10 C6 
30 1F 26 FC 
20 30 1F 26 
26 EB 32 62 
1C AF 35 82 
BD E9 00 9E 



7590 83 00 6D DC 00 7D 4E 00 

7598 76 93 00 7D FF 00 8D 6E 

75A0 00 A6 83 00 D4 31 00 BD 

75A8 6E 00 A8 E9 00 9E 62 00 

75B0 BD 93 00 BD 2C 00 D4 62 

75B8 00 BD DC 00 A8 5C 00 C8 

75C0 DC 00 FC 00 00 00 00 00 

75C8 00 00 00 00 00 00 00 00 



Avalanche foi montado a partir do 
endereço 49436, para possibilitar a uti- 
lização do Assembler de INPUT. 

Provavelmente você já percebeu que 
alguns trechos da memória do compu- 
tador não foram aproveitados: entre a 
tabela de cores e a tabela de padrões e 
entre o fim do programa e a tabela de 
perfil. Assim, você terá a possibilidade 
de alterar os endereços de montagem 
tanto da tabela de cores como da tabela 
de perfil, mas não se esqueça de alterar 
também todas as instruções nas rotinas 
que fazem referência a essas tabelas. Es- 
sa precaução deve ser tomada sempre 
que quiser modificar determinado ende- 
reço de montagem no programa. 

Faça um programa BASIC ou exami- 
ne manualmente as posições da memó- 
ria, verificando se os conteúdos confe- 
rem com a listagem hexadecimal a se- 
guir. Se você tiver deslocado alguma 
parle do jogo, os endereços serão dife- 
rentes, mas a sequência de códigos he- 
xa deve ser exatamente a mesma. 



Clic 
C124 
C12C 
C134 
C13C 
C144 
C14C 
C154 
C15C 
C164 
C16C 
C174 
C17C 
C184 
C18C 
C194 
C19C 
C1A4 
C1AC 
C1B4 
C1BC 
C1C4 
C1CC 
C1D4 
Cl DC 
C1E4 
C1EC 
C1F4 
C1FC 
C204 
C20C 
C214 



17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
17 17 
17 17 
17" 17 
17 17 



17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
F7 F7 
F7 F7 



F7 F7 
F7 F7 
F7 F7 
F7 F7 
17 17 
17 17 
17 17 
17 17 



17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
17 17 
17 17 

17 17 
17 17 



17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
17 17 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
67 67 
F7 F7 
F" F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
F7 F7 
17 37 
17 17 
17 17 
17 17 



IIHIIHII11W— 11BBB11IIIIIIIHI1 



C21C 
C224 

C22C 

CZ34 
C23C 
C244 
C24C 
C254 
C25C 
C264 
C26C 
C274 
C2 7C 
CZ84 
C28C 
C294 
C29C 
C2A4 
C2AC 
C2B4 
C2BC 
C2C4 
C2CC 
C2D4 
C2DC 
C?E4 
C2EC 
C2F4 
C2FC 
C304 
C30C 
C314 
C31C 
C324 
C32C 
C-334 
C33C 
C344 
C34C 
Cl 54 
C35C 
C364 
C36C 
C374 
C37C 
C3B<! 
C3Bí. 
C394 
C39C 
C3A4 
C3AC 
C3B4 
C3BC 
C3C4 
C3CC 
C3D4 
C3DC 
C3E4 
C1EC 
C3F4 
C3FC 
C404 
C4QC 
C414 
C41C 
C424 
C4 2C 
C4 34 
C4 3C 
C444 
C44C 
C454 
C4 5C 
C4 64 



17 17 17 
17 17 17 
17 17 17 
17 1? 17 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
37 37 37 
37 37 37 
37 37 37 
3 7 3 7 3 7 
37 37 37 
37 3/ 37 
37 37 37 
37 37 37 
A7 A7 A7 
A7 A7 A7 
A7 A7 A7 
A7 A7 A7 
87 B7 B7 
87 87 87 
87 87 67 
87 87 87 
D7 D7 D7 
D7 07 D7 
D7 D7 07 
D7 D7 D7 
97 97 



97 



97 



97 97 97 

97 97 97 

F4 F4 F4 

F4 F4 F4 

F4 F4 F4 

F4 F4 F4 



5 o i j a 1 

00 00 O J 

06 00 FF' 



17 17 
1/ 17 

17 17 

17 17 
C7 C7 
C7 C7 
C7 C7 
C7 C7 
C7 C? 
C7 C7 
C7 C? 
C7 C? 
C7 C7 
C7 C7 
C7 C7 
C7 C7 
37 37 
37 37 
37 37 
3/ 37 
37 37 
37 37 
37 37 
17 37 
A7 A7 
A7 A? 
A7 A 7 
A7 A7 
67 87 
87 67 
67 87 
B7 87 
D7 D7 
D7 D7 
D7 D7 
D7 D7 
97 97 
97 97 
97 97 
97 97 
F4 F4 
F4 F4 
F4 F4 
M F4 
F4 F4 
F4 F4 
F4 F4 
F4 F4 



33 33 
33 33 
4C 41 
00 o» 

0 0 0 0 

15 70 
42 00 
FF 00 
FF 00 
FF 00 
FF FF 
n o F F 
00 FF 



17 17 17 
17 17 17 
17 17 17 
17 17 17 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
C7 C7 C7 
37 37 37 
37 37 37 
37 37 37 
37 37 37 
37 37 37 
37 37 37 
37 37 37 
37 37 37 
A7 A7 A7 
A7 A7 A7 
A7 A7 A7 
A7 A7 A7 
87 87 87 
87 87 87 
87 87 87 
87 87 67 
D7 D7 D7 
D7 D7 D7 
D7 D7 D7 
D7 D7 D7 
97 97 97 
97 97 97 
97 97 97 
97 97 97 
F4 F4 F4 



FF I 



1 00 I 



FF FF 00 
FF FF 00 
2,4 12 AE 
AE OC 02 
54 5C OF 
OC 48 fiC 
00 OC 00 

00 2E FC 

01 CF 46 
2E BB 46 



00 FF 
OC 24 
OD 48 
24 12 
D3 00 

48 6C 
71 03 

01 00 

49 C5 



33 33 3J 
33 33 33 
33 33 33 
20 00 00 
56 33 43 
00 00 08 

0 0 00 00 

01 28 Fl 
00 FF FF 
UO FF FF 
00 FF FF 
FF 0 0 00 
FF OC 00 
FF 00 00 
FF 00 00 
FF 00 0 0 
FF 24 U 
1Z 24 12 
6C D 3 00 
AE OC EB 
54 F O F3 
04 20 11 
4B 07 18 
C8 7D F2 
ZD 94 F3 



C4 74 
C47C 
C484 
C48C 
C494 
C49C 
C4A4 
C4AC 
C4B4 
C4BC 
C4C4 
C4CC 
C4D4 
C4DC 
C4E4 
C4EC 
C4F4 
C4FC 
C504 
C50C 
C514 
C51C 
C524 
C52C 
C534 
C53C 
C544 
C54C 
C554 
C55C 
C564 
C56C 
C574 
C57C 
C584 
C5BC 
C594 
C59C 
C5A4 
C5AC 
C5B4 
C5BC 
C5C4 
C5CC 
C5D4 
C5DC 
C5E4 
C5EC 
C5F4 
C5FC 
C604 
C60C 
C614 
C61C 
C624 
C62C 
C634 
C63C 
C644 
C64C 
C654 
C65C 
C664 
C66C 
C674 
C67C 
C684 
C6BC 
C694 
C69C 
C6A4 
C6AC 
C6B4 



62 F3 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
3C 3C 
18 18 
00 00 
00 00 
00 01 
04 OB 
00 00 
20 20 
00 00 
00 00 
00 10 
42 B2 
00 00 
FF FE 
00 00 
00 00 
00 00 
OF 0 7 
00 00 
FO FO 
20 40 
02 01 
CO 00 
OA 11 
iC 22 
04 04 
00 00 

00 00 

01 01 

00 00 

80 80 

00 00 

87 79 

00 00 

El 9E 

00 00 

0 8 08 

7E 3C 

00 00 

00 00 

06 06 

18 1B 

00 00 

00 00 

66 6C 

00 00 

no 00 

00 00 

FF FF 

00 00 

00 00 

00 00 

1F 3F 

00 00 

00 00 

00 00 
3C 3C 
00 00 
00 00 
00 00 
FF FF 
00 00 
00 00 
00 00 
38 38 
00 00 
00 00 



62 01 
00 00 
00 00 
00 00 
00 00 
00 00 
3C 3C 
18 1E 
00 00 

00 00 

01 01 
04 00 
00 EO 
30 00 
00 00 
00 00 
10 1E 
43 00 
00 00 
FC 38 
00 00 
00 00 
00 00 
03 01 
00 00 
EO CO 
40 BO 
00 00 
00 00 
EO 00 

02 02 
F8 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
08 08 
18 18 
00 00 
00 00 

03 03 
30 30 
00 00 
00 00 
38 18 
00 00 
00 00 
00 00 
FF FF 
00 00 
00 00 
00 00 
7F FF 
00 00 
00 00 
00 00 
FF FF 
00 00 
00 00 
00 00 
7E 3C 
00 00 
00 00 
00 00 
38 36 
00 00 
00 00 



68 ZD 94 DB 

46 00 00 00 

FF FF 00 00 

FF FF 00 00 

FF FF 00 00 

FF FF 00 00 

18 3C 3C 18 

3C 3C 18 18 

00 00 00 00 

00 00 00 00 

01 03 03 01 
OE 00 01 02 
80 CO CO BO 
00 00 80 40 
0 0 00 00 00 
00 00 00 00 
1B 3C 3C 18 
EO 00 OC 24 
00 00 00 00 
1C 3E 7F FF 
00 00 00 00 
00 00 00 00 
00 00 00 00 
03 07 OF OF 
00 00 00 00 
60 CO EO FO 
00 00 07 18 
80 40 7C 02 

DO 00 1F AO 

00 00 00 04 

00 00 80 40 

02 U4 08 04 
00 00 00 00 
00 00 00 00 
00 00 7B 86 

M oo oo oo 

OO 00 1E 61 
00 00 00 00 

00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
22 14 08 08 
18 3C 36 7E 
00 00 00 00 
00 00 00 00 

ja ia oc oc 

06 06 OC OC 
00 00 00 00 
00 00 00 00 
60 60 C6 C3 
00 00 00 00 
00 00 00 00 
00 0 0 OU 0 0 
64 D6 FF FF 
00 00 00 00 
00 00 00 00 
OO 00 00 00 
00 01 03 07 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 FF FF 
00 00 00 00 
00 00 00 00 
00 00 00 00 
06 08 76 FF 
00 00 00 00 
00 00 00 00 
00 00 00 00 
10 10 10 38 
00 00 00 00 
00 00 00 00 
00 00 00 00 



C6BC 
C6C4 

C6CC 
C6D4 
C6DC 
C6E4 
C6EC 
C6F4 
C6FC 
C704 
C70C 
C714 
C71C 
C724 
C72C 
C734 
C73C 
C744 
C74C 
C754 
C75C 
C764 
C76C 
C774 
C77C 
C784 
C78C 
C794 
C79C 
C7A4 
C7AC 
C784 
C7BC 
C7C4 
C7CC 
C7D4 
C7DC 
C7E4 
C7EC 
C7F4 
C7FC 
C804 
CBOC 
C814 
CB1C 
C824 
C82C 
CB34 
C83C 
C844 
C64C 
CB54 
C85C 
CB64 
C86C 
CBM 
C87C 
CS84 
CBBC 
('894 
C89C 
C8A4 
C8AC 
C8B4 
C8BC 
C8C4 
C8CC 
C8R4 
CBDC 
C8E4 
C6EC 
C8F4 
CBFC 
C904 



00 00 00 
38 36 10 
00 00 00 
00 00 00 
00 00 00 
51 8A 04 
00 00 00 
00 00 00 
00 00 00 
45 ZB 10 
00 00 00 
00 00 00 
00 00 00 
45 20 30 
20 20 56 
30 20 20 
20 30 4E 
41 52 54 
32 33 34 
00 00 00 
07 18 08 
FD 00 O A 
BD 00 D5 
00 OF 9F 
00 1C 01 
1E El 00 
El 00 OF 
El 00 FD 



00 



Fi ■ 



00 3F 01 
05 FD 00 
FD 00 11 
OC 01 El 

01 14 FD 

00 FD 00 
OA A9 00 
D5 00 05 
BD 00 1C 

01 OA 1C 
00 El 00 
OA D5 00 
El 00 05 
FD 00 BD 

00 OF 2D 

01 A9 00 
iE FD 00 
A9 00 OA 
BE 00 D5 
00 05 BE 
00 A9 00 
05 A9 00 
1C 01 1E 
El 00 El 
00 OF FD 
00 1C 01 
1E D5 00 
D5 00 OA 
OC 01 El 
00 OA El 

00 A9 00 
OA 52 01 
7B 01 OA 
8E 00 ;b 

01 OA 8E 
00 7B 01 
OA BD 00 
FD 00 05 
8E 00 El 
00 05 El 

00 FD 00 
05 FD 00 
SD 00 05 
2D 01 A9 

01 OA FD 



00 10 
10 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 53 
30 30 
49 44 
4E 49 
4F 56 
49 44 
35 36 
A6 JO 
OF 09 
D5 00 
00 OA 
00 Di 
OA BD 
El 00 
FD 00 

no oa 

00 FD 

OF OC 

3F 01 

El 00 

00 OA 

00 52 
1E BD 
D5 00 
A9 00 

01 1E 
01 El 
05 El 
FD 00 
FD 00 

00 05 

01 A9 
OA FD 
7E 00 
FD 00 
00 1E 
00 A9 
OF 9F 
D5 00 
BD 00 
00 OA 
00 FD 
OA D5 
El 00 
FD 00 
00 05 

00 52 
OA OC 
52 01 
BE 00 

01 05 
00 52 
05 A9 
1C 01 
El 00 
00 OF 
00 1C 
1E El 
D5 00 
OC 01 
00 05 
00 FD 



38 7C 36 
00 00 00 
00 00 00 
00 00 00 
00 00 20 
00 00 00 
00 00 00 
00 00 00 
00 00 82 
00 00 00 
00 00 00 
00 00 00 
43 4F 52 
30 30 30 
41 53 20 
56 45 4C 
41 20 50 
41 30 31 
37 38 39 
BA 30 95 
OF FD 00 
FD 00 IE 
A'J 00 D5 
00 05 A9 
00 1C 01 
OA 1C 01 
El 00 05 
1)5 00 FD 
00 O A FD 



3F 



[)A Fl 0 0 

no oa 
A9 00 52 
01 OA D5 
00 FD 00 
OF 9F 00 
D5 00 OA 
El 00 1C 
00 OF FD 
00 El 00 
IE El 00 
D5 0 0 05 
OC 01 A9 
00 05 OC 
00 FD 00 
OA FD 00 
FD 00 IE 
8E 00 BD 
00 05 8E 
0 0 BD 00 



■ 00 



FD 00 05 
1C 01 El 
00 05 El 

00 FD 00 
05 FD 00 
D5 00 OF 
FD 00 FD 

01 11 El 
01 El 00 
14 52 01 
AA 01 IE 
8E 00 52 
01 OF 9F 



00 , 



01 



IE BD 00 
El 00 OA 
FD 00 FD 
01 OA D5 
00 El 00 
05 FD 00 
A9 00 OF 
OC 01 52 
00 IE FD 



Mllllllllim » CÓDIGO D£ MÁQUINA 



■ ■■■■■llllll 



C90C 00 7E 00 0A FD 00 A9 00 
C914 OA FD 00 FD 00 IE 08 00 
C9lC 09 00 OA 00 64 68 6C 28 
C924 2D 35 32 30 30 29 23 2D 
C92C 35 32 30 30 29 2C 68 SC 
C9J4 28 2D 35 32 30 30 29 2C 
C93C 68 6C 6C 64 21 6C 64 6C 
C944 64 35 35 35 35 35 32 32 
C94C 35 35 32 35 41 56 41 4C 
C954 41 4E 43 48 45 43 72 6» 
C95C 61 87 BI 6F 3A 52 2E 4E 
C964 65 64 65 72 50 72 6F 67 
C96C 72 61 6D 61 3A 4D 2E 48 
C974 75 61 73 63 61 72 20 20 
C97C 20 20 20 20 41 70 A2 73 
C964 20 75 6D 20 70 65 71 75 
C98C 65 6E 6F 20 70 61 73 73 
C994 65 69 OF 2 :' , ! ú 5/ 69 6C 
C99C 69 65 20 20 20 20 20 20 
C9A4 76 6F .6C 74 6J 20 61 6F 
C9AC 20 6C 6F 63 61 6C 20 6F 
C9B4 6E 64 65 20 70 72 65 74 
C9BC 65 6E 64 69 61 20 66 61 
C9C4 7A 65 72 20 20 20 20 20 
j 65 75 20 70 69 71 75 
I 2D 6E 69 71 7b 65 20 
! 20 64 65 73 63 6F 62 
. 65 20 7] 75 65 20 75 
■ ■ 20 20 20 20 20 20 20 
- 2 61 6E 64 6F 20 64 65 

0 63 61 62 72 69 74 6F 

1 :'0 6D 6F ÒE 74 65 73 
! 73 20 65 73 7 O 61 6C 

CA14 68 'j F Í5 20 20 20 20 20 

I 61 1 6F 20 73 6b 75 
6C 61 6E 63 68 65 20 
61 20 65 6E 63 6F 73 
CA (4 74 6 . 2E 20 20 20 20 20 
CA3-T 70 20 20 20 20 20 20 20 
CA44 20 20 20 20 20 20 20 20 
CA4r 20 20 20 20 20 20 20 20 
CA54 20 20 20 20 20 20 20 20 
CA5C 20 20 20 20 20 20 20 20 
CA64 20 20 20 20 20 20 20 20 
CA6C 20 20 20 20 41 67 6F 72 
CA74 61 20 65 6C 65 20 64 65 
CA7C 76 65 20 73 75 62 69 72 
CA84 20 61 6F 20 74 6F 70 6F 
CA6C 20 64 61 20 20 20 20 20 
CA94 6D 6F 6E 74 61 6E 68 61 
CA9C 20 70 61 72 61 20 72 65 
CAA4 63 75 70 65 72 61 72 20 
CAAC 73 75 61 73 20 63 6F 69 
CAB4 73 61 73 2C 20 20 20 20 
CABC 65 6E 66 72 65 6E 74 61 
CAC4 6E 64 6F 20 75 6D 61 20 
CACC 61 76 61 6C 61 6E 63 68 
CAD4 65 2C 20 63 6F 62 72 61 
CADC 73 20 2020 20 20 20 20 
CAE4 76 65 6E 65 6E 6F 73 61 
CAEC 73 20 65 20 63 6F 72 72 
CAF4 65 6E 64 6F 20 6F 20 72 
CAFO 69 73 63 6F 20 64 65 20 
CB04 63 61 69 72 20 20 20 20 
CB0C 6E 75 6D 20 62 75 72 61 
CB14 63 6F 2E 20 20 20 20 20 
CB1C 20 20 20 20 20 20 20 20 
CB24 20 20 20 20 20 20 20 20 
CB2C 20 20 20 20 20 20 20 20 
CB34 20 20 20 20 20 20 20 20 
C33C 20 20 20 20 20 20 20 20 
CB44 20 20 20 20 20 20 20 20 
CB4C 20 20 20 20 20 20 20 20 



CB54 20 20 20 20 20 20 20 20 
CB5C 20 20 20 20 50 61 72 61 
CB64 20 70 69 6F 72 61 72 20 
CB6C 61 20 73 69 74 75 61 87 
CB74 BI 6F 2C 20 61 20 6D 61 
CB7C 72 82 20 20 20 20 20 20 
CB84 65 73 74 AO 20 73 75 62 
CBBC 69 6E 64 6F 20 65 20 65 
CH94 6C 65 20 70 6F 64 65 20 
CB9C 73 65 20 61 66 6F 67 61 
CBA4 72 2E 20 20 20 20 20 20 
CHAC 53 65 20 76 6F 63 8B 20 
CHB4 71 75 65 72 20 61 6A 75 
CBBC 64 61 72 20 57 69 6C 6C 
CBC4 69 65 2C 20 6C 65 69 61 
CBCC 20 61 73 20 20 20 20 20 
CBD4 69 6E 73 74 72 7S 87 B5 
CBOC t.5 73 20 65 20 70 71 65 
CBE4 73 73 69 6F fiE 65 20 61 
CBEC 20 74 65 63 6C 61 20 27 
cari b i 27 2E 20 20 20 20 20 
C8FC 20 20 20 20 20 20 20 20 
CC04 20 20 20 20 20 20 20 20 
CCOC 20 20 20 20 2D 20 20 20 
CC14 20 20 20 20 20 20 20 20 
CC1C 20 20 20 20 20 20 20 20 
CC24 20 20 20 20 20 20 20 20 
CC2C 20 20 20 20 20 20 20 20 
CC34 20 20 20 20 20 20 20 20 
CC3C 20 20 20 20 20 20 20 20 
CC44 20 20 20 20 20 20 20 20 
CC4C 55 73 65 3A 20 20 20 20 
CC54 20 20 20 20 20 20 20 20 
CC5C 20 20 20 20 20 20 20 20 
CC64 20 20 20 20 20 20 20 20 
CC6C 20 20 20 20 20 20 20 20 
CC74 20 20 20 20 20 4E 20 20 
CC7C 20 20 20 20 70 61 72 61 
CC84 20 20 20 20 20 43 6F 72 
CC8C 72 65 72 20 20 20 20 20 
CC94 20 20 20 20 20 20 20 20 
CC9C 20 20 20 20 20 4D 20 20 
CCA4 20 20 20 20 70 61 72 61 
CCAC 20 20 20 20 20 53 61 6C 
CCB4 74 61 72 20 20 20 20 20 
CCBC 20 20 20 20 20 20 20 20 
CCC4 20 20 20 20 20 41 6D 62 
CCCC 6F 73 20 20 70 61 72 61 
CC04 20 75 6D 20 20 53 61 6C 
CCDC 74 6F 20 44 69 61 67 6F 
CCF.4 6E 61 6C 20 20 20 20 20 
CCEC 20 20 20 20 20 20 20 20 
CCF4 20 20 20 20 20 20 20 20 
CCFC 20 20 20 20 ZO 20 20 20 
CD04 20 20 20 20 20 20 20 20 
CDOC 20 20 20 20 20 20 20 20 
CDU 20 20 20 20 20 20 20 20 
CD1C 20 20 20 20 20 20 20 20 
CD24 20 20 20 20 20 20 20 20 
CD2C 20 20 20 20 20 20 20 20 
CD34 20 20 20 20 20 20 20 20 

DOOO CD 6C 00 11 28 01 21 50 

D008 C9 01 09 00 CD 5C 00 11 

D010 ED 01 21 59 C9 01 OF 00 

D018 CD 5C 00 11 3C 02 21 68 

D020 C9 01 12 00 CD 5C 00 06 

D028 OA ED 6B 11 00 00 2B E5 

D030 ED 52 El 20 F9 10 F2 11 

D038 00 00 21 7A C9 01 CO 03 

D040 CD 5C 00 CD 9F 00 FE 53 

D048 20 F9 C9 21 5C C7 06 06 

1)050 OE AO ED A3 OE Al ED A3 



D058 20 F6 C9 06 04 OE Al 3E 
D060 00 D3 AO 3C ED A3 20 F9 
D068 C9 46 21 EB 03 11 00 00 
D070 2B E5 ED 52 El 20 F9 10 
D078 Fl C9 CD 4B DO 06 14 C5 
DOBO CD 5B DO E5 CD 69 DO El 
D088 23 Cl 10 F3 CD 4E DO C9 
D090 21 E9 F3 36 04 23 36 07 
D098 23 36 07 CD 72 00 3E E2 
DOAO 32 EO F3 CD 69 00 C9 ED 
DOAS 5B CB F3 21 AO C4 01 80 
DOBO 02 C5 E5 D5 CD 5C 00 Dl 
D0B8 21 00 08 19 54 5D El Cl 
DOCO C5 E5 D5 CD 5C 00 Dl 21 
DOCS 00 OB 19 54 5D El Cl CS 
DODO E5 CD 5C 00 ED 5B CF^H 
D0D8 El CL CD 5C 00 C9 ED 59 
DOEO C9 F3 21 1C Cl 01 AO 02 
D0E8 C5 E5 D5 CD 5C 00 Dl 21 
DOFO 00 08 19 54 5D El Cl C5 
D0F8 E5 D5 CD 5C 00 Dl 21 00 
DlOO 08 19 54 5D El Cl CD 5C 
D108 00 C9 2A C7 F3 11 90 E8 
DUO 01 00 03 CD 59 00 C9 11 
D11B 8F EB 21 8E EB 06 18 C5 
D120 IA 01 1F 00 ED B8 12 2B 
D128 1B Cl 10 F3 C9 Eli 5B C7 
D130 F3 21 90 ER 01 00 03 CD 
D138 5C 00 C9 3E FF 2A C7 F3 
D140 01 00 03 CD 56 00 CD A7 
D148 00 CD DE DO CD OA D3 IF. 
DibO 08 32 92 EB 3E 00 32 'J3 
D158 BB 21 8F EH 06 21 C5 íb 
D160 CD 2D Dl CD 17 Di El 3A 
D168 93 EB FE 01 20 07 3A 92 
D170 EB 1C 32 92 EB 3E 00 32 
D178 93 EB 7E 2B E5 FE 21 20 
D180 05 JE 01 32 93 EB 3A 92 
IUBH EB 47 21 90 E8 3E FF CD 
D190 B5 Dl 06 30 3A 93 EB FE 
D198 01 20 02 06 34 78 77 3A 
D1A0 92 EB 47 3E 17 90 47 3E 
D1A8 51 11 20 00 19 CD B5 Dl 
D190 El Cl 10 AA C9 77 11 20 
DIBB 00 19 10 F9 C9 3A 94 EB 
D1C0 17 17 06 38 80 2A C7 F3 
D1C8 11 DE 00 19 CD 4D 00 3A 
DIDO 94 EB FE 00 28 OC F5 CD 
Dl DP E I Dl Fl FE 01 28 03 CD 
D1E0 OA D2 C9 11 C9 01 Db 11 
DlEfl 91 OJ D5 i 1 3A 01 D5 OE 
D1F0 03. 2A CV F .1 [)1 06 04 19 
D1F8 .SE FE E5 C5 <*D 40 00 Cl 
D200 El 11 20 00 10 f^^^^H 
D208 Efi C9 iE 25 32 9í 
D21 0 03 32 96 EB C6 01 
D218 EB C6 03 J2 98 EB 11 C9^ 
D220 01 D5 11 91 01 D5 U 3A 1 
D228 01 D5 OE 03 7A C7 F3 11 i 
D230 95 EB ED 53 99 EB Dl 06 J 
D23B 04 19 ED 5B 99 EB IA 13« 
D240 ED 53 99 EB E5 C5 CD 4D> ' 
D248 00 Cl El 11 20 UO 10 E*J 
D250 OD 20 D9 C9 00 00 00 oJH 
D258 00 00 CD 00 DO 3E 58 J^Ê 
D260 7E DO CD 7A DO 3E 05 
D268 9B EB 3E 00 12 r >4 EB Jfffl 
D270 00 00 22 9D EB 22 91? Çft 
D27B 22 Al EB S£ 14 32 7E 00 
D280 CD 90 DO 3E 06 32 A3 EB 
D288 21 EO 02 22 A4 EB 2 1 82 
D290 00 22 A6 EH 3E 03 J2 A8 
D298 EB 3E 00 32 A9 EB 3E 02 
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D2A0 
D2A8 
D2B0 
D2B8 
DZCO 
D2C8 
D2D0 
D2D8 
D2E0 
D2ES 
D2F0 
D2FS 
D300 
D308 
D310 
0318 
D320 
D328 
D330 
D338 
D340 
DJ48 
D3S0 
0358 
3360 
3368 
D370 
3378 
D3B0 
D388 
D390 
D 396 
D3A0 
D3A8 
D3B0 
D3B8 
D 3 CO 
D3C8 
D3D0 
D3D8 
D3E0 
U3E8 
D3F0 
D3F8 
D400 
D4 08 
D41D 
D418 
D420 
0428 
0430 
D438 
D440 
0448 
D450 
D45B 
D460 
D468 
D4 70 
D478 
D480 
D488 
D490 
D498 
D4A0 
D4A8 

D4B0 
D4BB 
D4C0 
D4C8 
D4D0 

■ 04D8 

■ D4E0 



32 AA 
EB 21 
00 32 
BO EB 
EB 80 
EB CO 
AO 32 
FC 11 
IA CD 
F5 11 
C5 D5 
4D 00 
EF CD 
9D EB 
00 2A 
ES ED 
53 BA 
El 23 
EB C6 
F3 19 
C6 7E 
19 CD 
IA C9 



CD 80 
D3 CD 
AF EB 

02 CA 
3D 20 
41 01 
C9 C9 
Cfl 9F 
04 38 
C7 F3 
CD 4D 
CD. 4D 
11 44 
OQ Fl 
00 C9 
57 2B 
ED 5B 

00 CD 
32 A3 
A3 EB 
ED 52 
EB 3D 

01 C9 
A9 EB 
EB 35 
2A CD 
4F 16 
2A CD 
06 3A 
18 1E 
EB FE 
A9 EB 
20 05 
78 D5 
Cl 23 
Dl 23 
El Dl 
3A 94 

03 28 
01 28 
BO EB 
00 El 
2A BO 
28 4C 
EB 19 
00 FE 
35 FE 
ED 5B 
CD 4D 
22 BO 



EB 21 C2 01 

00 00 22 AD 
AF EB 21 FF 
3E 00 06 05 
32 B3 EB BO 
3B Dl CD BD 
B7 FC 3E 10 
20 C7 06 34 
8D 00 Dl 13 

01 00 3E 54 
F5 2A C? F3 
Fl 3C Dl 13 
07 D3 C3 2E 
ED 53 BA EB 
C7 F3 19 06 
5B BA EB IA 
EB C6 7E CD 
Cl 10 EA C9 
7E 11 15 00 
CD 4D 00 3A 
11 1E 00 2A 
4D 00 CD 7A 
CD 4E DO CD 
D4 CD OC 09 
FE D J CD BC 
PB 01 CA D2 

26 D8 06 32 
F D 10 F 9 3 E 
CB 67 20 CF 
FF FF JA AA 
32 AA EB 06 

02 06 20 Cti 
11 2A 00 19 
00 Fl El 23 
00 Cl 78 2A 

00 19 ES F5 
El 23 C6 02 
06 48 3A A3 
02 06 4C 2A 
A4 EB 19 78 
56 00 3A A3 
EB 20 10 3E 
2A A4 EB 11 

17 A4 EB C9 
JZ A8 EB FE 
3E 06 32 AB 
FE 00 28 06 

18 04 21 A6 
F3 06 06 3A 
14 1E 01 CD 
F3 LI 04 00 
A6 EB C6 1(T 
SI CD 60 D4 

fQ2 20 06 3E 

C9 3A A6 EB 

3E 01 32 A9 

Ç£ E5 CD 4D 

79 El, CD 4D 

7A D5 E5 CD 

2 3 7 li CD 4D 

EB FE 00 28 

01 C9 3A Bb 
67 2A C7 F3 

19 3E OD E5 
23 3E FF CD 
EB 11 EO 01 
2A C7 F3 ED 
11 20 00 19 
48 28 39 FE 
FF 20 20 2A 
BO EB 19 3E 
00 Dl 21 20 
EB ED bB C7 



22 AB 
EB JE 
00 22 
32 B2 
32 B4 
Dl 3E 
32 B9 
C5 D5 
Cl 10 
06 1E 
19 CD 
Cl 10 
D3 11 
11 07 
06 C5 
13 ED 
40 00 
3A 9B 
2A C7 
94 EB 
C7 F3 
DO 21 
4B D5 



3E FF 
07 CD 
C9 C9 
EB 3C 
1C FE 
78 2A 
E5 F5 
C6 02 
C7 F3 
CD 40 
£T> 4D 
EB CB 
C7 F3 
01 20 
EB 3D 
OA 32 

20 00 
3A A8 
00 28 
EB 3A 

21 A6 
EB 34 
A6 EB 
60 D4 
19 06 
4F 16 
3A A6 
00 32 
FE E6 
EB C9 
00 El 
00 El 
4D 00 
0 0 C9 
05 FE 
EB FE 
ÊD 5B 
CD 4D 
4D 00 
ED 52 
5B BO 
CD 4A 
4C 28 
C7 F3 
FF D5 
00 19 
Fl 19 



D4E8 
D4F0 
D4F8 
D500 
D508 
D510 
DblB 
D520 
D528 
D530 
0538 
DS40 
D54R 
D550 
D558 
D560 
D56B 
D570 
0578 
D580 
D588 
D590 
D598 
D5A0 
D5A8 
D5B0 
D5B8 
D5C0 
D5C8 
D5D0 
D5D8 
D5E0 
D5E8 
D5F0 
D5F8 
D600 
D608 
0610 
D61B 
D620 
D628 
D630 
D638 
D640 
D648 
0650 
D658 
D660 
D668 
D670 
D678 
D680 
D68B 
D690 
D69B 
D6A0 
D6A8 
D6B0 
D6B8 
D6C0 
D6CB 
D6D0 
D6D8 
D6E0 
D6EB 
D6F0 
D6F8 
D700 
D708 
D710 

D718 
D720 
D728 



3E OD 
2B 22 
EB C9 
D5 C9 
EB 19 
28 OC 
28 04 
32 AF 
4D 00 
00 3E 
C7 F3 
FF CD 
BO EB 
C2 46 



CA D3 
AB EB 
CD 4D 
3E FF 

E5 CD 
19 3E 
11 20 
4B CA 
D6 FE 



CA 40 
CB 57 
20 02 

18 09 
32 AD 
00 ED 
AF EB 
AB EB 
CD 4A 
FE 34 
FE 11 
CD 4A 
4A 28 
25 28 
AB EB 
00 El 
00 El 
E5 CD 
CD 4D 
AB EB 
3E 02 
EB FE 
EB 2A 
52 22 

19 3E 
11 20 
4D 00 
FF CD 
1D 3C 
ED 5B 
CD 4D 
3E 01 

20 1D 
EB ED 
E5 CD 
19 3E 
04 20 
2A AB 

19 3E 

20 00 
D5 FE 
EB 2A 
19 11 
FE 24 
07 2A 
2A AB 
ES 11 
CD 4D 
4D 00 
00 El 



CD 02 
2A C7 
E5 CD 
FE 01 
FE OB 
EB El 
El 23 
00 32 
ED 5B 
4D 00 
C9 3 A 
D6 3A 
D5 2A 

19 E5 

00 El 
CD 4D 
4 D 0 0 

01 E5 
00 19 
4 0 06 
25 CA 
D5 1E 

20 OE 
06 81 
CB 5F 
EB 2A 
52 20 
C9 2A 
19 11 
00 El 
28 4E 
28 4C 
00 FE 
3D FE 
35 2A 
19 3E 
23 3E 
11 20 
4D 00 

00 2A 
3E 00 
32 AF 

01 20 
AB EB 
AB EB 
OA E5 
00 19 
El 11 
4D 00 
32 AE 
C7 F3 
00 El 
CD 4D 
3C 32 
5B C7 
4D 00 
OB CD 
1E 3E 
EB E5 
FF CD 

19 22 
81 20 
C7 F3 

21 00 
CA 40 
AB EB 
EB ED 

20 00 
00 El 
El 3E 
23 3E 



00 2A BO EB 
3E 01 32 B5 
D5 C9 CD 37 
F3 ED bB BO 
4A 00 FE 00 
28 08 FE 07 

20 05 3E 02 
3E 11 E5 CD 
3E 13 CD 4D 
B5 EB C9 2 A 
BO EB 19 3E 

21 FF 00 22 
AE EB FE 00 
AD EB FE 01 
t'7 F3 ED 5B 
2B 3E FF E5 
11 20 00 19 
00 El 3E 00 
El 11 20 00 
CO 4D 00 El 
CD 4A 00 FE 
FE 4A CA 40 
40 D6 FE FE 
04 CD 41 01 
06 01 CB 5F 
78 32 AE EB 

20 05 3E 01 
AB EB 11 DE 
0T3E 01 32 
C7 F3 ED 5B 

21 00 19 E5 
FE 24 Z8 56 
FE OD 28 50 
11 20 00 19 
48 28 41 FE 
FE 28 39 FE 
C7 F3 ED 5B 

04 E5 CD 4D 

06 E5 CD 4D 
00 19 3E 07 
El 2B 3E 05 
AB EB 23 22 
32 AD EB C9 
EB C9 3A AE 
30 3C 32 AE 
11 20 00 ED 
ED 5B C7 F3 
CD 4D 00 El 
3E OB E5 CD 
20 00 19 3E 
C9 FE 02 20 
EB 2A AB EB 
19 3E 00 E5 
1] 20 00 19 
00 C9 FE 03 
AE EB 2A AB 
F3 19 3E OA 
El 11 20 00 
4D 00 C9 FE 
00 32 AE EB 
ED 5B C7 F3 
4D 00 El 11 
AB EB C3 4B 
6B- 3C 32 AE 
ED 5B AB EB 
19 CD 4A 00 
D6 FE 34 20 
2B 22 AB EB 
5& C7 F3 19 
19 3E FF E5 
23 3E FF CD 

05 E5 CD 4D 

07 E 1 ! CD 4D 



D7 30 
D736 
D740 

D748 
D 7 5 O 
D758 
D760 
D768 
D770 
D77B 
D7B0 
D7H8 
D790 
D798 
D7A0 
D7A8 
D7B0 
D7B8 
D7C0 
D7C8 
D7D0 
D7D8 
D7E0 
D7E8 
D7F0 
D7F8 
D800 
D80B 
DB10 
D818 
D820 
D8 28 
D830 
D838 
D840 
D848 
D850 
D858 
D860 
D868 
D870 



00 El 11 

06 E5 CD 
04 CD 4D 
20 00 ED 



FE 



I CA 



DB90 
D898 
D8A0 
D8AB 
D8B0 
D8B8 
D8C0 
D8C8 
D8D0 
DRD8 
D8E0 
D8E8 
D8F0 
D8F8 
D900 
D908 
D910 
D91B 
D920 
D926 
D930 
D938 
D940 
D94 8 
D950 
E870 
EB78 
E880 
E888 



EB 3A AD 
D7 2A AB 

19 3E FF 
11 20 00 
4D 00 El 
4D 00 El 
3E 00 CD 
23 22 AB 
EB C9 2A 
F3 19 3E 
El 23 3E 
El 11 20 
CD 4D 0 0 
4D 00 2A 
EB ED 5B 
00 19 CD 
OC 3E 00 

06 05 CD 
AD EB C9 
2A AB EB 
E5 3E FF 
3E FF E5 

20 00 19 
00 El 23 
2A AB EB 
AB EB C3 
EB ED 5B 
FF E5 CD 
3E FF E5 
20 00 19 
00 El 23 
4D 00 El 

00 2A AB 
F3 19 3E 
11 20 00 
5B C7 F3 
4D 00 El 

01 CD 4D 
3D 20 FD 
11 CO 02 
9B EB 3D 
D2 11 EA 
C5 D5 F5 
4D 00 Fl 
EF 06 1E 

20 FD 3D 

07 D3 3E 
5A D2 3A 
32 94 EB 
75 03 3E 
D8 L'3 80 
0 0 5F 19 
10 F9 CD 
FE OA 20 
18 F4 77 

02 30 01 
A9 01 CD 
CD 2A D9 
D9 C9 Eb 
52 El 3B 
A 7 O.: O.í 
ED bB C7 
24 20 02 
00 C9 00 

21 21 23 
21 2 3 2 3 
'23 23 21 
23 21 23 



20 00 
4D 00 
00 2A 
52 22 
EB 07 
EB FE 
EB ED 
E5 CD 
19 3E 
23 3E 
11 20 
4D 00 
EB 3E 
AB EB 
04 E5 
06 E5 
00 19 
El 2B 
AB EB 
C7 F3 
4A 00 
32 AE 
EC OB 
3E 00 
ED 5B 
CD 4D 
CD 4D 
3E FF 
3E FF 
11 20 



1 D5 
C7 F3 
4D 00 
CD 4D 
3E FF 
23 3E 

2 3 3E 
EB E5 
FF CD 
19 22 

19 3E 
11 20 
00 06 
10 F9 
ED 52 
32 9B 

00 3E 
2A C7 
3C Dl 
3E FF 

20 F8 
32 32 
94 EB 
3A 75 

03 06 
D2 21 
E5 CD 
07 D3 
06 3E 
C9 3 A 
C9 Dl 
2A D9 

21 IA 
ED 5B 

01 C9 
FE 07 
F3 19 
06 FF 
00 00 
23 21 
21 23 
23 21 
23 21 



ED 52 3E 
El 2B 3E 
AB EB 11 
AB EB C9 
3C 32 AE 
01 CA 9A 
5B C7 F3 
4D 00 El 
FF E5 CD 
01 E5 CD 

00 ED 52 
2A AB EB 

01 32 AD 
ED 5B C7 
CD 40 00 
CD 4D 00 
3E 07 E5 
3E 05 CD 

2 3 2 2 AB 
19 11 40 
FE 34 20 
EB 3E 04 
3E 00 32 
32 AE EB 
C7 F3 19 
00 El 2B 
00 El 11 
E5 CD 4D 
CD 40 00 
00 19 22 
C9 2A AB 
19 23 3E 
El 2B 2B 
00 El 11 
E5 CD 4D 
FF E5 CD 
FF CD 4D 
ED 5B C7 
4D 00 El 
AB EB ED 
00 Eb CD 
00 19 3E 
FF 3E FF 
2A AB EB 
38 C2 3A 
EB C2 80 
72 06 OC 
F3 19 CD 
13 Cl 10 
OE FF OD 
10 F4 CD 
75 D3 C3 
3C CB 97 
D3 3D 32 
05 CD EC 
9D EB 16 
FE D8 El 
C9 7E 3C 

00 7 7 2B 
94 EB FE 
B2 EB 21 
21 71 01 

01 CD 2A 
A4 EB ED 
OA 3C CB 
30 01 C9 
FE OF 06 
78 CO 4D 
00 00 00 
23 23 23 
21 23 23 
23 23 23 
23 23 23 
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Desafie seu microcomputador a 
decifrar alguns quebra-cabeças 
matemáticos. Você também irá 
aprender técnicas de grande utilidade 
na resolução de sistemas de equações. 



Ao chegar a este ponto de INPUT,' 
você já teve contato com as principais 
técnicas de programação em BASIC. 
Dado um problema, será bem capaz de 
construir um programa para solucioná-lo 
(caso haja uma solução, é claro). Entre- 
tanto, a não ser que você tenha um hob- 
by ou esteja trabalhando em algum pro- 
jeto, são raras as suas oportunida- 
des de mostrar o que sabe fazer 
em seu microcomputador. 

Certos quebra-cabeças re- 
presentam gostosos desafios para 
quem quer praticar programação ou 
simplesmente exercitar o raciocínio. 
A popularidade desse tipo de diverti- 
mento não é novidade. Os egípcios 
destacavam-se por sua habilidade em 
decifrar enigmas, assim como os gre- 
gos eram admirados pelos seus interes- 
santes quebra-cabeças lógicos e matemá- 
ticos e seus paradoxos inexplicáveis. De 
fato, muitos problemas inicialmente tra- 
tados como simples recreação transfor- 
mam-se em grandes descobertas cien- 
tificas. 

Encontrar uma solução elegante pa- 
ra um determinado problema geralmen- 
te traz uma satisfação muito grande. 
Mas, para os usuários de microcompu- 
tadores, a resolução de quebra-cabeças 
constitui, antes de tudo, um excelente 
exercício de programação — na verda- 
de, bem mais eficiente que a análise e 
execução de programas prontos, uma 
vez que os estimula a escolher técnicas 
e aplicar idéias próprias. 



QUEBRA-CABEÇAS NO COMPUTADOR 



Existem diversos tipos de quebra-ca- 
beça, e nem todos podem ser resolvidos 
no computador. Alguns exigem simples- 
mente intuição ou um pouco de racio- 
cínio lógico. Um exemplo clássico seria 
o seguinte: um homem possui um lobo, 
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um carneiro e um repolho, e quer levá- 
los para o outro lado do rio em uma ca- 
noa. A canoa é muito pequena e ele só 
pode transportar um de cada vez. Mas 
não deve deixar sozinhos em qualquer 
das margens do rio nem o lobo e o car- 
neiro, nem o carneiro e o repolho, pois 
algum não sobraria... Como chegar ao 
outro lado do rio com todos os seus 
bens? 

Você pode resolver esse problema uti- 
lizando um computador (se quiser, es- 
creva um programa), mas é muito mais 
rápido encontrar a sua solução com um 
lápis e um papel. 

Os problemas mais adequados ao uso 
do computador são aqueles em que, da- 
do um certo número de situações com 
os respectivos valores, pergunia-se so- 
bre o valor de uma situação hipotética. 
A máquina também é útil quando a 
questão envolve cálculos aritméticos 
complexos ou geometria. Nesses casos, 
chega-se mais depressa ao resultado es- 
crevendo um programa do que buscan- 
do a solução à mão. 

Neste artigo, mostraremos como re- 
solver três dos tipos mais comuns de 
quebra-cabeça. Antes de olhar as solu- 
ções, tente encontrá-las sozinho. Em se- 
guida, examine os programas e veja co- 
mo eles funcionam. 



SIMPLIFICANDO 0 PROBLEMA 



Se você não está acostumado a resol- 
ver quebra-cabeças. poderá ter algumas 
dificuldades em compreender o que é pe- 
dido em cada um deles, pois a maioria 
requer certa prática em extrair as infor- 
mações essenciais de um texto razoavel- 
mente confuso. 

O primeiro tipo de problema, por 
exemplo, apresenta um texto de tama- 
nho considerável que o torna muito mais 
complicado do que na realidade é. Va- 
mos começar por uma situação bastan- 
te simples, que pode ser resolvida sem 
o auxílio do computador. 

Em uma certa manhã de inverno, um 
grupo de amigos entra em uma lancho- 
nete e toma três xícaras de café e duas 
de chá, pagando uma conta no valor de 
CzS 44,00. No dia seguinte, eles retor- 
nam ao mesmo lugar, mas tomam o do- 
bro de xícaras de chá e um café a me- 
nos. Sabendo que desta vez a conta foi 
de Cz$ 48,00, qual é o preço de cada xí- 
cara de chá? 

Se você conseguir remover todas as 
informações necessárias e colocar os da- 
dos principais sob a forma de variáveis, 
o problema consistirá na solução das se- 
guintes equações: 3c + 2h = 44e2c + 
4h = 48. 



Estamos diante de um sistema de 
equações lineares: ambas devem ser re- 
solvidas com os mesmo valores de c e 
h, que não estão elevados a nenhuma 
potência (3cT2 - 2h = 44, por exem- 
plo, não seria uma equação linear). Pa- 
ra se chegar a uma solução desse siste- 
ma são necessárias tantas equações 
quantas forem as variáveis. Neste caso, 
existem dois valores desconhecidos — c 
eh — e duas equações; logo, existe uma 
solução. 

Uma maneira de resolver o problema 
seria isolar uma variável na segunda 
equação — c = (48 - 4h)/2 — e 
substituí-la na primeira, obtendo: 3 (48 
- 4h)/2 2h = 44. Como resultado, 
teremos h = 7, ou seja, uma xícara de 
chá custa CzS 7,00. 

Sistemas com duas equações são bem 
fáceis de resolver. Com três, também 
não são tão difíceis. Mas, a partir daí, 
você, certamente, irá precisar da ajuda 
do computador. 



0 VENDEDOR DE SELOS 



Um negociante possui uma caixa de 
selos estrangeiros agrupados em seis ti- 
pos de envelope. Cada envelope, classi- 
ficado de A a F, tem um preço diferen- 
te. Seis crianças, membros de um clube 
filatélico, gastaram todo o seu dinheiro 
do seguinte modo: 



Betinha 
Nanda 
Digo 
Lu 

Dudoca 
Alcino 



A B 



C D E F 

3 112 
0 12 1 



0 110 3 



Preço 

CzS 341 
CzS 469 
CzS 598 
CzS 376 
CzS 587 
CzS 293 



Qual é o preço de cada envelope? 

Poderíamos resolver esse sistema eli- 
minando uma variável por vez, mas, 
agindo assim, perderíamos muito tem- 
po e qualquer erro aritmético inutiliza- 
ria o resultado. 

Existem, porém, diversas maneiras de 
se resolver um sistema de equações — 
você mesmo seria capaz de inventar um 
método diferente. O que escolhemos pa- 
ra nosso programa é bem mais rápido 
e relativamente simples. 



10 INPUT "DIGITE NUMERO DE LT 

NHÃS " ; R 

15 LET C-R + l 

20 DIM A(R.C) : DIM B(R.C) : 

DIM ASÍC-1,20) 

30 FOR K=] TO C-l 

40 INPUT "NOMES DAS COLUNAS " 

.AS (K) 



50 NEXT K 

60 FOR J-l TO R 

70 PRINT : PRINT "VALORES PAR 

A A LINHA " ; J 

80 FOR K-l TO C 

90 INPUT A(J,K} 

95 PRINT A(J,K) "; 
100 LET R{J,K)=A(J,K) 
110 NEXT K: NEXT J 
IZfl FOR L=l TO R 
130 G0SUB 230 
140 GOSUB 280 
150 NEXT L 
160 CLS 

170 FOR K=l TO C-l: PRINT AT 1 

,4*K-4;AS(K) : NEXT K 

180 FOR j"l TO R: FOR K- 1 TO C 

: PRINT AT 1+J,K*4-4;B(J,K) 

190 NEXT K: NEXT J 

200 PRINT "RESPOSTAS : " 

210 FOR K-l TO C-l: PRINT AT 4 

+R.K*4-4;À(K,C) : NEXT K 

220 STOP 

240 LET D=A(L,L) 

250 FOR K=] TO C 

260 LET A(L.K)=A(L,K]/D 

270 NEXT K: RETURN 

290 FOR J = l TO R 

300 IF J-K THEN NEXT J: 

RE TU RN 

310 LET F-A(J.L) 

320 FOR K-l TO C 

330 LET A(J,K)-A(J,K)-F*A(L,K) 

340 NEXT K: NEXT ,) : RETURN 



10 CLS:INPUT"DIGITE NUMERO DE L 
INHAS E COLUNAS ";R.C 
20 DIM A(R,C) ,B(R,C) ,AS{C-1) 
30 FOR K-l TO C-l 

40 INPUT"NOMES DAS COLUNAS ";AS 
(K) 

50 NEXT 

60 FOR J-l TO R 

70 PR I NT " VALOR ES PARA AS LINHAS 

" : J 

80 FOR K-l TO C 
90 INPUT A(J.K) 
100 B[J.K)-A(J.K) 
110 NEXT K,J 
120 FOR L=l TO R 
130 GOSUB 230 
140 GOSUB 280 
150 NEXT 
160 CLS 

170 FOR K-l TO C-1:PRINT S4*K-3 
,AS(K) : NEXT 

180 FOR J-l TO R : FOR K-l TO C:P 

RINT e4*K-5+32*J,B(J.K) 

190 NEXT K,J 

200 PRINT"HESPOSTAS:" 

210 FOR K-l TO C-1:PRINT AS(K); 

" - ";;PRINT USING" Mtttt.tt"; A 

(K,C) :NEXT 

220 END 

230 D-A(L.L) 

250 FOR K-l TO C 

260 A(L,K)-A(L,K)/D 

270 NEXT : RETURN 

280 FOR J-l TO R 

300 IF J-L THEN NEXT : RETURN 
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310 F-A(J.L) 

320 FOR K-l TO C 

330 A(J.K)-MJ.K)-F*A(L,K) 

340 NEXT : NEXT : RETURN 



aos] 



10 HOME : INPUT "DIGITE O NUME 
RO DE LINHAS E COLUNAS "itl.C 
20 DIM A(B.C) : DIM B(R,C) : DIM 

A9(C - 1) 
30 FOR K ' 1 TO C - 1 
40 INPUT " ENTRE COM 03 NOMES P 
ARA ASCOLUNAS ";AS(K> 
50 NEXT K 
60 FOR J - 1 TO R 
70 PRINT : PRINT " INTRODUZA VA 
LORES PARA A LINHA ";J 
80 FOR K = 1 TO C 
90 INPUT A(J,K) 
100 B{J,K) - A(J,K) 
110 NEXT K: NEXT J 
120 FOR L ■ 1 TO R 
130 GOSUB 240 
140 GOSUB 290 
150 NEXT L 
160 HOME 

170 FOR K • 1 TO C - 1: VTAB ( 
1) : HTAB (K * 5) : PRINT AS (K) : 
NEXT K 

180 FOR J • 1 TO R: FOR K = 1 

TO Ct HTAB (K ■ 5): UTAB (4 * J 

) i PRINT B(J,K) 

190 NEXT K: NEXT J 

200 VTAB {4 * J) : HTAB (1): PR 

INT "RESPOSTAS : 

210 FOR K - 1 TO C - 1: VTAB ( 
4 * J + 4) : HTAB (K * 5) : PRINT 
INT (A(K.C) * 100) / 100: NEX 
T K 

220 END 

240 D = A{L,L) 

250 FOR K - 1 TO C 

260 A ( L . K ) - A(L.K) / D 

270 NEXT K: RETURN 

290 FOR J - 1 TO R 

300 IF J - L THEN NEXT 3: RET 

URN 

310 LET F - A(J,L) 
320 FOR K - 1 TO C 
330 A(J.K) " AtJ.K) - F * A(L,K 

) 

340 NEXT K : NEXT J: RETURN 
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10 CLS:INPUT "DIGITE O NÚMERO D 

E LINHAS E COLUNAS " ;R,C 

20 DIM A(R.C):DIM B(R.C):DIM AS 

CC-1) 

30 FOR K-l TO C-l 

40 INPUT "ENTRE COM OS NOMES PA 

RA AS COLUNAS " ;AS (K) 

50 NEXT K 

60 FOR J=l TO R 

70 PRINT : PRINT "INTRODUZA VALOR 

ES PARA A LINHA " ; J 

BO FOR K=l TO C 

90 INPUT A(J.K) 

100 B(J,K)=A(J.K) 

110 NEXT K,J 

120 FOR L-l TO R 

130 GOSUB 240 



140 GOSUB 290 
150 NEXT L 
160 CLS 

170 FOR K-l TO C-l:LOCATF K*b+I 
,1:PRTNT ASIK) : NF.XT K 
180 FOR J=l TO R : FOR K=l TO C:L 
OCATE K*5,4*J:PRINT B(J,K] 
190 NEXT K,J 

200 LOCATE 1 . 4*J : PRINT "RESPOST 
AS:-" 

210 FOR K-l TO C-l:LOCATE K*5,4 

*J+4:PRINT INT(A(K,C) *1 00) /JOO : 

NEXT K 

2 20 END 

240 D=A(L.L) 

250 FOR K=l TO C 

260 A(L,K)=A(L,JO/D 

270 NEXT K : RETURN 

290 FOR J=l TO R 

300 IF J = L THEN NEXT J ; RETURN 

310 F-AtJ.L) 

320 FOR K-l TO C 

330 A(J.K)-A(J,K)-F-A[L.K) 

340 NEXT K , J : RETURN 

A primeira parte do programa, da li- 
nha 10 à 110, permite que você introdu- 
za as informações, enquanto a segunda 
parte, da linha 120 à 150, chama as sub- 
rotinas de cálculo. A resposta será for- 
necida peia última parte, da linha 160 
à 220. 

Os valores são colocados em uma 
matriz A(J,K), uma linha por vez. Nes- 
te programa, J se refere à linha da ma- 
triz e K corresponde à coluna. A matriz 
A(J,K) é copiada em outra idêntica — 
B(JK). Conservamos, desse modo, a 
matriz original, que será impressa com 
a resposta, na linha 180. 

O cálculo, feito linha por linha, é 
controlado pelo laço entre as linhas 170 
e 210. Primeiro, a rotina entre as linhas 
240 e 270 (230 e 270 no TRS-Color) se- 
leciona o elemento de cada linha que 
pertence à diagonal da matriz (A(l,l), 
A(2,2), e assim por diante). Em segui- 
da, divide cada um desses elementos pe- 
lo seu valor. Consequentemente, todos 
os elementos da diagonal da matriz tor- 
nam-se iguais a 1. 

A próxima rotina executa a maior 
parte do trabalho. Embora tenha ape- 
nas seis linhas, é muito difícil entender 
o seu funcionamento. 

Suponl amos que a rotina anterior já 
tenha feito A(l,1>= 1. O programa se- 
rá então desviado para a linha 290 (280 
no TRS-Color), com L = 1 . A linha 300 
não deixará que a linha I da matriz seja 
processada; assim, o laço partirá da li- 
nha 2. A linha 310 tomará o primeiro 
elemento da linha 2, colocando seu va- 
lor em F. Ainda em 2, a linha 320 irá 
selecionar cada coluna para que a linha 
330 multiplique F pelo elemento da li- 
nha 1 da coluna em questão e subtraia 
esse resultado do elemento da linha 2 da 



coluna. O mesmo será feito com as li- 
nhas 3, 4, 5 e 6. Em seguida, o processo 
se repetirá com L = 2. 

Ao final, os elementos pertencentes 
à diagonal da matriz continuarão iguais 
a 1, e os restantes, exceto os que se en- 
contram na última coluna da direita, se- 
rão iguais a 0. 

Será possível, então, ler diretamente 
os valores de A, B, C etc. na coluna não 
nula. Todos os microcomputadores, me- 
nos o Spectrum, apresentarão os resul- 
tados com duas casas decimais após a 
vírgula. Sem isso, uma resposta que se- 
ria 10 poderia aparecer como 9.999998 
ou 10.000001. 



0 PRESENTE DE NATAL 



Utilizando o programa anterior, vo- 
cê poderá resolver qualquer sistema de 
equações lineares que possua um núme- 
ro igual de equações e de variáveis. Mui- 
tos problemas, porém, incluem menos 
equações e apresentam incógnitas eleva- 
das a algum expoente. Nesse caso, o me- 
lhor caminho para se chegar a uma res- 
posta consiste no emprego da tentati- 
va e erro. Geralmente, o próprio texto 
fornece alguma pista para encurtar seu 
trabalho. 

Tente resolver este problema: no Na- 
tal, vovô Alberto, um excêntrico ma- 
temático, anunciou a seus dois jovens 
netinhos que cada um deles ganharia 
tantos pacotes quantos anos tivessem 
(contando apenas anos completos). Dis- 
se também que cada pacote conteria 
um número de envelopes corresponden- 
te à sua idade e que, em cada envelo- 
pe, eles encontrariam, do mesmo modo. 
o valor em cruzados equivalente à ida- 
de. Por fim, comentou que, no ano se- 
guinte, o mesmo presente lhe custaria 
Cz$ 500,00 a mais. Quantos anos têm 
seus netos? 

Definindo a idade dos garotos como 
A e B, e o valor gasto no ano em ques- 
tão como M, reduzimos o problema a 
duas equações: 



AT3 + Bt3 = M e 

(A + 1) T 3 + (B + 1)T3 . 



M + 500 



Temos, portanto, duas equações e 
três incógnitas. Sem recorrer à ajuda do 
computador, levaríamos um bom tem- 
po experimentando valores de A e B que 
satisfizessem as duas equações. O com- 
putador trabalhará da mesma maneira 
— só que mais rapidamente e sem risco 
de cometer erros. 

Antes de partir para os cálculos, de- 
vemos verificar se há no texto alguma 
informação que nos permita delimitar os 
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valores de A e B. A referência aos "jo- 
vens neiinhos" sugere que os garotos 
não têm mais de catorze anos nem me- 
nos de três. 

Como você poderá constatar, o pro- 
grama para resolver o quebra-cabeça é 
bem simples. 



10 FOR A=3 TO 14 

20 FOR B=A TO 14 

30 LEI M=A"3+B~3 

40 LET N= (A+l) "3+ (B+l ) ' 3 

50 IF ABS (M+500-NK.01 THEN 

PRINT " A= " ;A. "B = " : B 

60 NEXT B 

70 NEXT A 

10 FOR A- 3 TO 14 

20 FOR B- A TO 14 

30 LET M^A _ 3+B~3 

40 LET N-(A+1) "3+(B*l) '3 

50 IF ABSÍM+500-NX.01 THEN PRI 

NT "A= " : A, "B= " ; B 



Embora o sistema possa apresentar 
mais de uma solução, obteremos apenas 
uma, devido à restrição introduzida nas 
linhas 10 e 20. Se o problema não espe- 
cificasse, em sua formulação, "jovens 
netinhos", o laço FOR... NEXT seria 
bem mais extenso. 

A função ABS da linha 50 evita que 
se cometa erros de arredondamento, 
checando se realmente M + 500 é igual 
a N. 

O método utilizado funciona para to- 
dos os problemas em que o número de 
incógnitas é maior que o número de 
equações. Outras situações podem exi- 
gir mais variáveis ou mais condições 
IF...THEN. Dependendo da complexi- 
dade do problema, o computador pode- 
rá levar alguns minutos ou então até ho- 
ras para fornecer uma resposta, mas 
com certeza chegará a ela. 



O terceiro grupo de quebra- cabeças 
que aparece em revistas especializadas 
em computador é o que envolve exclu- 
sivamente números. À primeira vista, 
parece simples questões aritméticas; 
mas, quando se tenta solucioná-las, lo- 
go se percebe a necessidade de recorrer 
à máquina. 

Seguem-se alguns exemplos. 

Existe um número formado de qua- 
tro dígitos que, quando invertido e mul- 
tiplicado por outro número inteiro, re- 
torna ao seu valor original. O problema 
consiste em descobrir se outros núme- 



ros apresentam essa mesma caracterís- 
tica e, em caso afirmativo, apontar 
quais são eles. 

Òutro caso muito interessante é o do 
número 987654321. Ele é divisível por 
17 e inclui todos os dígitos, de 1 a 9. 
Aqui, é preciso identificar um outro nú- 
mero que apresente essas mesmas pro- 
priedades. 

Para solucionar ambos os problemas, 
devemos tratar o número como uma co- 
leção de dígitos (e não como um valor 
numérico). Podemos dividir o número 
em unidades, dezenas, centenas etc. ou 
manipulá-lo como uma cadeia de carac- 
teres, usando RIGHTS, MIDS e LEFTS 
ou os comandos equivalentes no micro 
da linha Spectrum. 

Resolveremos o problema do núme- 
ro de quatro dígitos empregando o pri- 
meiro método. Sendo tal número 
ABCD, chegaríamos a esta equação: 



1000*A + 100*B + 10-C - 
(1000-D + 100*C + 10*B 



D = X" 
f A) 



Como sempre, a maior dificuldade 
para encontrar as cinco incógnitas resi- 
de na delimitação do intervalo em que 
pode estar cada uma delas. A varia en- 
tre I e 9 — se fosse 0, teríamos um nú- 
mero de três dígitos. B e C, por sua vez, 
variam entre 0 e 9. O fator de multipli- 
cação X não deve ser menor que 2 ou 
maior que 10/D, pois, nesse caso, a se- 
gunda metade da equação seria um nú- 
mero de cinco dígitos, Por essa mesma 
razão, D não pode ser maior que 4. Ten- 
do delimitado esses intervalos, podemos 
escrever o programa para solucionar o 
problema. 



10 FOR A=l TO 9 

20 FOR B=0 TO 9 

30 FOR C=0 TO 9 

40 FOR D = l TO 4 

50 FOR X=2 TO INT (9.9/D) 

60 LET J=]000*A+100*B+10*C+D 

70 LET K=1000*D+100*C+10*B+A 

HO TF X*K = J THEN PHINT .!;" = " 



10 FOR A-l TO 9 
20 FOR B-0 TO 9 
30 FOR C-0 TO 9 
40 FOR D-l TO 4 
50 FOR X=2 TO INT(9.9/D> 
60 J-1000*A+100*B-HO"C+D 
70 K-1000"D+100*C+10*B+A 
80 IF X*K=J THEN PRINT J;"-" 
;K 

90 NEXT X.D.C.B.A 



Digite o programa e execute-o. Seja 
paciente: você precisará esperar um bom 
tempo para obter o resultado, pois o 
computador irá verificar todas as com- 
binações possíveis. 

Para solucionar o segundo problema, 
trataremos o número como se fosse uma 
cadeia de caracteres. O programa para 
o Spectrum é um pouco diferente dos 
programas destinados aos demais com- 
putadores, porque esse micro só mani- 
pula oito dígitos por vez, mas os princí- 
pios básicos são os mesmos. 



10 LET M-98765432 

20 LET M=M-2? 

30 LET MS-STRS M 

40 LET F"0 

50 FOR 9-2 TO 9 

60 LET PS=STRS P 

70 LET X=0: FOR K-l TO 8; IF 

PS=MS(K TO Kl THEN LET X-K 

75 NEXT K 

80 IF X=0 THEN LET F-F+l 
40 NEXT P: IF F = 0 THEN PRINT 
MS: STOP 
100 GOTO 20 



10 M=9B7654321 
20 M-M-17 
30 MS=STRS(M) 
40 F-0 

50 FOR P-l TO 9 
60 PS=CHRS(48+P) 
70 X-INSTP. (MS, PS) 
80 IF X-0 THEN F-F+l 
90 NEXT 

100 IF F-0 THEN PRINT MS : END 
110 GOTO 20 



10 M = 987654321 
20 M - M - 17 
30 MS - STRS (M) 
40 F ■ 0 

50 FOR P - 1 TO 9 
60 PS - CHRS {48 + P) 
65 FOR Z - 1 TO LEN (MS) 
70 IF MIDS (MS.Z.l) - PS THEN 
90 

80 NEXT Z:F = F + 1 

90 NEXT P: IF F = 0 THEN PRIN 

T MS: END 

100 GOTO 20 

Fazendo uma contagem regressiva a 
partir de 987654321, o programa con- 
verte todo múltiplo de 17 em uma ca- 
deia MS. As linhas 50 e 60 tratam cada 
um dos dígitos, de 1 a 9, como um ca- 
ractere. A linha 70 verifica se o dígito 
está na cadeia MS; se não estiver, um in- 
dicador F é incrementado. A cadeia MS 
só será exibida se possuir todos os dígi- 
tos de 1 a 9. 



MÚSICA, 
MICROS E MIDI 



Embora seja um atributo relativamen- 
te recente dos micros, a capacidade de 
executar efeitos sonoros e musicais tem se 
tornado cada vez mais comum nos com- 
putadores pessoais de última geração. 
Muitos usuários com inclinações musi- 
cais chegam a escolher o computador em 
função de seus recursos sonoros. Os mi- 
cros mais sofisticados possuem gerado- 
res de som de vários canais, embutidos, 
e permitem a programação dos mesmos 
através de comandos em BASIC. 

Além de compor e executar músicas 
em um micro, o usuário tem, agora, a 
opção de conectar sua máquina a instru- 
mentos musicais eletrõnicos. como sin- 
tetizadores, órgãos e outros. Um padrão 
de interface, chamado MIDI (Musical 
Instntment Digital Interface), criado há 
poucos anos por um consórcio de indús- 
trias eletrônicas japonesas e européias, 
está se firmando rapidamente, e prome- 
te abrir novas e numerosas possibilida- 
des para o uso do computador em mú- 
sica. Examinaremos aqui esse periféri- 
co e suas características. 



PRODUÇÃO DE SOM 



A técnica de geração de efeitos sono- 
ros e musicais em um micro evoluiu 
muitíssimo em relação aos "bipes" emi- 
tidos pelas primeiras marcas surgidas no 
mercado. Dos computadores cobertos 
por INPUT, o TRS-80 e o Apple são os 
que oferecem menos recursos para a ge- 
ração de sons, exigindo programação 
elaborada em linguagem de máquina pa- 
ra a produção de algo mais complexo. 
O TK-2000 e o Spectrum têm comandos 
em BASIC, como o SOUND, que faci- 
litam bastante a programação de efei- 
tos sonoros, mas ainda em um nível 
mais simples. Já o TRS-Color e o MSX 
dispõem de recursos bem sofisticados, 
via comando PLAY. O MSX é o primei- 
ro micro nacional com propriedades de 
sintetizador, pois permite o controle in- 
dividual de algumas características da 
onda sonora, como a envoltória. Isso é 
possível graças a um circuito integrado 
especifico para o controle de som. 

Se você experimentou os programas 
para composição e execução de músicas, 
H dados em artigos anteriores (como os 



das páginas 741 e 1009), certamente já 
tem uma idéia do que o seu computa- 
dor pode (ou não) fazer. Seja através de 
recursos sonoros já embutidos na con- 
figuração básica do micro, seja através 
da adição de interfaces especiais (das 
quais existe uma grande variedade no 
mercado), as características mais impor- 
tantes a observar em um bom sistema de 
geração sonora são: 

- número de canais de saída sonora, ou 
vozes. Com apenas um canal, a música 
gerada é monofònica; o ideal é dispor 
de um mínimo de três vozes, para a sin- 
tetização de três instrumentos tocando 
simultaneamente; 

- velocidade: se for muito baixa, não 
permite a execução de acordes múltiplos 
em cadência rápida; 

- controle individual tanto de timbre co- 
mo de intensidade; 

- controle completo das características 
da onda sonora: bordo de ataque, bor- 
do de fuga. envoltória etc. Esses recur- 
sos permitem sintetizar qualquer tipo de 
instrumento musical existente, ou até 
mesmo criar vozes para instrumentos 
que não existem; 

- facilidade de programação: de prefe- 
rência, deve ser possível utilizar coman- 
dos em BASIC; 

- processador independente: permite que 
a melodia se inicie no ponto determina- 
do pelo software principal, sendo exe- 
cutada independentemente do que a 
UCP estiver fazendo. 

Apesar de toda a sofisticação das in- 
terfaces musicais de última geração, é 
preciso ler sempre em mente que a mú- 
sica gerada por um microcomputador 
nunca atinge os padrões de desempenho 
da música instrumental. 

Devemos lembrar, ainda, que o tecla- 
do de um micro não corresponde ao te- 
clado de um instrumento musical, como 
o piano, por exemplo, e é, na verdade, 
muito desajeitado para uso mais "sé- 
rio". É aqui que entram em cena os ins- 
trumentos musicais digitais. 



A interface MIDI oferece excelentes 
recursos para quem quer fazer música 
- amadorística ou profissionalmente. 
Veja como transformar seu computador 
em um sintetizador musical. 



INSTRUMENTOS MUSICAIS 



O desenvolvimento de novos instru- 
mentos musicais nas últimas décadas é 
marcado por passagens semelhantes às 
que se observam na história das máqui- 
nas de calcular. Tradicionalmente, to- 
dos os instrumentos eram mecânicos: 
compunham-se de cordas, membranas, 
tubos etc. Aos poucos, a necessidade de 
obter intensidades sonoras maiores em 
shows destinados a grandes públicos 
(início da era do rock), assim como a in- 
tensa demanda criada pelas gravações, 
levou à eletrificação (ampliação eletrô- 
nica) de vários instrumentos musicais, 
como guitarras, órgãos e baterias. Final- 
mente, começaram a surgir instrumen- 
tos puramente eletrõnicos — primeiro 
analógicos, e depois digitais — como o 
sintetizador. 

As máquinas de calcular, por sua vez, 
evoluíram do ábaco para as calculado- 
ras mecânicas movidas a manivela ou a 
motor elétrico, que, posteriormente, fo- 
ram substituídas pelas modernas calcu- 
ladoras eletrônicas. Como estas, os ins- 
trumentos musicais atuais estão rechea- 
dos de chips integrados. 

Os sintetizadores digitais são dispo- 
sitivos sofisticadíssimos. Não se limitam 
à gama de notas e efeitos especiais ofe- 
recidos pelos micros (mesmo os mais 
modernos): dispõem de uma espantosa 
parafernália de recursos. 

Um sintetizador comum, na faixa 
média de preço, permite a execução de 
acordes de até oito notas em um tecla- 
do como o de um piano. Quase todas 
as máquinas contam com um conjunto 
considerável de sons, envoltórias, tim- 
bres e ritmos especiais, possibilitando ao 
músico escolher instantaneamente entre 
um piano com eco, um violino ou um 
oboé, com acompanhamento de valsa, 
bebop ou batuque, em duas ou três vo- 
zes, com ou sem percussão. 

Sons c instrumentos totalmente dife- 
rentes ou mesmo bizarros, efeitos de si- 
renas, explosões, gargalhadas, periqui- 
tos — ou o que vier à cabeça do execu- 
tante — estão entre os recursos dos mo- 
delos de maior preço. Por meio de al- 
gumas teclas, eles nos dão acesso a uma 
orquestra completa. 
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Uma rede Mil» ligando um computador, 
um sintetizador e uma máquina de 
percussão. 




Em geral, o lipo mais comum de sin- 
tetizador utiliza o teclado de piano ou 
órgão como dispositivo de execução. 
Mas como o sintetizador é, na realida- 
de, uma caixa cheia de circuitos eletrò- 
nicos, capazes de receber sinais das mais 
diversas origens, podemos recorrer a 
qualquer tipo de instrumento musical 
para gerá-los. Os mais utilizados, atual- 
mente, são os de cordas (guitarra, con- 
trabaixo etc) e os de percussão (bateria 
eletrônica). 

Tomemos como exemplo as máqui- 
nas de percussão: elas podem funcionar 
isoladamente ou embutidas dentro de 
um sintetizador. A qualidade artificial 
da percussão eletrônica, evidente nos 
primeiros modelos, tornou-se pratica- 
mente imperceptível nos sintetizadores 
modernos. Muitos deles têm memória 
RAM que pennite o armazenamento de 
sequências complexas ou não rítmicas, 
para execução posterior. 

Essa capacidade dos sintetizadores 
está promovendo uma verdadeira revo- 
lução na maneira de se fazer música. Até 
recentemente, a habilidade manual — 
a capacidade de mover os dedos com 
desenvoltura e rapidez sobre as cordas 
ou leclas ou de fazer soar um acorde 
ou batida no momento exato — era in- 
dispensável à execução musical. Com o 
advento do instrumento musical progra- 
mável, isso está mudando. 

O instrumento programável age no 
sentido de "liberar" o talento musical 
de uma dependência da destreza ma- 
nual. Mas, com certeza, não o substitui: 
a sensibilidade para o ritmo e a capaci- 
dade de compor músicas mentalmente 
ou de obter um efeito desejado sempre 
serão necessárias. 
I O sintetizador musical pode gerar 




sons de vários inirumentos musicais 
através do teclado. Se, por outro lado, 
você tiver a capacidade de programar e 
armazenar sequências complexas de me- 
lodias, e tocá-las à vontade, até simul- 



taneamente, seu "génio musical" será 
enormemente ampliado. 

Mas, antes que você se entusiasme, 
convém saber que os sintetizadores mu- 
sicais programáveis são muito caros. E 
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e exatamente aqui que entra em cena a 
nova interface MIDI, salvando da frus- 
tração o amante da música que não lem 
um alto poder aquisitivo. 

Com os computadores e os instru- 



mentos musicais modernos utilizando a 
mesma tecnologia básica, tornou-se fá- 
cil interconectá-los e transmitir informa- 
ções de um para o outro. É exatamente 
para isso que serve a MIDI. 



MIDI é um padrão industrial — da 
mesma forma que uma interface serial 
RS-232 ou uma paralela Centronics, 
usadas para conectar periféricos a um 
computador. Embora dirigida exclusi- 
vamente ao mundo da música, a MIDI 
desempenha um papel semelhante ao 
dessas interfaces, proporcionando um 
protocolo padronizado de transferência 
de informação entre o computador e um 
tipo especial de periférico: o instrumen- 
to musical digital. Isso assegura que 
qualquer instrumento (que seja compa- 
tível com o padrão MIDI) "entenda" o 
que o computador está ordenando. 

Já se registraram outras tentativas de 
desenvolver um padrão de comunicação 
entre instrumentos musicais e computa- 
dores, mas nenhuma delas obteve uma 
grande aceitação. A MIDI, ao contrá- 
rio, parece determinada ao sucesso: pe- 
lo menos os dois maiores fabricantes 
mundiais de sintetizadores e máquinas 
de percussão (Roland e Yamaha) já ade- 
riram ao padrão MIDI. Além disso, vá- 
rios microcomputadores lançados nos 
últimos anos, a começar do MSX, pos- 
sibilitam a conexão à MIDI sem maio- 
res dificuldades. Em consequência, 
prevê-se que esse padrão será universal- 
mente adotado em pouco tempo. 

Cada peça de equipamento compatí- 
vel com a MIDI tem três soquetes de cin- 
co pinos, do tipo DIN. Eles são rotula- 
dos de IN, OUT e THRU (alguns equi- 
pamentos MIDI mais antigos podem 
não ter este último tipo de conector). O 
soquete IN permite a recepção de sinais 
gerados em outro equipamento MIDI. 
THRU envia uma cópia idêntica dos si- 
nais de entrada de um MIDI para ou- I 
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iro. possibililando a ligação de vários 
equipamentos "em cascata" (um equi- 
pamento que não tiver o soquete THRU 
é mais limitado, pois só pode ser conec- 
tado ao final de uma cadeia). OUT, fi- 
nalmente, permite enviar sinais gerados 
em um equipamento para outro. 

O padrão MIDI comporta até dezes- 
seis canais simultâneos (paralelos) de in- 
formação. Cada canal controla um ins- 
trumento separado, mas a informação 
de vários instrumentos coexiste nos mes- 
mos condutores elétricos (um artifício 
técnico denominado mulíiptexação de al- 
ta velocidade). Os instrumentos se en- 
carregam de "sintonizar" a informação 
a eles encaminhada, da mesma maneira 
que um aparelho de televisão seleciona 
diversos canais. 



UTILIZAÇÃO 



Embora exista desde 1982, so recen- 
temente a MIDI recebeu mais atenção 
do público. No Brasil, o interesse por es- 
sa interface surgiu com o advento dos 
primeiros microcomputadores compatí- 
veis com a linha MSX. Entre suas apli- 
cações mais frequentes, destaca-se o co- 
mando de um instrumento musical por 
outro. Interconectando um sintetizador 
e um órgão eletrônico, por exemplo, a 
MIDI permite que ambos sejam coman- 
dados de um único teclado. 

A MIDI também possibilita a sincro- 
nização de dois instrumentos diferentes 
— como uma máquina de percussão e 
um piano elétrico — , assim como a li- 
gação de um seqúenciador. Esse dispo- 
sitivo "memoriza" o que foi tocado na 
ordem correta, podendo repetir a exe- 
cução de forma idêntica, tanto em tem- 
po real quanto passo a passo. No pri- 
meiro caso, o seqúenciador reproduz 
exatamente o que o músico tocou; já no 
segundo, ele executa, etapa por etapa, 
trechos da melodia, permitindo que o 
músico acrescente outras notas, de mo- 
do a preencher os segmentos de tempo. 



MIDI E COMPUTADORES PESSOAIS 



Como já mencionamos, o "casamen- 
to" entre computadores pessoais e a in- 
terface MIDI veio a público com o lan- 
çamento da linha MSX. Os fabricantes 
japoneses da linha MSX tinham um 
grande interesse nessa associação, uma 
vez que a maioria deles opera também 
com divisões altamente rentáveis de ins- 
trumentos musicais digitais. A Yamaha 
introduziu, com um custo muito baixo, 
um sintetizador semiprofissional com- 
pleto; o modelo CX5M, que é um mi- 



cro MSX com um sintetizador embuti- 
do e um teclado de piano. Essa máqui- 
na abre uma série de possibilidades in- 
teressantes para. o músico, como, a exi- 
bição na tela de vídeo das notações mu- 
sicais de uma composição ou o uso do 
computador como um seqúenciador de 
alta capacidade de memória, sem a ne- 
cessidade de equipamentos extras. 

Modelos diversos de microcomputa- 
dores — da linha MSX ou de outras li- 
nhas — podem ser utilizados com um 
equipamento MIDI acrescentando-se 
uma interface especial, ligada ao conec- 
tor externo de expansão. 

É provável que o preço de um com- 
putador completo ainda seja mais bai- 
xo que o de um sintetizador MIDI com- 
patível. Mas, da mesma torma que 
aconteceu com outros periféricos, ini- 
cialmente muito caros — como impres- 
soras, disquetes e monitores a cores — , 
o preço dos sintetizadores deverá dimi- 
nuir bastante em um futuro próximo. 

Antes mesmo que os preços comecem 
a cair, os usuários atraídos pela com- 
binação microcomputador-instrumento 
musical devem ser informados sobre al- 
gumas peculiaridades desse periférico. 
Convém ter claro, em primeiro lugar, 
que a capacidade de geração sonora pró- 
pria do micro não é usada quando se 
trabalha com a interface MIDI: o som 
é sempre gerado pelo sintetizador ou ou- 
tro instrumento digital externo ao com- 
putador. Assim, não há vantagem em 
comprar um micro mais caro, dotado 
dos últimos recursos em matéria de ge- 
ração musical. Mesmo a memória extra, 
disponível nos micros profissionais, não 
é tão importante, pois os computadores 
pessoais têm memória mais do que su- 
ficiente para o desempenho da função 
de seqúenciador. 

Vale a pena observar, também, que 
a qualidade de som disponível não é li- 
mitada pelo meio de registro utilizado. 
Como o som é armazenado de forma di- 
gital (imune a ruídos), tanto faz usar 
uma fita cassete ou um disquete — a 
qualidade será sempre comparável à de 
um Compact Disc (CD). Em outras pa- 
lavras, obtém-se na saída exatamente o 
que se colocou na entrada. 



SOFTWARE 



Uma vez que ligamos o computador 
a um ou mais equipamentos MIDI, é ne- 
cessário um software especial para acio- 
nar o conjunto. A variedade de softwa- 
re é ainda restrita, e os preços são mais 
altos do que a média. A situação tende- 
rá a mudar à medida que o uso da MI- 
DI se popularizar. 



Apesar das limitações, funções sofis- 
ticadas — como seqúenciamento, emu- 
lação de estúdios multicanais, compo- 
sição e edição de melodias — são possÍ : 
bilitadas pelo software. 

Mesmo quem não é capaz de tocar 
uma só nota em um instrumento musical 
normal, terá facilidade em compor te- 
mas musicais complexos no computador 
e enviá-los, em seguida, para execução. 
A composição pode ser armazenada di- 
gitalmente em fita ou disco, executada 
novamente, modificada etc. Já existem 
cartuchos de EPROM para micros com- 
patíveis com o padrão MIDI, com con- 
juntos de músicas prontas, para auto- 
acompanhamento ou, simplesmente, pa- 
ra se tocar no computador, usando-o co- 
mo um sistema de alta- fidelidade. 

Um pacote de software típico para 
a linha MIDI é o compositor musical, 
cujo funcionamento é exatamente igual 
ao de um editor de textos, só que traba- 
lhando com a notação musical conven- 
cional, desenhada sobre a pauta. As 
suas funções mais comuns são inserção 
de músicas, apagamento, edição, lista- 
gem em vídeo ou impressora e execução 
musical em diversas cadências. 

Um bom software coloca ainda ã dis- 
posição do usuário uma série de funções 
de controle do sintetizador, (ais como 
o comando independente de várias vo- 
zes (um sintetizador polifônico de qua- 
lidade deve ser capaz de tocar até dezes- 
seis notas simultaneamente), seleção de 
ritmos, timbres ou seqúéncias, mixagem 
etc. Se entre as características do sinte- 
tizador se incluir a capacidade de divi- 
dir o teclado, você poderá tocar um ins- 
trumento com a mão esquerda e outro 
com a direita. 



PADRONIZAÇÃO 



É possível enviar três tipos de infor- 
mação através de uma interface MIDI: 
notas, mudanças de programa e mixa- 
gem de timbre. Atualmente, existe um 
conjunto padronizado de códigos MIDI 
que funciona como qualquer sintetiza- 
dor compatível. Entretanto, esses códi- 
gos permitem apenas o controle das fun- 
ções mais elementares. Funções especiais 
são controladas por sequência de códi- 
gos, que usualmente variam de instru- 
mento para instrumento. Como resulta- 
do, um programa feito para um sinteti- 
zador MIDI pode não funcionar corre- 
tamente com outro. Além disso, para se 
programar orquestrações complicadas, 
é preciso estar familiarizado com a enor- 
me gama de 'alternativas de controle. 
Provavelmente, também essas dificulda- 
des serão atenuadas no futuro. 
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FUNCIONAMENTO E USOS 



Como já vimos, os periféricos 
de síntese de voz capacitam o micro 
a falar. O que talvez você não saiba 
é que as máquinas também podem 
entender a fala humana. Veja como. 



No artigo Computadores que Falam 
(página 446), examinamos o funciona- 
mento e as aplicações dos periféricos de 
síntese vocal, já disponíveis para a maio- 
ria dos microcomputadores. Como ob- 
servamos, eles não são, em termos téc- 
nicos, muito complexos — existem mo- 
delos de preço acessível até para micros 
domésticos pequenos. 

Se conferíssemos ao computador a 
habilidade inversa — ou seja, enten- 
der aquilo que falamos — , teríamos o 
"computador do futuro", que não pre- 
cisaria de vídeo, nem de teclado para 
"conversar" conosco, humanos. 

Mas isso não é tão fácil. Dotar a má- 
quina da capacidade de reconhecer a fa- 
la é uma tarefa bem mais complicada do 
que fazê-la gerar a fala. Por essa razão, 
aínda não há sistemas capazes de um re- 
conhecimento total da fala, nem mesmo 
nos mais sofisticados computadores de 
grande porte. 



Não queremos dizer, com isso, que 
não se tenham desenvolvido sistemas 
com uma certa capacidade de reconhe- 
cimento da fala. Esses sistemas existem, 
inclusive em versões para microcompu- 
tadores pessoais, desde 1980/81. 

Devemos identificar, portanto, o 
grau de desempenho de uma unidade de 
reconhecimento automático da fala 
(RAF). Dois critérios são utilizados. No 
primeiro deles, os sistemas são classifi- 
cados em: sistemas de reconhecimento 
da fala continua e sistemas de reconhe- 
cimento de elocuções isoladas. 

Um sistema de reconhecimento da fa- 
la contínua deveria ser capaz de "enten- 
der" 90% das palavras emitidas no dis- 
curso natural — por exemplo, o pronun- 
ciamento de um deputado, uma conver- 
sa telefónica etc. E isso deveria ser fei- . 



to em tempo real, ou seja, simultanea- 
mente à fala. Sistemas com esse grau de 
desempenho ainda não existem. Os pou- 
cos sistemas de reconhecimento da fala 
contínua desenvolvidos até agora 
cionam apenas em computadores imen 
sos e custam muito caro. Além disso 
eles são capazes de reconhecer um nú 
mero muito restrito de palavras (o vo 
cabulário é pequeno). 

Já os sistemas de reconhecimento iso- 
lado, fabricados em uma grande varie- 
dade de modelos, são bem mais simples 
e baratos. Eles podem reconhecer com 
grande precisão um número restrito de 
palavras ou frases, enunciadas isolada- 
mente e com clareza. O tamanho do vo- 
cabulário varia entre doze e trezentas 
palavras ou frases curtas, dependendo 
da sofisticação do sistema. 

O segundo critério utilizado para a 
classificação dos sistemas RAF diz res- 
peito ã dependência do locutor. 

Os sistemas independentes do locu- 
tor, como diz o nome, são capazes de 
reconhecer a fala de qualquer pessoa, 
em qualquer situação. Tais sistemas são 
tão raros quanto os de reconhecimento 
da fala continua. Mais comuns são os 
sistemas cujo desempenho depende da 
pessoa que fala. Nesse caso, para que o 
sistema seja capaz de reconhecer a fala 
com um mínimo de precisão, a pessoa 
que vai usá-lo precisa "treinar" o com- 
putador, repetindo cada palavra ou fra- 
se do vocabulário um certo número de 
vezes. O programa analisa estatistica- 
mente as repetições e as armazena na 
memória, para utilizá-las durante o pro- 
cesso de reconhecimento. 



O reconhecimento da fala requer o 
emprego de diversos algoritmos e pro- 
cessos. Inicialmente, a fala, captada por 
um microfone, é enviada ao computa- 
dor e digitalizada por um conversor ana- 
lógico digital. O conversor executa um 
processo de amostragem, ou seja, con- 
verte as ondas contínuas da fala em uma 
sequência de números digitais a cada 
50/100 milissegundos. 

Os dados, armazenados em um buf- 
/er(memória intermediária), são proces-' 



sados por um saftware especial, que 
analisa o conteúdo de frequência de ca- 
da amostra (análise espectral). Isso re- 
sulta em uma matriz (tabela), em que ca- 
da coluna corresponde a uma amostra, 
e cada linha, a uma frequência. A ma- 
triz referente à palavra a ser identifica- 
da c comparada com as matrizes-padrão 
armazenadas internamente, uma para 
cada palavra do vocabulário. A palavra 
que, na comparação, acusar maior in- 
cidência é a palavra mais provável. 



INTERFACES PARA MICROS 



Existem, no exterior, diversas inter- 
faces — em versões destinadas a micro- 
computadores pessoais ou profissionais 
— para reconhecimento automático da 
fala. Todos os modelos atualmente dis- 
poníveis empregam sistemas de reconhe- 
cimento de elocuções isoladas, depen- 
dente do locutor. 

Para as linhas Apple, TRS-80 e TRS- 
Color, por exemplo, os sistemas Dragon 
e VoiceBox permitem o reconhecimen- 
to de 32 a trezentas palavras ou frases 
curtas, com 80% ou mais de precisão. 
Compõem-se de uma placa ou caixa de 
expansão, contendo um conversor AD, 
um conjunto de circuitos integrados es- 
pecializados e software — pane do qual 
residente na memória ROM da unida- 
de, parte em disquete. 

Para utilizar o sistema, geralmente 
conecta-se o mesmo a uma porta de en- 
trada serial do computador (RS-232C). 
Após carregar o software residente em 
disquete, o sistema pode ser operado 
com o auxílio de um microfone. 



As aplicações do reconhecimento au- 
tomático da fala são extremamente va- 
riadas, incluindo, por exemplo, o ensi- 
no de línguas, auxílio a pessoas inváli- 
das, controle de aparelhos domésticos 
pela voz e até programação (existe uma 
versão "falada" do BASIC). 

Existem também jogos muito diver- 
tidos para micros, como um jogo de pô- 
quer, que utilizam voz sintética e reco- , 
nhecimento da fala. 
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Você sabe converter o sistema de 
posições de vídeo do seu micro em um 
sistema de coordenadas do tipo X e Y? 
Neste artigo, ensinaremos este e 
outros truques aos usuários do TRS-80. 



Prosseguindo nossos estudos sobre a 
organização da tela dos micros compa- 
tíveis com a linha TRS-80, examinare- 
mos como transformar o sistema de po- 
sições de vídeo, baseado na notação 
PRINT @, em um sistema de coorde- 
nadas verdadeiras, X e Y — recurso dis- 
ponível para os usuários das linhas 
MSX, Apple, TK-2000 e Sinclair. 

Relembrando o que já foi apresenta- 
do nesta série de artigos, a tela do 
TRS-80 é organizada em 1024 posições 
sequenciais, numeradas de 0 (canto su- 
perior esquerdo da tela) a 1023 (canto 
inferior direito). A numeração aumen- 
ta da esquerda para a direita em uma li- 
nha. O número-índice de cada posição 
na tela é o utilizado na expressão @ (ar- 
roba) de um PRINT posicionai. 



POSICIONAMENTO RELATIVO 



A expressão @ corresponde a um po- 
sicionamento absoluto, ou seja, indica 
o local exato da tela onde deve começar 




PROTEJA O SEU PROGRAMA 

Utilize o que você aprendeu sobre a 
desativação da tecla <BREAK> no 
TRS-80 para proteger o seu precioso 
programa em BASIC contia a curiosi- 
dade dos "piratas" de software. 

A operação é simples: faça o com- 
putador carregar e executar automati- 
camente o programa. A primeira linha 
executável deve conter os comandos 
POKE, vistos neste artigo, que desati- 
vam a resposta à tecla < BREAK > . Es- 
sa providência impedirá que o progra- 
ma seja interrompido e listado por meio 
do comando LIST. 

Se o seu TRS-80 tiver o sistema 
operacional de disquetes (DOS), colo- 
que o comando BASIC NOME (nome 
dado ao programa) no arquivo de 
auto-execução. Mas lembre-se de gra- 
var NOME usando a opção de proteção 
contra listagem (SAVE "NOME", P). 



uma impressão. Em diversas aplicações, 
porém, é interessante realizar posiciona- 
mentos relativos — como avançar para 
a próxima posição na linha de baixo, re- 
cuar uma posição na mesma linha, ir pa- 
ra o final da mesma linha e assim por 
diante. 

Por meio de algumas expressões ma- 
temáticas, podemos realizar facilmente 
o posicionamento relativo, de modo a 
tratar a tela como um plano bidimensio- 
nal. Essas expressões seguem um forma- 
to comum, em que se executa o cálculo 
de conversão e, ao mesmo tempo, se im- 
põem os limites de variação mínima e 
máxima. Por exemplo: se a posição 
atual do cursor é P (um número inteiro 
entre 0 e 1023), podemos fazer com que 
ele avance uma posição para a direita 
por meio da expressão: 
Pt=Pt-(PÍ+l<1024) 

A notação intrínseca P<Vo é utilizada 
para indicar que P é um número intei- 
ro. Evitamos, assim, alguns erros de ar- 
redondamento nas expressões. A expres- 
são acima combina, em uma única fór- 
mula, uma adição e um teste: 
PÍ-P»+1:IF PIM023 THEN Pl-1023 

Ou seja. a posição P% sofre um in-" 
cremento de 1 , ao mesmo tempo em que 
é forçada a não exceder 1023. 

Analisando a expressão completa, 
vemos que a subexpressão entre pa- 
rênteses (P% + 1 < 1024) terá um valor 
igual a - 1 se for verdadeira, isto é, se 
a próxima posição P% for menor que 
1024. Nesse caso, ela será reduzida a 
P% = P% + 1 , causando um incremen- 
to. Se a subexpressão for falsa, isto é, 
se P% + 1 for igual a 1024, seu valor se- 
rá igual a 0 e P^o receberá um incremen- 
to de 0 (ou seja, não será incrementado). 

Em seguida, listamos as expressões 
mais úteis para posicionamento relati- 
vo. Estude-as cuidadosamente para en- 
tender como funcionam. 



CONVERSÃO PARA COORDENADAS 



O endereçamento linear da tela. tal 
qual é usado pelo interpretador BASIC 
do TRS-80, apresenta uma série de in- 
convenientes para a impressão de dese- 



nhos e textos que requerem o emprego 
de um sistema de coordenadas ortogo- 
nais (semelhante ao existente para a tela 
gráfica, com os comandos SET, RESET 
e POINT). Entretanto, não é difícil es- 
pecificar um conjunto de equações que 
promova a transformação de um siste- 
ma de referência em outro. 

Em primeiro lugar, precisamos ado- 
tar uma convenção referente à origem 
do sistema de coordenadas ortogonais. 
Se a origem deste corresponder ao can- 
to superior esquerdo (X = 0 e Y = 0>, e 
se X indicar a coluna, e Y, a linha da 
tela, estaremos usando a mesma conven- 
ção estipulada para os gráficos com 
SET. Neste caso, teremos: 

1. Converter (X,Y) para uma posição®: 
PI - 64*Y + X 

2. Converter uma posição @ para (X,Y): 



Se quisermos adotar a convenção car- 
tesiana clássica (origem no canto infe- 
rior esquerdo), teremos: 

1 . Converter (X.Y) para uma posição @: 
Pt = 64M15-Y) + X 

2. Converter uma posição @ para (X,Y): 



O teclado dos micros compatíveis 
com a linha TRS-80 apresenta certas 
particularidades que, uma vez conheci- 
das, permitem a programação de alguns 
truques muito interessantes. 

Da mesma forma que o vídeo, o te- 
clado do TRS-80 tem uma área de me- 
mória, na RAM, reservada à armazena- 
gem dos dados da matriz de entrada. 
Cada tecla, quando pressionada, envia 
um sinal por meio de dois condutores: 
um horizontal (percorre as fileiras de te- 
clas) e outro vertical (percorre as colu- 
nas). Isso corresponde a um verdadeiro 
endereço da tecla, que tem seu corres- 
pondente em uma unidade da RAM. 

Para compreender de que maneira o 
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BLOCO DE CONTROLE 



POSIÇÃO DO CURSOR 



TECLAS AUTO-REPETITIVAS 
A TECLA <BREAK> 



[eclado é processado e controlado pelo 
BASIC, precisamos conhecer uma ou- 
tra área de memória RAM, que abran- 
ge diversos endereços — chamados co- 
letivamente de bloco de controle do te- 
clado. Como veremos em seguida, mui- 
tos desses endereços são úteis para nos- 
sos truques de programação. 



A POSIÇÃO 00 CURSOR 



O BASIC do TRS-80 tem uma fun- 
ção intrínseca, chamada POS(O), que 
informa a posição corrente do cursor 
dentro de uma linha. O número forne- 
cido por essa função varia entre 0 e 63, 
e não informa a posição bidimensional 
na tela (posição @), que corresponde a 
um número de 0 a 1023. 

A posição do cursor é armazenada no 
bloco de controle do teclado, nos bytes 
16416 e 16417 (é um número de dezes- 
seis bits, portanto). Para determinar a 
posição do cursor, basta usar um par de 
comandos POKE: 

V = 256*PEEK(16417)+PEEK(16416) 

Por meio dessa expressão, obtemos 
diretamente o endereço absoluto da me- 
mória de vídeo onde está o cursor. Pa- 
ra converter o valor resultante em uma 
posição PRINT @, basta subtrair o va- 
lor 1 5360, que corresponde ao primeiro 
endereço da memória de vídeo: 

PEEK 



Rodando o próximo programa, vo- 
cê terá uma demonstração desse cálcu- 
lo. O programa preenche a tela com nú- 
meros inteiros, até chegar à posição 960, 
onde é chamada uma rotina de interrup- 
ção. Pressionando-se qualquer tecla, a 
tela é limpa, e a impressão continua a 
partir do último número exibido. 

100 DEFINT N:N=0 
110 CLS 

120 N-N+l : PRINT N 

130 NP=256*PEEKtl6417)+PEEK( 

16416) - 15360 

140 IF NPÍ960 THEN 120 

150 PHINT "APERTE <ENTER> P/ 

CONTINUAR" 

160 IF INKEYS-"" THEN 160 ELSE 
110 



REPETIÇÃO AUTOMÁTICA DE TECLAS 



O teclado original do TRS-80, assim 
como o de seus compatíveis, não è re- 
petitivo — ou seja, nada acontece se 
mantemos pressionada uma tecla. 
Trata-se de uma deficiência, pois seria 
conveniente, em muitas aplicações Go- 
gos, por exemplo), que algumas teclas 
fossem auto-repetitivas. 

Mas existe uma solução para esse 
problema: podemos saber se uma tecla 
está sendo pressionada ou não por in- 
termédio do endereço 14591 do bloco de 
controle do teclado, que contém essa in- 
formação. Basta, portanto, consultar 
uma vez esse endereço — a cada repeti- 
ção de um laço, por exemplo — e rJire- 
cionar a lógica do programa de acordo 
com a informação obtida. 

Para verificar a operacionalidade do 
endereço 14591 em seu micro, digite o 
seguinte programa: 

10 PRINT PEEKU4591) ; :G0TO 10 

Em seguida, digite RUN e experimen- 
te pressionar qualquer tecla. Note que, 
enquanto não se pressiona nenhuma te- 
cla, o programa fica imprimindo zeros 
na tela. Um número maior que zero apa- 
rece quando se pressiona alguma tecla 
ou combinação de teclas. 

O próximo programa ilustra com 
bastante clareza essa aplicação: uma es- 
pécie de "minhoquínha" é formada so- 
bre a tela, quando se pressionam as qua- 
tro teclas com as flechas: 

100 DEFINT A-Z:X"64:Y-24 
110 T$ - CHRS (9) + CHRS(B) + 
CHRS (91) + CHRS (10) 
120 CLS 

130 SET(X,Y):IF PEEK(14591)>0 
THEN 160 

140 CS=INKE¥S:IF AS="" THEN 130 

150 C=ASC(CS) :GOT0 130 

160 ON INSTR(TS,AS) GOSUB 200, 

250, 300, 350 

170 GOTO 130 

200 X=X+1:IF X>127 THEN X-127 
210 RETURN 

250 X-X-1:IF X<1 THEN X = l 
260 RETURN 

300 Y=Y-1:IF Y<1 THEN Y-l 
310 RETURN 

400 Y-Y+1:IF Y>47 THEN Y-47 
410 RETURN 




O que é edição em tela completa? 

Em um banco de dados, a ficha de 
entrada de informações é exibida na 
la com todos os campos. Edição em 
la completa é o recurso que permite 
usuário "passear" com o cursor por 
da a tela, corrigindo e mudando as 
formações contidas nos vários ca 
pos, até ficar satisfeito com o resul 
do. Em seguida, por meio de u 
cia de controle, o conteúdo é armaze 
nado na memória. 

Conhecendo as funções do vídeo e 
do teclado do TRS-80, você não terá 
dificuldade em desenvolver um progra- 
ma òe edição em tela completa. Obser- 
ve a seguinte estrutura: 

- Inicialmente, a teia é limpa e os cam- 
pos são exibidos na tela. Use coman- 
dos PRINT @ para isso; 

- em seguida, a sub-rotina de entrada 
de dados é chamada por INKEYS, Co- 
loque nela vários IF, para detectar se 
alguma tecla de controle foi pressiona- 
da. Localize o cursor e efetue a opera- 
ção solicitada; 

- finalmente, tendo pressionado a tecla 
que assinala o fim da edição, leia (com 
PEEK) o conteúdo dos campos e trans- 
fira-o para a memória. 



BLOQUEIO DA TECLA <BREAK > 



Podemos desativar a tecla < BREAK > 
do TRS-80 Modelo 1 ou Modelo 3 (e dos 
microcomputadores compatíveis) se der- 
mos os seguintes comandos (em modo 
direto, ou dentro de um programa): 
POKE 16396, 175:POKE 16397.201 

Para ativar novamente, digite: 
POKE 16396,201 

Esse recurso é de grande utilidade 
quando desejamos impedir que um pro- 
grama seja interrompido — intencional 
ou acidentalmente — pelo usuário. 
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Os computadores da década de 60 
eram extremamente caros. A potencia e 
a capacidade hoje disponíveis em um 
simples micro doméstico custavam al- 
guns milhões de dólares nos computa- 
dores de grande porte de então, pois 
mesmo as máquinas maiores e mais so- 
fisticadas contavam com um máximo de 
144 Kbytes de memória RAM. 

Assim, por razões de economia, as 
primeiras linguagens de programação 
foram projetadas para ocupar a menor 
quantidade de memória possível. Prio- 
rizava-se a facilidade de sua implemen- 
tação no computador, e não a facilida- 
de de uso para o programador. 

Com o aparecimento dos microcom- 
putadores, por volta de 1975, as lingua- 
gens dos antigos computadores torna- 
ram-se bastante populares entre os usuá- 
rios dos micros, pois essas máquinas, no 
começo, também dispunham de uma 
memória muito limitada. A maioria das 
pessoas aceitava como natural as difi- 
culdades de aprendizado do BASIC e 
outras linguagens do género. "O que é 
simples para o computador também é 
simples para o programador", dizia-se. 



A ESCOLHA DA LINGUAGEM 



Quase todos os micros operam, ori- 
ginalmente, com um interpretador BA- 
SIC residente na memória ROM. E es- 
ta é a única linguagem utilizada pela 
maioria dos proprietários de micro. 

Entretanto, não há motivo para que 
se limitem a uma única linguagem. O 
BASIC é apenas um programa em có- 
digo de, máquina, que pode tanto resi- 
dir na memória quanto ser carregado de 
uma fita ou disquete. Nos micros pro- 
fissionais, por exemplo, o BASIC é uma 
linguagem a mais, e precisa ser carrega- 
da quando se quer usá-la em programa- 
ção. Isso significa que é perfeitamente 
possível carregar interpretadores de ou- 
tras linguagens — ou seja, podemos mu- 
dar a linguagem que o computador "en- 
tende". Esses interpretadores são pro- 
gramas em código de máquina, capazes 
de entender o vocabulário e a sintaxe de 
uma linguagem de programação, e de 
traduzi-los em instruções executáveis pe- 
la UCP do micro. 



No artigo da página 1288, vimos que, 
desde o aparecimento dos primeiros 
computadores, mais de duzentas dife- 
rentes linguagens de programação fo- 
ram desenvolvidas. Essas linguagens ser- 
vem aos mais variados propósitos. Mui- 
tas delas são extremamente especializa- 
das, encontrando aplicação apenas em 
campos de pesquisa muito sofisticados. 
Outras são tão genéricas e fáceis de usar 
quanto o BASIC, e já estão disponíveis 
para microcomputadores. 

Se você quiser utilizar uma determi- 
nada linguagem de programação no seu 
modelo de microcomputador, precisará, 
antes de mais nada, achar um progra- 
ma interpretador ou compilador que 
possa ser executado nele. Linguagens al- 
ternativas são fornecidas em fitas ou dis- 
cos, e devem ser carregadas na memó- 
ria, antes de sua utilização. Algumas ve- 
zes, o interpretador também ê encontra- 
do em cartuchos removíveis da ROM 
(como os que existem para os micros 
TRS-Color e MSX), não precisando, 
evidentemente, ser carregado. 

Os microcomputadores profissionais, 
com sistemas operacionais do tipo MS- 
DOS, CP/M ou UNIX, são os que dis- 
põem de maior variedade de linguagens 
de programação. Já existe, porém, uma 
razoável oferta de linguagens alternati- 
vas para micros mais baratos — como 
os das linhas Spectrum, TRS-Color, Ap- 
ple e MSX— , principalmente se pude- 
rem ser acoplados a disquetes. 



níveis de comunicação 



Uma linguagem de programação po- 
de ser entendida tanto pelo usuário 
quanto pela máquina, constituindo uma 
espécie de mediação entre as linguagens 
de ambos — ou seja, entre a linguagem 
natural (o inglês, por exemplo) e a lin- 
guagem binária, empregada por todos 
os computadores existentes. 

Quando a linguagem de programação 
está mais próxima da binária do que da 
natural, diz-se que é de nível baixo. O 
Assembler é um exemplo de linguagem 
desse tipo. Já as linguagens de alto ní- 
vel, como O' BASIC, são mais parecidas 
com a natural. As máquinas de quinta 
geração — a próxima geração de com- 



A linguagem LOGO foi desenvolvida 
para facilitar o aprendizado da 
programação. Mas, se você pensa que 
ela se destina apenas a crianças, ficara 
surpreso com a riqueza de recursos. 



putadores — provavelmente irão utili- 
zar linguagens superavançadas e pode- 
rão entender ordens dadas em lingua- 
gem natural ou seminatural. Mas as lin- 
guagens atuais — mesmo as mais avan- 
çadas, como o PROLOG — represen- 
tam ainda um meio termo entre a faci- 
lidade de uso e a facilidade de imple- 
mentação em um computador. 

Além do BASIC, muito poucas lin- 
guagens de alto nível são utilizadas mais 
intensamente em microcomputadores 
pessoais: as principais são o LOGO e o 
PASCAL. Como veremos nos artigos 
desta série, essa linguagens são total- 
mente diferentes quanto a seu histórico 
e a seu campo de aplicação. 



ORIGENS DO LOGO 



Em 1967, um grupo de pesquisadores 
do famoso Massachusetts Institute of 
Technology (MIT), localizado na costa 
leste dos Estados Unidos, começou a ex- 
plorar um caminho totalmente novo no 
desenvolvimento de linguagens para com- 
putadores. Essegrupo, liderado por Sey- 
mour Papert, um sul-africano expatria- 
do, tinha como objetivo criar uma lin- 
guagem mais adaptada ao modo de fun- 
cionamento do intelecto humano do que 
ao processador central de um computa- 
dor. Desse empenho nasceu o LOGO. 

Papert tinha trabalhado com o famo- 
so psicólogo e filósofo suíço Jean Pia- 
get. As pesquisas de Piaget sobre o de- 
senvolvimento da cognição evidencia- 
vam que uma criança só é capaz de en- 
tender um conceito abstraio quando ele 
é apresentado por meio de exemplos 
concretos. As condições ideais de apren- 
dizado estariam, assim, condicionadas 
ao envolvimento e experimentação pes- 
soais. Essa abordagem influenciou for- 
temente a elaboração do LOGO. 

Outra influência importante foi o tra- 
balho de Marvin Minski, pesquisador do 
MIT e um dos pais da Inteligência Arti- 
ficial — ciência que procura reprodu- 
zir aspectos da inteligência humana em 
computadores. 

Os computadores não são inteligen- 
tes: sua capacidade se limita à obediên- 
cia de instruções dadas com grande de- 
talhe e precisão. A resolução de um pro- 



IIIIIIIIHMi^^HHHmillllllllll 



■ 


ESCOLHA E DISPONIBILIDADE 


■ 


A TARTARUGA 




DE LINGUAGENS 


■ 


PSEUDO-LOGOS 


■ 


0 QUE É LOGO 


■ 


UM LOGO PARA 


■ 


FUNDAMENTOS 




SEU COMPUTADOR 




PSICOPEDAGÔGICOS 


■ 


PROGRAMAÇÃO 



IIIIIIIIHHHH 



blema intelectual envolve fatores tão 
complexos e variados, que programar 
uma máquina para uma operação desse 
tipo constitui uma tarefa especialmente 
desafiadora. Minski e seus colaborado- 
res dedicaram-se a ela, buscando desen- 
volver uma linguagem de programação 
que facilitasse a simulação da capacida- 
de de decisão e de resoiuçâo de proble- 
mas. Chegaram ao LISP (LISl Proces- 
sing) — linguagem que passaram a uti- 
lizar desde o início dos anos 60. 

A estrutura básica de dados do LISP 
é a lista, uma coleção de objetos elemen- 
tares (chamados de átomos). Uma lista 
pode fazer parte de outras listas, o que 
torna mais fácil representar e processar 
dados simbólicos (não numéricos). En- 
tretanto, o LISP é muito difícil de 
aprender. 

O LOGO é essencialmente um diale- 
to do LISP — contém todas as estrutu- 
ras e comandos que essa linguagem em- 
prega para representar e processar da- 
dos simbólicos (palavras, listas etc.). 
Além disso, possui poderosos comandos 
gráficos, incluídos para facilitar seu uso 
por crianças pequenas. 



DEMONSTRAÇÕES CONCRETAS 



Papert e seus colegas estavam interes- 
sados em uma linguagem que permitis- 
se iniciar as crianças no mundo da pro- 
gramação, Três áreas foram privilegia- 
das: desenho, música e robótica. Isto re- 
sultou da constatação de que as crian- 
ças se sentem mais motivadas a usar o 
computador quando a tarefa a realizar 
consiste em desenhar na teia, tocar mú- 
sica ou movimentar pequenos robôs 
com o auxílio do computador. Este úl- 
timo interesse levou Papert a criar uma 
"tartaruga" robótica. 

Na época, não se encontravam mo- 
nitores gráficos de vídeo a preços aces- 
síveis. A tartaruga, um pequeno robô 
móvel sobre rodas, supria essa deficiên- 
cia: carregava uma caneta em sua "bar- 
riga", e, sob o controle de comandos es- 
pecíficos do LOGO, podia abaixá-la e 
levantá-la. Assim, era capaz de desenhar 
figuras no chão, obedecendo às ordens 
da criança, que passava a relacionar os 
comandos da linguagem com os movi- 
mentos da tartaruga e com conceitos de 
orientação e geometria. 

Quando surgiram os computadores 
pessoais, porém, a tartaruga-robô pas- 
sou a correr risco de "extinção", pois 
era muito mais simples e barato imitar 
seu movimento na tela por meio de grá- 
ficos. Sua descendente direta é a tarta- 
ruga gráfica bidimensional — um sim- 
ples cursor, em geral de forma triangu- 



lar, que obedece às mesmas instruções 
de deslocamento usadas para movimen- 
tar a tartaruga-robô. Mas o simpático 
"animalzinho" não chegou a desapare- 
cer. Ao contrário, tem se observado 
uma tendência a trazê-lo de volta às sa- 
las de aula. O pequeno robô é, sem dú- 
vida, bem mais adequado ao ensino de 
crianças pequenas, que não entendem o 
formalismo da tartaruga gráfica. Além 
disso, é muito mais divertido! 



OS ELEMENTOS DA LINGUAGEM 



O que tem a ver a movimentação de 
uma tartaruga de brinquedo com pro- 
gramação de computadores e psicologia 
infantil? Papert vê no computador um 
importante veículo para a criatividade 
e a expressão de idéias, e acredita que 
se deve ensinar as crianças a dominá-lo, 
evitando que sejam dominadas por ele. A 
melhor maneira para que uma criança 
aprendesse a manipular computadores 
seria viver em uma "cultura computa- 
cional", assim como a melhor maneira 
de aprender italiano é viver na Itália. O 
LOGO — dando à criança os meios para 
usar os poderosos recursos disponíveis 
no computador — é a sua proposta pa- 
ra realizar isso. Como Papert procura 
demonstrar em seu livro LOGO, Com- 
putadores e Educação (Mindstonns. 
Children, Computers and Power/ul 
Ideas, no original), essa linguagem fun- 
ciona não só como uma ferramenta para 
a resolução de problemas, mas como um 
verdadeiro sistema de referência — de- 
nominado micromundo — para a intro- 
dução de novas idéias e conhecimentos. 

Logo após o aparecimento do primei- 
ro interpretador LOGO para computa- 
dores de grande porte, surgiram as pri- 
meiras versões para micros. Por sua ca- 
pacidade gráfica superior, a linha Ap- 
ple foi privilegiada com as versões ini- 
ciais mais poderosas da linguagem. Pos- 
teriormente, outros micros — entre os 
quais o Spectrum, o MSX, e o TRS- 
Color — ganharam interpretadores LO- 
GO compatíveis com o padrão MIT. 

Como o campo de aplicação do LO- 
GO é eminentemente educacional, os 
simbolismos da palavra escrita para a 
descrição da forma e funcionamento do 
nosso mundo tem grande importância. 
Assim, esta foi a primeira linguagem a 
ser amplamente traduzida para idiomas 
locais, inclusive o português. A partir de 
1974, especialistas da Unicamp (Universi- 
ade Estadual de Campinas, no Estado 
de São Paulo) começaram a produzir o 
BRASLOGO, a versão brasileira do 
LOGO, que mais tarde foi adotada por 
diversas empresas fabricantes de micro- 



computadores, como a Itautec, a Gra- 
diente e a Microdigital . Hoje, há versões 
dessa linguagem para as linhas Apple, 
MSX, TK-90X e CP-400, entre outras. 
Existem também diversos "pseudo-LO- 
GO", assim chamados por serem versões 
muito reduzidas ou limitadas do LOGO 
original, do qual aproveitam apenas os 
recursos gráficos. Como o ColorLOGO, 
do TRS-Color 1, esses pseudo-LOGOS 
não contam com os recursos de proces- 
samento de listas, funções matemáticas 
etc. da versão completa. 

LOGO foi a primeira linguagem sim- 
bólica "amistosa", ou seja, fácil de 
usar. Como ela se presta a aplicações 
educacionais, muitos julgam que se des- 
tina exclusivamente às crianças. Nada 
mais longe da verdade. Os recursos in- 
trínsecos do LOGO (recursão verdadei- 
ra, processamento de listas etc.) 
colocam-no no mesmo ranking que o 
LISP, o SNOBOL, o PROLOG e outras 
linguagens empregadas em campos com- 
plexos, como Inteligência Artificial. 
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A primeira providência a ser toma- 
da quando se quer programar em LO- 
GO é carregar o interpretador da lingua- 
gem. Cada linha de computador tem 
uma versão especial, pois ainda não 
existe uma padronização do LOGO. 




O micro Spectrum dispõe de diversas 
versões do LOGO — e de pseudo-LO- 
GO — em inglês. Estas, contudo, só po- 
dem ser obtidas no exterior. 

No Brasil, a Microdigital lançou um 
LOGO em português para os computa- 
dores TK-90X e TK-95. Essa versão é 
carregada a partir de Titã cassete e se- 
i gue aproximadamente o padrão BRAS- 
LOGO {ou LOGO Itautec, desenvolvi- 
do pela Itautec em conjunto com a Uni- 
versidade Estadual de Campinas). 



D 

Os modelos da linha TRS-Color só 
dispõem de um interpretador LOGO em 
cartucho ou disquete, com comandos e 
mensagens em inglês. Uma versão antiga, 
o ColorLOGO, é apenas um pseudo-LO- 
GO gráfico, embora muito poderoso. 

ai 

Esta é a linha que, internacionalmen- 
te, dispõe do maior número e varieda- 
de de interpretadores LOGO, lodos eles 
carregados a partir de disquete. Em in- 
glês, existem varias versões bastante efi- 
cazes, como o Terrapín LOGO, o Ap- 
pie LOGO etc. , que implementam o pa- 
drão MIT, além de terem comandos pa- 
ra geração de música, controle de 
tartaruga-robô e outros recursos. 

Em português, a versão mais difun- 
dida é o MLOGO, desenvolvida por 



uma software-house paulista, a Micro- 
Arte. Essa versão, entretanto, não é 
compatível com o padrão BRASLOGO. 

ff/Á 

Os micros desta linha contam com 
vários interpretadores LOGO em inglês, 
em cartucho e em disquete. Todos apro- 
veitam os excelentes recursos gráficos e 
sonoros do MSX para oferecer coman- 
dos especiais, que permitem o uso de 
sprites, tartarugas múltiplas etc. 

No Brasil, há duas versões do LOGO 
em português. Uma delas, a da Gradien- 
te, é apresentada em cartucho e seus re- 
cursos são bastante limitados. A outra 
— o HOTLOGO. da Sharp — , em car- 
tucho e em disquete, é poderosíssima e 
segue o padrão BRASLOGO/ltautec. 

As versões brasileiras aceitam pala- 
vras acentuadas segundo as regras da 
língua portuguesa. 



PROGRAMANDO EM LOGO 



Como não existe uma versão padro- 
nizada para o LOGO, todos os progra- 
mas desta série serão dados em duas ver- 
sões bem conhecidas: o padrão MIT, em 
inglês (listagens identificadas pelo sím- 
bolo do Apple), e o padrão BRASLO- 
GO/ltautec, em português (listagens 
identificadas pelo símbolo do MSX). 

No último artigo apresentaremos 
uma tabeia de conversão de comandos 
para outras versões menos difundidas. 
Nas versões em português, a sintaxe é 
sempre a mesma; muda apenas a forma 
usada nas palavras-chave. 

Quando se carrega o LOGO na me- 
mória (o que é desnecessário se a ver- 
são for em cartucho, pois, nesse caso, 
o programa se auto-executa), surge na 
tela uma mensagem inicial de "boas- 
vindas", que varia de acordo com o ti- 
po de interpretador usado. 

O sinal adotado pelo LOGO para avi- 
sar que está pronto a aceitar um coman- 
do é o ponto de interrogação. Ao lado 
desse sinal, aparece o cursor. 

Inicialmente, vamos explorar os co- 
mandos gráficos do LOGO: colocare- 
mos a tartaruga gráfica na tela e dare- 
mos comandos para movimentá-la, fa- 
zendo diversos desenhos. Para colocar 
a tartaruga na tela, digite este coman- 
do, e, depois, pressione a tecla <EN- 
TER> ou < RETURN > : 
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O cursor aparece no centro da tela — 
sob a fornia de um triângulo ou como 
uma tartaruga estilizada, conforme a 
versão do LOGO — , já pronto para de- 
senhar. Por analogia com o robô mecâ- 
nico, dizemos que a tartaruga está com 
a "caneta abaixada". 

Dispomos de vários comandos de 
deslocamento da tartaruga. Ela pode an- 
dar para a frente ou para trás e virar pa- 
ra a direita ou para a esquerda. O des- 
locamento linear é medido em número 
de passos (sieps) ou pontos gráficos, e 
a virada, em graus (ângulo). Por exem- 
plo, para fazer a tartaruga andar trinta 
passos adiante, digite: 



PARADIREITA 30 

Com isso, o símbolo da tartaruga 
apenas se inclina na direção desejada. 
Para que ela avance, digite: 



IX 



FORWARD 30 



FM 

PARAFRENTE 30 

Deixe um espaço entre a palavra de 
comando e o parâmetro (30, no caso). 
Sem esse espaço, o computador enten- 
derá a linha como um comando único, 
que não é capaz de reconhecer, e mos- 
trará uma mensagem de erro do tipo: 



H] 



I DON ' T KNOW HOW TO FOHWARD30 



es 



PARAFRENTE 50 

A linha traçada pela tartaruga forma 
um ângulo de 30 graus à direita da li- 
nha vertical anterior. 

Comandos sucessivos podem ser da- 
dos na mesma linha. Experimente: 



LEFT 30 BACK 50 

PARAESQUERDA 30 PAR ATRAS 50 

A linha de comando ordena, em su- 
ma, que a tartaruga retorne à orienta- 
ção original (isto é, "'olhando" para a 
parte superior da tela), por meio de uma 
virada de 30 graus, e que ande para trás 
cinquenta passos. 



Para facilitar a digitação, podemos 
recorrer à forma abreviada de muitos 
comandos da linguagem LOGO. Veja 
abaixo as abreviaturas para os coman- 
dos que foram mostrados até agora: 



À medida que a tartaruga se deslo- 
ca, traça uma linha reta na direção de- 
sejada, pois, como dissemos, ela já apa- 
rece na tela em modo de escrita. 

Uma linha de comando pode ser corri- 
gida com as teclas do cursor, antes de se 
digitar <ENTER> ou < RETURN > . 

Para alterar a direção em que a tar- 
taruga se movimenta, usa-se o coman- 
do que indica a direção e o ângulo da 
virada. Experimente: 



O LOGO possui uma grande varie- 
dade de comandos (também chamados 
primitivos). Vejamos mais alguns deles, 
relacionados à elaboração de gráficos: 

[X 

HOME - Leva a tartaruga de volta ao 
centro da tela, sem apagá-la. 

CLEARSCREEN - Apaga o conteúdo 
da tela e leva a tartaruga de 
volta ao centro (abreviação: 
CS). 

PENUP - "Desliga" o modo de escrita 
da tartaruga: ao se movimen- 
tar, ela não deixará nenhum 
traço (abreviação: PU). 

PENDOWN - "Liga" o modo de escri- 
ta da tartaruga (abreviação: 
PD). 

PENCOLOR - Muda a cor do traço e 
das letras. É seguido de um 
número entre 0 e 6, que indi- 
ca o código da cor (abrevia- 
ção: PC). 

Digite o programa que se segue pa- 
ra ter um exemplo da utilização dos 
comandos aprendidos até o momen- 
to. Nunca se esqueça de pressionar a 
tecla <ENTER> após cada linha de 
comando. 

SHOWTURTLE 
LEFT 45 
FOR WARD 71 
RIGHT 135 
PENUP 

FORWARD 50 

PENDOWN 

LEFT 45 

BACK 71 

PENUP 

HOME 

PENDOWN 

O comando CLEARSCREEN se en- 
carregará de limpar toda a tela, caso vo- 
cê queira realizar outras experiências. 



SHOWTURTLE 

FORUARD 

BACK 

LEFT 

RIGHT 



rtfi 



TARTARUGA 
PARAFRENTE 
PAR ATRAS 
PARAESQUERDA 
PABADIREITA 



PARACENTRO - Leva a tartaruga de 
volta ao centro da tela, po- 
rém sem apagá-la (abreviação: 
PC). 

APAGUEDESENHO - Apaga o con- 
teúdo da tela e leva a tartaru- 
ga de volta ao centro (abrevia- 
ção: AD). 

USENADA - "Desliga" o modo de es- 
crita da tartaruga: ao se mo- 
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CONVERSÃO PARA 0 MLOGO 

Um dos interpretadores LOGO mais 
usados no Brasil é o desenvolvido pela 
Mícro-Arte, de São Paulo, para compu- 
tadores da linha Apple. Como nessa 
versão os comandos primitivos do Ap- 
ple LOGO foram traduzidos para o por- 
tuguês em desacordo com o padrão 
BRASLOGO, apresentamos abaixo os 
comandos do MLOGO corresponden- 
tes aos utilizados neste artigo. A sin- 



taxe permanece a 


mesma. 


BRASLOGO 


MLOGO 


TARTARUGA 


MOSTRET 


PARACENTRO 


CENTRO 


APAGUEDESENHO 


LIMPETELA 


PARAFRENTE 


FRENTE 


PARATRÁS 


VOLTE 


PARADIREITA 


DIREITA 


PARAESQUERDA 


ESQUERDA 


USELÁPIS 


COLORIDO 


USENADA 


SEMCOR 


USEBORRACHA 




MUDECL 


COR 


REPITA 


REPITA 


APRENDA 


APRENDA 


FIM 


FIM 


ADEUS 


ADEUS 



vimentar, ela não deixará 
nenhum traço (abreviação: 
UN). 

USELÁPIS - "Liga" o modo de escrita 
da tartaruga (abreviação: 
UL). 

USEBORRACHA - Apaga todos os 
traços por onde passar a tar- 
taruga (abreviação: UB). 

MUDECL - Muda a cor do traço e das 
letras. Deve ser seguido de um 
número entre 0 e 7, que indi- 
ca o código da cor. 

Eis aqui um exemplo para ilustrar o 
uso dos comandos aprendidos até ago- 
ra. Não se esqueça de pressionar a te- 
cla <ENTER> após cada linha de 
comando. 

TARTARUGA 
PARAESQUERDA 45 
PARAFRENTE 71 
PARADIREITA 35 
USENADA 
PARAFRENTE 50 
USELÁPIS 
PARAESQUERDA 45 
PAR ATRAS 71 
USENADA 
PARACENTRO 
USELÁPIS 



MONTE UM PROCEDIMENTO 



Todos os comandos examinados fo- 
ram dados em modo direto, ou "ime- 
diato", que equivale ao modo direto do 
BASIC — ou seja. o comando é execu- 
tado imediatamente pelo interpretador, 
e logo esquecido. Entretanto, existe um 
outro modo em LOGO: o modo progra- 
mado, ou modalidade procedimento. 

Nessa modalidade, atribui-se um no- 
me a um conjunto de comandos, que 
passam, então, a ser conhecidos como 
um procedimento. O nome que for da- 
do ao procedimento torna-se parte in- 
tegrante do vocabulário do LOGO. Diz- 
se, por essa razão, que o LOGO perten- 
ce à família das linguagens extensíveis. 

Quando se digita o nome de um pro- 
cedimento registrado, o interpretador 
executa todos os comandos contidos no 
mesmo, em sequência. Assim, pode-se 
dizer que o procedimento também é um 
programa. Mas, ao contrário de um 
programa em linguagem BASIC, dis- 
pensa a numeração das linhas. 

Para iniciar a entrada de um novo 
procedimento, use o comando: 

à 

TO NOME 



APRENDA NOME 

Na versão em português, o comando 
APRENDA pode aparecer na sua for- 
ma abreviada, ou seja, AP. 

O NOME do procedimento pode ser 
qualquer um e ter qualquer tamanho. Só 
não deve conter espaços em brancos ou 
coincidir com o nome dos primitivos da 
linguagem LOGO. 

Você poderá entender melhor de que 
maneira funciona um procedimento por 
meio de um exemplo. Vamos definir um 
procedimento chamado Z1GZAG. Lo- 
go que digitamos o comando inicial — 
TO ZIGZAG, em inglês, ou APREN- 
DA ZIGZAG, em português — , tudo o 
que eslava na tela desaparece, e entra em 
açào um pequeno editor de textos, que 
permite a entrada dos comandos que 
constituirão o procedimento. O sinal de 
prontidão muda de ? (ponto de interro- 
gação) para > (sinal de maior). 

Para finalizar o procedimento, pres- 
stona-se a tecla F.ND (para as versões em 
inglês) ou FIM (versões em português). 
O sinal de ? aparece novamente, indi- 
cando que voltamos ao modo direto. 
Em alguns computadores, como o Ap- 
ple, por exemplo, c necessário pressio- 
nar as teclas <CTRL> e <C>. 

BO 

TO ZIGZAG 

FORWARD 20 LEFT 150 

FORWARD 20 RIGHT 150 

FORWARD 20 LEFT 150 

FORWARD 20 RIGHT 150 

FORWARD 20 LEFT 150 

FORWARD 20 RIGHT 150 
END 

IM 

APRENDA ZIGZAG 

PARAFRENTE 20 PARAESQUERDA 150 
PARAFRENTE 20 PARADIREITA 150 
PARAFRENTE 20 PARAESQUERDA 150 
PARAFRENTE 20 PARADIREITA 150 
PARAFRENTE 20 PARAESQUERDA 150 
PARAFRENTE 20 PARADIREITA 150 
FIM 

ZIGZAG é, agora, um novo coman- 
do do LOGO. Se você digitar esse co- 
mando, a tartaruga executará os coman- 
dos gráficos do programa anterior e tra- 
çará um ziguezague na tela. 

Como você deve ter observado, o 
programa compõe-se de três repetições 
da mesma sequência de comandos, uma 
para cada "perna" do ziguezague. Mas 



o LOGO tem um comando que permite 
especificar o número de repetições (se- 
melhante ao FOR ... NEXT do BASIC). 
Utilizando-o, e abreviando os comandos 
gráficos, nosso programa ficará assim: 

CD 

TO ZIGZAG 

REPEAT 3 (FD 20 LT 150 FD 20 RT 

150] 

END 

FM 

APRENDA ZIGZAG 

REPITA 3 [PF 20 PE 150 PF 20 PD 

150 J 

FIM 

A rotina a ser repetida, delimitada 
pelos sinais |e] (não use parênteses), é 
precedida pelo comando de repetição e 
pelo número de vezes que ela deve ser 
repetida. O comando de repetição è mui- 
to útil para a obtenção de figuras geo- 
métricas regulares. Podemos traçar um 
semicírculo, por exemplo, com o seguin- 
te comando: 
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Como posso traduzir os comandos de 
meu LOGO que estão em inglês? 

Nada mais fácil. Como o LOGO é 
uma linguagem extensível, podemos 
desenvolver vários procedimentos sim- 
ples, que obedecem a um comando em 
português e chamam o primitivo equi- 
valente em inglês. Se você resolver, por 
exemplo, trabalhar com um BRASLO- 
GO dentro do LOGO original, defina: 

TO PARAFRENTE :D 

FOR WARD D: 

END 

TO PAR ATRAS :D 

BACK :D 

END 

TO PARADIREITA :A 

RIGHT ;A 

END 

TO PAR A ESQUERDA :A 

LEFT :A 

END 

TO PARACENTRO 

HOME 

END 

TO REPITA :N :LI3T 
RE PE AT :N :LIST 
END 

e assim por diante. Em seguida, grave 
esse conjunto de procedimentos com 
SAVE "BRASLOGO, e, quando quiser 
programar em português, carregue-o 
com LOAD "BRASLOGO 



a] 



RE PE AT 180 [ FORWARD 1 RIGHT 11 



REPITA 180 [PARAFRENTE 1 
PARADIREITA 1] 



UMA PISTA DE CORRIDA 



Agora que temos todos os "ingre- 
dientes" para montar um programa 
mais complexo, vamos tentar desenhar 
uma pista de corrida na tela. Para isso, 
dividiremos o problema em várias par- 
tes, ou subiarefas, que depois serão cha- 
madas na ordem correia. 

Começando com a parte interna da 
pista, definiremos um procedimento que 
trace a curva e, em seguida, a reta: 

BI 

TO LADO INTERNO 
FORUARD 100 

REPEAT 1B0 [FORWARD 1 RIGHT 1] 
END 

m 

AP LADOINTERNO 
PF 100 

REPITA 180 t PF 1 PD 11 
FIM 



i 

TO LADOEXTERNO 
FORWARD 100 

REPEAT 90 [ FORWARD 3 RIGHT 2] 



TO PISTAEXTERNA 

LADO EXTERNO LADOEXTERNO 

END 



m 

AP LADOEXTERNO 
PF 100 

REPITA 90 [PF 3 PD 2] 
FIM 



AP PISTAEXTERNA 
LADOEXTERNO LADOEXTERNO 
FIM 

Para começar a pista em um ponto 
adequado da tela, definimos o procedi- 
mento chamado INICIO: 

m 

TO INICIO 
PENUP 

LEFT 40 FORWARD 110 RIGHT 130 

PENDOWN 

END 



f/U 

AP INICIO 
USE NADA 

PE 40 PF 110 PD 130 

USELAPIS 

FIM 

Um outro procedimento, PARTIDA, 
moverá a tartaruga para onde a linha de 
partida e o início da parte interna da pis- 
ta devem ser desenhados: 

SI 

TO PARTIDA 

RIGHT 90 FORWARD 30 LEFT 90 
END 

AP PARTIDA 

PD 90 PF 30 PE 90 

FIM 



Finalmente, para traçar a pista toda 
de uma vez, definiremos um procedi- 
mento chamado PISTA. 

ú 

TO PISTA 
INICIO 

PISTAEXTERNA 
PARTIDA 
PISTAINTERNA 
END 



AP PISTA 
INICIO 

PISTAEXTERNA 
PARTIDA 
PISTAINTERNA 
FIM 

Simples, não é? 

Todos os programas em linguagem 
LOGO são elaborados dessa maneira. A 
divisão do programa principal em uma 
série de "tijolos" de construção torna 
bem mais fácil tanto a programação co- 
mo a própria execução de testes. No 
próximo artigo, veremos como montar 
programas de maior complexidade usan- 
do essa mesma técnica. 



A combinação de duas curvas e duas 
retas nos fornecerá a parte interna da 
pista de corrida: 

XJ 

TO PISTAINTERNA 
LADOINTERNO LADOINTERNO 
END 

AP PISTAINTERNA 
LADOINTERNO LADOINTERNO 
FIM 

A parte externa da pista requer uma 
curva maior. Para obtè-la, aumentamos 
o passo da tartaruga: 
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CONTROLE 



■ 


CONTROLES PELA 


MICROELETRONICA 


■ 


SENSORES E ATUADORES 


■ 


CONEXÃO AO MICRO 


■ 


S0 C "AARE 



Como um computador pode receber 
informação do mundo exterior, 
analisá-la e usar os dados para operar 
dispositivos de diversos sistemas? 
Explicamos aqui todo o processo. 



A mie roe! eiró nica provocou uma ver 
dadeira revolução nos sistemas de con 
trole de uma grande variedade de má 
quinas de uso doméstico e industrial 
Dezenas de relés, cronômetros mecãni 
cos e motores eléiricos, usados antiga 
mente para controlar aparelhos domes 
ticos, foram substituídos por uma pe- 
quena caixa. Os circuitos e componen 



tes microeletrônicos nela contidos rea- 
lizam a mesma função de modo muito 
mais eficiente e sem falhas e avarias. Na 
indústria, inúmeros tipos de máquinas, 
como tornos e cortadores computado- 
rizados e robôs de montagem , transfor- 
maram o dia-a-dia das fábricas. 

Existem quatro tipos básicos de sis- 
tema microeletrônico de controle: circui- 
tos lógicos discretos, circuitos integra- 
dos especiais, circuitos integrados gené- 
ricos e microprocessadores. Dentre to- 
dos, os microprocessadores foram os 
mais revolucionários, pois, além de am- 
pliar o alcance das aplicações, eles ba- 
rateram o custo dos sistemas de contro- 
le, através do conceito de controle por 
software. Um microprocessador tem 



uma infinidade do aplicações, bastando 
reprogramá-lo. Os outros três tipos de 
sistema, ao contrário, não podem ser 
mudados, a não ser que se façam modi- 
ficações no hardware. 

Diversos tipos de equipamentos e 
aparelhos contêm microprocessadores 
embutidos, que funcionam com base em 
softwares específicos para cada tarefa de 
controle. Evidentemente, apenas o mi- 
croprocessador não è suficiente para es- 
sa aplicação: são necessários chips au- 
xiliares adicionais (circuitos integrados), 
conectados ao processador, para que ele 
possa exercer alguma função útil. As- 
sim, lodo proprietário de um computa- 
dor pessoal tem em suas mãos o cora- 
ção de um sistema potencialmente ver- 
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sátil de comrole. O usuário que quiser 
utilizar seu micro para esse fim encon- 
trará uma grande variedade de interfa- 
ces especiais e kits de montagem. E, se 
for um amador curioso, poderá usar sua 
criatividade e testar uma série enorme 
de aplicações. 



Para que um microcomputador pes- 
soal comande um sistema sofisticado de 
controle, é necessário acrescentar-lhe 
uma série de dispositivos. 

Uma aplicação típica de controle 
sempre requer uma ou mais entradas e 
saídas especiais, operadas de maneira 
bem diferente das entradas e saídas mais 
comuns em um microcomputador. Um 
mecanismo de controle de temperatura, 
por exemplo, precisa ser ativado quan- 
do a temperatura atinge um determina- 
do grau. O computador recolhe essa in- 
formação por intermédio de um sensor, 
que gera um sinal relativo ao fenómeno 
físico ou químico que está sendo detec- 
tado e o envia ao computador. Para agir 
sobre o mundo exterior no sentido de 
combater esse aumento de temperatura, 
o computador deverá estar ligado a um 
atuador — no caso, um condicionador 
de ar ou um ventilador. 

No artigo sobre robôs (página 1284), 
descrevemos operações desse tipo. Os 
kits de braços robóticos, ali menciona- 
dos, são um exemplo de sistemas de con- 
trole especializados. 

Neste artigo, examinamos os aspec- 
tos gerais do emprego de computadores 
pessoais no controle de dispositivos ex- 
ternos. Nossa discussão será centrada 
nos três principais elementos de um sis- 
tema de controle: sensores, atuadores e 
conectores. Antes, porém, analisaremos 
as possibilidades de controle. 

Convém explorar mais detalhada- 
mente quatro áreas: 

I - temporização e seqúenciamento 




- regulação 

- redução de dados 

- interfaces homem-máquina 



TEMPORIZAÇÃO E SEQÚENCIAMENTO 



Sistemas de temporização e seqiien- 
ciamenlo fazem parte do nosso cotidia- 
no: são usados nos programadores de 
máquinas de lavar, máquinas de costu- 
ra, aquecimento central etc. O compu- 
tador que administra muitos desses sis- 
temas é bem mais compacto e confiável 
do que os sislemas eletromecânicos que 
substitui. Ele possibilita a execução de 
sequências complexas de operação e co- 
bre uma área muito maior de alternati- 
vas de aplicação. Além disso, permite 
que a temporização e sequência de ope- 
rações sejam alteradas, bastando, para 
isso, mudar o software. 

Uma aplicação bastante simples do 
micro como o "cérebro" de um sistema 
de controle refere-se ao alarme residen- 
cial contra ladrões. Este consiste, basi- 
camente, em uma série de fios conecta- 
dos a interruptores localizados em vá 
rias portas e janelas da casa. Quando to- 
das estão fechadas, o circuito se com- 
pleta e a corrente elétrica pode fluir pe 
lo mesmo. Se o circuito for interrompi- 
do pela abertura de urna janela ou por- 
ta, o alarme soa. 

Um dos problemas com sistemas des- 
se tipo é a possibilidade relativamente 



alta de um falso alarme, provocado por 
falhas mecânicas ou mau contato nos in- 
terruptores. O computador oferece uma 
opção eficiente para a solução desse pro- 
blema. Se, por exemplo, acrescentarmos 
um segundo circuito a todas as portas 
internas, e conectarmos ambos os circui- 
tos a um microcomputador, o software 
poderá realizar alguns testes simples, an- 
tes de soar o alarme. Isso seria feito se- 
gundo uma determinada lógica: se um 
ladrão entrar na casa, uma porta inter- 
na deverá ser aberta logo após a inter- 
rupção do circuito externo. O alarme se- 
rá ativado se os dois circuitos forem in- 
terrompidos na ordem correta — ou se- 
ja, do exterior para o interior. Caso os 
circuitos independentes sejam interrom- 
pidos isoladamente, ou em ordem incor- 
reta, o alarme não é ativado. 

O uso do computador no controle do 
sistema antiladrões apresenta outras 
vantagens. Por exemplo: dispondo de 
um sistema adequado de telecomunica- 
ções, podemos fazer com que o micro 
disque automaticamente um número de 
telefone e avise a polícia. 

Em algumas residências, um inter- 
ruptor simples é utilizado para ligar e 
desligar luzes internas, para dar a im- 
pressão — na ausência dos moradores 
— de que há gente em casa. Mas o feiti- 
ço pode se virar contra o feiticeiro, pois 
a sequência regular de liga-desliga evi- 
dencia exatamente o oposto: que não há 
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ninguém! Com um micro, é possível 
controlar tanto a iluminação dos apo- 
sentos como o funcionamento dos ele- 
trodomésticos ligando-os segundo um 
padrão complexo, diferente para cada 
período do dia e variável de um dia pa- 
ra outro. Sequências diversas podem ser 
deflagradas por eventos externos, como 
o nascer ou o pôr-do-sol. 

Outro candidato ideal para controle 
por micros é a ferrovia-modelo: um 
software adequado pode ser usado pa- 
ra verificar cruzamentos, acionar semá- 
foros, desviar trilhos etc. Também in- 
teressante, no plano doméstico (ou até 
profissional), é o uso do micro para con- 
trolar um ou mais projetores de slides, 
de modo a criar um show mais comple- 
xo. O micro define a intensidade das 
lâmpadas — permitindo a criação de 
fade-in e fade-out, mixagens de imagens 
de dois projetores etc. — , a posição dos 
slides numa dada sequência e informa 
qual imagem será projetada em cada 
máquina. O micro encarrega-se, ainda, 
da sincronização de música e fala, gra- 
vadas em uma fila cassete. 



CONTROLES DE REGULAÇÃO 



O controle de regulação é usado em 
toda aplicação em que a diferença en- 
tre uma situação ideal e a situação atual 
determina a operação a ser efetuada. Es- 
sa diferença é avaliada a partir de sen- 
sores conectados ao sistema. Um con- 
trolador de aquecimento central, por 
exemplo, tem a função de manter cons- 
tante a temperatura do ambiente. Um 
sensor informa a temperatura do am- 
biente ao sistema de controle e este liga 
ou desliga o aquecedor conforme a tem- 
peratura caia ou suba. 

Um microcomputador substitui facil- 
mente sistemas desse tipo, permitindo 
operações mais complexas, como con- 
trole simultâneo de aposentos, do tan- 
que de armazenamento de água quente 
etc. Para isso, ele aciona válvulas, bom- 
bas e elementos de aquecimento confor- 
me a necessidade. Este sistema é um 
exemplo de um servomecanismo — ba- 
seado em controle por alça fechada 
(feedback, ou retroalimentação) — no 
qual a correção é proporcional ao erro 
detectado {controle proporcionai). 

Examinando mais detidamente o 
conceito de alça fechada, entenderemos 
por que o computador é tão versátil. Su- 
ponhamos que você queira regular a in- 
tensidade de uma lâmpada incandescen- 
te, de modo que o nível de luminosida- 
de do ambiente seja constante. A varia- 
ção da intensidade deve refletir as 
danças da luminosidade externa, ou se 



ja, a lâmpada ficará mais fraca durante 
o dia, e mais forte â noite. Para isso, o 
computador é conectado a uma interfa- 
ce, que controla a corrente elétrica for- 
necida ã lâmpada, e a um sensor foielé- 
tricô, que mede o nível de luz no am 
biente e fornece ao computador essa in- 
formação. Um sistema de retroalimen 
tação de alça fechada é então incorpo- 
rado, na forma de um software adequa- 
do, segundo este esquema: 



I ' 
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Quando o programa for executado, 
a luminosidade da lâmpada começará a 
oscilar, tornando-se mais forte e, em se- 
guida, mais fraca que o nível pretendi- 
do (nível-alvo). Esse efeito decorre de 
um atraso no sistema de controle, cau- 
sado pela defasagem térmica da lâmpa- 
da — ou seja, ela não é capaz de respon- 
der à velocidade dos comandos do com- 
putador. Quando a corrente elétrica pa- 
ra a lâmpada é alterada, seu filamento 
demora a esquentar ou esfriar. Entre- 
tanto, o computador já determinou uma 
outra medida de luminosidade, e, com- 
provando que ainda existe um erro, ou 
diferença, aumenta o grau de correção. 
Eventualmente, a lâmpada "alcança" o 
computador e, se a correção efetuada é 
grande demais, chega a "ultrapassá-lo", 
invertendo o processo. Para evitár essa 
oscilação, algumas regras simples devem 
ser acrescentadas: 



Agora, o sistema irá ajustar gradual- 
mente a intensidade da luz e mantê-la 
constante, no nível-alvo. Outras regras 
podem ser incorporadas para a promo- 
ção de açòes corretoras no caso de mu- 
danças abruptas ou transitórias na ilu- 
minação externa. 



Aquisição e redução de dados e in- 
terfaces homem-máquina são elementos 
importantes de qualquer sistema de con- 
trole. Em muitas aplicações, o micro re- 
cebe informações de fontes diferentes, 
e tem que convertê-las para uma forma 
mais inteligível ou adequada. O softwa- 
re deve verificar se os níveis permane- 
cem dentro de certos limites, converter 
unidades de medidas, filtrar os dados e 
checar inconsisiências lógicas. Esse con- 
junto de atividades é chamado redução 
de dados. 

Um analisador automotivo, para 
"acertar" a ignição de motores, consti- 
tui um bom exemplo de aplicação para 
as técnicas de redução de dados. Um sis- 
tema desse tipo exigirá sensores capazes I 
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de monilorar o nível cie dióxido de car- 
bono na exaustão, o sincronismo da ig- 
nição, o ângulo de avanço do distribui- 
dor etc. Ele poderia ser interativo — ou 
seja, o micro daria todas as instruções 
para a ligação dos sensores ao motor, 
acusaria eventuais falhas na operação e 
até mesmo diagnosticaria o problema do 



INTERFACES HOMEM MAQUINA 



O que chamamos interface homem- 
máquina é exatamente o projeto da in- 
teração do sistema com o usuário. Esse 
elemento dos sistema de controle ofere- 
ce enormes possibilidades de desenvol- 
vimento. Mesmo ao nível mais simples, 
que consisle na exibição de determina- 
da informação, há numerosas alterna- 
tivas, como a simulação no vídeo de um 
mostrador analógico ou uma barra ilu- 
minada, em vez de complexas tabelas de 
números ou outros tipos de gráfico com 
os quais o usuário está menos habitua- 
do. As opções incluem a representação 
de um esquema do sistema que está sen- 
do controlado. No caso de uma ferro- 
via de brinquedo, por exemplo, é possí- 
vel traçar no vídeo os trilhos e os pon- 
tos de cruzamento, e assinalar em tem- 
po real o seu "status". O usuário pode 
comandar todas as funções — como se- 
lecionar trens, mudar sua velocidade etc. 
— por meio de joysticks ou canetas 
ópticas. 

O micro também abre novas perspec- 
tivas para o projeto e controle de siste- 
mas de auxílio para deficientes físicos. 
Esses sistemas permitem, por exemplo, 
que um paralítico controle seu ambien- 
te por meio de um computador, ligan- 
do ou desligando elcirodomésticos, al- 
terando o nível da calefação ou a ilumi- 
nação de um aposento etc. 

Já existem diversas interfaces ho- 
mem-máquina especiais para deficien- 
tes, como as de entrada e saída basea- 
das na voz ou aquelas em que se acio- 
nam as teclas soprando-se em um tubi- 
nho. Com isso, uma pessoa deficienie 
pode até mesmo usar um processador de 
textos, sem necessidade do teclado. 



SENSORES 



As formas de controle por meio de 
computadores que acabamos de exami- 
nar são bastante inter-relacionadas, e 
apresentam uma série de elementos em 
comum. Um dos mais importantes é a 
maneira como os computadores obtêm 
_ informações do mundo exterior, 
íaa Sensores especializados, correspon- 



dentes aos cinco sentidos — tato, olfa- 
to, visão, audição e paladar — , podem 
ser ligados a um microcomputador. Eles 
não chegam a ler o nível de complexi- 
dade dos sentidos humanos. Em com- 
pensação, os micros contam, potencial- 
mente, com "'sentidos" adicionais, co- 
mo a capacidade de detectar campos 
magnéticos, radiação atómica, eletro- 
magnética, de ultra-som ou raios X , in- 
fravermelha ou ultravioleta etc. 

O computador precisa de um sensor 
especifico para cada tipo de fenómeno 
a ser detectado. Existem, assim, detec- 
tores de som e ultra-som, temperatura, 
gases, fluxo, umidade, luz, proximida- 
de, movimento, aceleração etc. 

Seja qual for o tipo de energia à qual 
o sensor é sensível, geralmente a forma 
.de saída è de natureza elétrica — como 
uma corrente ou uma voltagem analó- 
gica ou digital. Dá-se o nome de trans- 
dutor ao sensor que se encarrega de rea- 
lizar a conversão de um tipo de energia 
para outro. 

Como sabemos, o computador não 
pode trabalhar diretamente com sinais 
analógicos: é preciso, antes, convertê-los 
para sinais digitais, ou números biná- 
rios. Isso é feito por uma interface es- 
pecial de conversão, chamada conversor 
anatógico-digital (AD). 

Alguns sensores dispõem de algum ti- 
po de circuito de pré-processamento, 
embutido — como amplificadores de si- 
nal, condicionadores, filtros ou conver- 
sores AD simples — o que facilita o tra- 
balho de conexão ao computador. Os 
detectores de temperatura (termistores), 
por exemplo, não respondem de forma 
inteiramente linear à variação da tem- 
peratura. Alguns termistores "inteligen- 
tes", porém, já apresentam o sinal de 
saída corrigido conforme o nível de tem- 
peratura, dispensando eorreções por 
parte do software de controle. 



ATUADORES 



Até agora, vimos como o computa- 
dor "sente" o que está aconlecendo no 
ambiente. Entretanto, para agir sobre o 
mesmo, ele precisa de atuadores, ele- 
mentos que geram alguma forma de 
energia: luminosa, elétrica, mecânica, 
magnética etc. Na maioria das aplica- 
ções, os atuadores são eletromecânicos, 
dividindo-se, basicamente, em cinco 
tipos: 

- pneumáticos 

- hidráulicos 

- motores elétricos DC ou AC 

- solenóides 

- motores de passo 



Os atuadores pneumáticos, bem co- 
mo os hidráulicos, utilizam a pressão ge- 
rada por fluidos (gases ou líquidos) e 
compõem-se de um cilindro contendo 
um pistão, conectado a um braço de im- 
pulsão ou de tração. Uma válvula ope- 
rada eletricamnte dirige o fluxo de líqui- 
do ou gás para o pistão. Os atuadores 
hidráulicos geralmente são mais seguros, 
potentes e precisos do que os pneu- 
máticos. 

Motores comuns de corrente direta 
(DC) ou alternada (AC) podem ser con- 
trolados por um micro, embora a pre- 
cisão seja pequena. Quando é necessá- 
rio um posicionamento exalo, deve-se 
utilizar um sensor do ângulo de rotação 
do eixo, que informa ao computador a 
posição e velocidade. Esses codificado- 
res, como são chamados, transformam 
o ângulo de rotação em um número de 
bits. Podem ser ópticos ou elétricos — 
nesse último caso, temos um conjunto 
servomotor. 

Devido às complicações mencionadas 
e ao alto preço de um servomotor, os sis- 
temas baseados em micros usam com 
maior frequência os solenóides ou os 
motores de passo. Mais simples — já 
que precisam do computador só para 
ligá-los e desligá-los, não exigindo con- 
trole proporcional — esses atuadores 
adaptam-se melhor ao mundo digital. 

Um solenóide é um eletroímã que 
aciona algum tipo de eixo (ou armadu- 
ra). Quando a corrente elétrica passa 
através de uma bobina, o campo mag- 
nético resultante move a armadura. O 
relê é um solenóide, só que destinado a 
ligar e desligar correntes elétricas. 

O motor de passo (stepper) utiliza 
uma armadura circular de solenóides pa- 
ra girar um eixo, do mesmo modo que 
um motor elétrico comum. A diferença 
é que o avanço se faz em pequenos pas- 
sos, e não em movimentos contínuos. A 
utilização do stepper em conjunto com 
um micro é simples, mas esse atuador 
apresenta uma desvantagem: sua potên- 
cia é bem inferior à de motores elétri- 
cos de tamanho semelhante. 

Para entender o funcionamento de 
um motor de passo, tomemos como 
exemplo um modelo simplificado com 
apenas quatro pólos, ou seja, quatro ele- 
troímãs dispostos em ângulos retos ao 
redor do rotor. O rotor é uma armadu- 
ra de ferro, com duas peças polares, e 
gira livremente sobre um eixo. Se um 
dos magnetos é acionado, o rotor é 
atraído para ele, e gira um certo núme- 
ro de graus. Caso um microcomputador 
acione em sequência cada um dos mag- 
netos, o rotor girará um número preci- 
so de vezes — efeito impossível de se ob- 
ter com um motor linear. Quanto mais 
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rápida a atuação do micro, mais depres- 
sa irá girar o rotor. Os motores de pas- 
so têm um grande número de bobinas 
{cerca de duzentas, cm média), e, con- 
sequentemente conseguem uma rotação 
muito mais "macia". O rotor pode ser 
posicionado sem necessidade de servo- 
mecanismos que indiquem sua posição. 



CONEXÃO AO COMPUTADOR 



A maioria dos sensores e atuadores 
exige ou fornece uma voltagem entre 
cinco e dez volts, muitas vezes com uma 
corrente de valor elevado. Como o mi- 
cro não foi projetado para trabalhar di- 
retamente com essas voltagens e corren- 
tes, a conexão às portas de entrada e saí- 
da exige uma interface. 

As interfaces disponíveis oferecem 
saídas comutadas de corrente ou volta- 
gem de valor elevado, entradas por in- 
terruptores, portas binárias de oito a de- 
zesseis bits, conversores AD ou DA de 
média ou alta velocidade etc. 

Muitos micros possuem conversores 
AD embutidos {a poria de gravador cas- 
sete, por exemplo, ou a entrada de joys- 
ticks), mas estes não têm frequências de 
amostragem (número de conversões fei- 
tas por segundo) tão altas quanto as re- 
queridas por muitas aplicações. Por is- 
so, conversores extras são necessários. 
Um conversor DA, por sua vez, forne- 
ce voltagens ou correntes contínuas, a 
partir de sinais binários, para acionar 
motores DC, lâmpadas, alto-falantes e 
assim por diante. 

Alguns sistemas de controle domés- 
tico, como os destinados a ligar e desli- 
gar eletrodomésticos a distância, utili- 
zam a própria rede de força da casa pa- 
ra enviar os sinais binários. 



Existem várias alterativas para a li- 
gação do computador a um atuador me- 
cânico. Muitas delas foram usadas in- 
clusive no desenvolvimento de brinque- 
dos ou kits acionados por computado- 
res. No exterior, enconiram-se diversos 
sistemas — como o Meccano, o Lego e 
o Fischer — que são verdadeiros proje- 
tos de engenharia em miniatura, com to- 
dos os componentes imagináveis. 

Quanto maior a flexibilidade do kit, 
melhor, pois conexões mecânicas quase 
sempre precisam ser projeladas de acor- 
do com a tarefa. Um sistema de engre- 
nagens, polias e alavancas, conectadas 
a relés, solenóides e motores, requer, é 
evidente, um minucioso trabalho de pla- 
nejamento e construção. 




Desenvolver software para aplicações 
de controle não é mais difícil do que pa- 
ra outros tipos de aplicação, como jo- 
gos, por exemplo. As interfaces dispo- 
níveis simplificam bastante esse traba- 
lho. Muitas vezes, elas são fornecidas 
com uma biblioteca de rotinas em lin- 
guagem de máquina ou BASIC, que po- 
dem ser utilizadas como módulos de um 
sistema mais complexo de controle, es- 
crito pelo usuário. 

Um dos passos mais importantes no 
desenvolvimento do software consiste 
na análise e divisão do problema de con- 
trole em partes menores, de tal forma 
que se possa escrever e testar individual- 
mente cada seção, antes de integrá-la ao 
sistema maior. 

A necessidade de manter o micro- 
computador permanentemente conecta- 
do ao sistema de controle costuma de- 
sestimular o usuário a se aventurar nes- 
sa área. Esse inconveniente, porém, po- 
de ser superado com a aquisição de um 
sistema de desenvolvimento, que é um 



micro mais simples, geralmente em uma 
única placa, específica para as tarefas de 
controle. Essa solução, além de ser ba- 
rata, é a mais adequada: dificilmente 
uma aplicação de controle requer todos 
os recursos disponíveis em um compu- 
tador de uso geral. 

Os sistemas de desenvolvimento são 
fornecidos com um conjunto de hard- 
ware e software que permite a adapta- 
ção do computador ã tarefa específica 
que será realizada. Se os dados a serem 
exibidos são exclusivamente numéricos, 
basta um visor LED ou de cristal líqui- 
do, do tipo existente para calculadoras. 
Caso a aplicação exija apenas algumas 
teclas ou botões, não é preciso acrescen- 
tar um teclado completo. Entretanto, 
sistemas desse tipo têm necessidades que 
um micro comum nem sempre é capaz 
de atender — como um número grande 
de canais analógicos, ou saída de con- 
trole de correntes alias. 

O usuário pode modificar á vontade 
o software que acompanha os sistemas 
de desenvolvimento, incorporando-o, 
posteriormente, a uma memória 
EPROM, para uso permanente. 
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.lá vimos como fazer desenhos com 
os comandos gráficos do LOGO usando 
a tartaruga — unia espécie de cursor 
triangular que indica a posição aluai na 
tela. Podemos também "ensinar" a tar- 
taruga a Iracar dcierminadas formas 
através de um comando especial. Se qui- 
sermos, por exemplo, 1'a/c-la desenhar 
um hexágono, digitamos: 

HO 

TO HEXÁGONO 

REPEAT 6 [FORWARD 50 RIGHT 60] 
END 

fffi 

AP HEXÁGONO 

REPITA 6 [PARAFRENTE 50 

PARADIREITA 60] 

FIM 

Após digitarmos END, o inierpreta- 
dor indicará que o procedimento HE- 
XÁGONO foi definido, passando a fa- 
zer parle do vocabulário LOGO. 

Quando você digitar a palavra HK- 
XAGONO. a tartaruga desenhará um 
polígono regular de seis lados (cada la- 
do com cinquenta passos de comprimen- 
to), a partir da posição em que estiver. 
Depois, cia voltará ao ponto inicial, pois 
percorreu seis vezes 60 graus, ou seja, 
360 graus. Esse "comportamento" sem- 
pre se repete com polígonos regulares, 
tendo recebido um nome jocoso dos en- 
tusiastas do LOGO: Teorema do Tra- 
jeto Total da Tartaruga (TTTT). 

Um procedimento pode ser utilizado 
dentro de outros, como mostra o pro- 
grama abaixo, chamado FLOR, que de- 
senha doze hexágonos ao redor de um 
centro, formando, assim, as pétalas: 

ú 

TO FLOR 

REPEAT 12 [HEXÁGONO FD 10 RT 
1*1 



REPITA 12 [ HEXÁGONO PF 10 PD 

301 

FIM 

Observe que deslocamos a tartaruga 
dez passos adiante, antes de repelirmos 
o travado do hexágono — isto é, desvia- 
mos sua direção para 30 graus à direita 
da direção anterior. 



Para fazer desenhos no vídeo, nor- 
malmente o BASIC usa como referen- 
cial as coordenadas de um sistema car- 
tesiano (de eixos ortogonais, X e Y). 
com o qual estamos mais familiarizados. 
A geometria da tartaruga é diferente: 
nela. o ponto de referencia é a própria 
tartaruga, ou seja, todos os deslocamen- 
tos lineares e angulares são realizados a 
partir da última posição em que a tar- 
taruga se encontrava. 

É por isso que usamos 60 graus para 
desenhar um hexágono, e não 1 20 graus 
(que corresponde ao ângulo entre os 
seus lados ) — ou seja, temos que virar 
a tartaruga 60 graus para produzir um 
ângulo de 120 graus entre a última reta 
traçada e a próxima. 

Parece confuso? Não se assuste: é 
bem mais fácil aprender geometria de 
uma forma intuitiva como esta, que nos 
permite "experimentar" o referencial da 
tartaruga, bastando imaginar que esta- 
mos em uma sala vazia, traçando algu- 
ma figura com nossos passos. 



Embora o procedimento HEXÁGO- 
NO tenha sido incorporado ao vocabu- 
lário do LOGO. há uma importante di- 
ferença entre ele e vários dos comandos 
primitivos da linguagem, como aqueles 
que fazem a tartaruga avançar, recuar 
ou virar: o HEXÁGONO traçará uma 
figura sempre do mesmo tamanho, ao 
passo que " s í-nmíinrfns mencionados 



procedimento. Esse nome deve ser pre- 
cedido de dois pontos, que indicam ao 
interpretador que se trata de uma variá- 
vel. Para usar a variável dentro do pro- 
cedimento, simplesmente fazemos refe- 
rência ao seu nome sempre que ela for 
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am parâmetro variável. 
Entretanto, é perfeitamente possível 
definir procedimentos que tenham pa- 
râmetros variáveis. Para isso. precisa- 



da ' ' " mos atribuir um nome ao parâmetro ut 

-srÀ AP flor entrada e inclui-lo na linha de título do 




gonos, hexágoaos etc, desde que espe- 
dfiCMIomOn o número de lados e o com- 
primento de cada lado: 



TO POLÍGONO :NUMEHOLADOS : LADO 
REPEAT : NUMERO LADOS [ FOBMARD 
: LADO BIGHT 360/ :NUMER0LADOS ] 
END 



Mi 



Como mostra esse programa, o LO- 
GO é capa;? de resolver expressões ma- 
temáticas, à semelhança tio BASIC. Sc 
digílarmos POLÍGONO 8 20, por exem- 
plo, a substituição será feita automati- 
camente, e teremos a execução do se- 
guinte comando (que traçará um octó- 
gono, com vinte unidades de lado): 



REPEAT 8 [FORWARD 20 RICHT 45) 



REPITA B [PF 20 PD 45] 

O mesmo procedimento pode ser uti- 
lizado, aliás, no traçado de uma circun- 
ferência. Para isso, precisamos aumen- 
tar bastante o número dc lados — por 

Í exemplo, POLÍGONO 2 72. Como os 
lados são demasiado pequenos, teremos 
a impressão de que a figura resultante 
ê formada por uma linha continua. 
A tartaruga leva longo tempo para 



O comando do MSX lambem pode 
ser abreviado por DT. Para fazer rea- 
parecer a tartaruga, digitamos: 



3] 

SHOUTURTLE 



r/ti 



APAREÇA TA T 

Poderíamos, portanto, definir um 
procedimento específico para tratar cír- 
culos, incorporando todo o conhecimen- 
to que adquirimos até agora: 

Sj 

TO CIRCULO : LADO 
HIDETURTLE 

REPEAT 72 [FD : LADO RIGHT 5] 

SHOWTURTLE 

END 

rttt 

AP CIRCULO 
DESAPAREÇA TAI 
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A medida que vamos incorporando 
mais c mais procedimentos ao vocabu- 
lário corrente da linguagem I.OGO, 
duas providências se (ornam necessárias: 
modificar uni procedimento já existen- 
te (para não ser preciso digitai lodos os 
seus comandos de novo, a cada peque- 
na alteração que queiramos la/cr), e ar- 
ma/e na r todos os procedimentos cm dis- 



1/XiO utilizada), pudemos inserir, ap 
gar e escrever caracteres c linhas, modi 
cando o procedimento. Ao terminar 
edição, pressionamos •'CtHL> <<*-> 
*- ( TKI. -- I1KKAK ou qualquer o 
tra combinação de tecias especilica 
programa editor, t om isso, voltamos 
modo direlo do I.OGO. 

í'ara arma/etiar o conjuulo de pi 
cedimentos já definidos na niemóri 
usamos o seguinte comando: 




co ou fita cassete, para uma futura exe- 
cução ou modificação. 

O LOGO dispõe de um editor sim- 
ples, que c chamado por intermédio do 
comando EDIT (EDITE, para as ver- 
sões em língua portuguesa). Essa pala- 
vra-chave de\e ser seguida do nome do 
procedimento a ser editado. 

O comando fr.MT apaga a tela e lista 
o procedimento pedido no vídeo, a partir 
do topo. Digitando uma serie de teclas es- 
peciais (que variam conforme a versão do 
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TRADUÇÃO PARA O MLOGO 

Os comandos do MLOGO. para c 
Apple, correspondentes aos comandos | 
| do BRASLOGO usados neste artigo. 

BRASLOGO MLOGO 

SEMTARTARUGA SEMT 
EDITE EDITE 



AP CIRAHEX : LADO -ANGULO 
SE :LADO>60 ENTÃO [PARE] 
HEXÁGONO : LADO 
PARADIREITA r ANGULO 
GIHAHEX :LADO+3 : ANGULO 
FIM 

Na versão em BRASLOGO, o comi 
Jó P\RK está especificado como sc li 
se uma lisiu. Mais poderoso que o L 
GO padrão, o BRASLOGO permiie i 
peei ficar, como mostramos a seguir, ur 
scqiiència de comandos que será cscc 
lada se a condição SE for verdadeira 



o procedimento GOtAHEX 1 10 r az 

o computador traçai um hexágono com 
uma unidade de lado. girar a tartaruga 
10 graus, traçar um hexágono com qua- 
tro unidades de lado, girar novamente 
10 graus e assim por diante. Quando o 
lado do hexágono tiver mais de cem uni- 
dades, o procedimento será interrompi- 
do automaticamente. 

Com as informações contidas neste 
artigo. VOCÍ já pode explorar á sontade 
as fabulosas propriedades da recursão. 
obtendo uma grande variedade de efei- 
tos a partir de um mesmo programa. O 
que aconteceria, por exemplo, se tam- 
bém variássemos o :ANGLLO a cada 
recursão, no programa GIRAHEX? 

No terceiro e último artigo desta sé- 
rie de artigos, vamos investigar os recur- 
sos do LOGO no processamento de lis- 
tas, palavras e equações matemáticas. I 



siva infinita - ou seja, não há limite pu- 
ra o número de ^cves que um procedi- 
mento pode chamar a si mesmo. Outras 
linguagens, como o BASIC c o FOR- 
TRAN, não possuem essa capacidade. 

A recursão é uma das propriedades 
mais interessantes do LOGO, conferin- 
do-lhe enorme poder computacional. 

Veja. por exemplo, de que maneira 
poderíamos reprogramar o procedimen- 
to M OK. utilizando a recursão: 

arj 

TO FLOR : LADO 

HEXÁGONO FD : LADO RT 30 

FLOR ! LADO 

END 



AP ESPIRAL : LADO : ANGULO 
PARAFRENTE : LADO PARADIREITA 
: ANGULO 

ESPIRAL :LAD0+2 : ANGULO 
FIM 

Observe que o LOGO acrescenta 
duas unidades ao LADO, em cada re- 
petição do procedimento. Com isso, ob- 
temos uma bonita espiral. 

Tente os seguintes valores: 

ESPIRAL 1 45 

ESPIRAL 1 65 

ESPIRAL 1 72 

ESPIRAL 1 91 

Se desejar que o desenho seja execu- 
tado com maioi rapidez, não se esque- 
ça de tornar a tartaruga invisível. 
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As limitações da memória do micro 
costumam frustrar os programadores 
que apreciam jogos de aventura. 
Veja como fazer para colocar o máximo 
de texto em um mínimo de memória. 



Todo programador enfrenta o mes- 
mo problema ao desenvolver jogos de 
aventura: o texto não cabe no espaço 
disponível na memória do micro. Quem 
não pode comprar uma máquina maior 
ou expandir a memória da sua, costu- 
ma contornar essa dificuldade reduzin- 
do o tamanho do jogo ou simplifican- 
do demais o texto. Muitas vezes, o pro- 
gramador se vê obrigado, por exemplo, 
a eliminar as instruções do programa — 
o que é mau para quem vai utilizá-lo. 

Existe uma maneira, porém, de tor- 
nar o programa menos extenso. Os mé- 
todos normalmente empregados para 
encurtar um programa, discutidos no ar- 
tigo da página 141, não são eficientes no 
que diz respeito a jogos de aventura, 
pois a maior parte destes consiste em 
textos (listas de objetos, locações, situa- 
ções, mensagens, instruções etc). A so- 
lução está, portanto, em reduzir o espa- 
ço ocupado pelo texto. 

Examinaremos aqui várias técnicas, 
de compressão de texto e, em artigo pos- 
terior, veremos como usar uma delas em 
um joga de aventuras. 



COMO UM TEXTO E ARMAZENADO 



O computador normalmente armaze- 
na o texto — ou seja, tudo o que não 
é instrução de programa, ou constante 
numérica — da mesma maneira em que 
foi entrado, usando o código ASCII (ve- 
ja o artigo da página 361). 

Recordando, o código ASCII (Ame- 
rican Standard Code for Information 
Interchange. Código Padrão America- 
no para Intercâmbio de Informação) é 
um padrão utilizado para representar 
caracteres na memória do computador. 
Ele comporta 256 códigos ou caracteres 
diferentes. Os códigos 0 a 31 são reser- 
vados para funções de controle e os có- 
digos 32 a 90, para caracteres alfabéti- 
cos, numéricos e de pontuação. Os có- 
digos 91 e seguintes estão livres para ou- 
tros usos, como caracteres gráficos, si- 
nais de acentuação. 

Duas características do ASCII são es- 
pecialmente relevantes para o problema 
de compressão de textos: 
- um código ASCII ocupa um byte de 
I memória (ou oito bits), pois 255 é o 



maior número que pode ser armazena- 
do em oito bits (1 1 1 1 1 1 1 1 , em binário); 
- o código ASCII possui mais códigos 
numéricos do que caracteres para 
representar (e, por isso, é cha- 
mado degenerado). Poderia, 
portanto, ser diminuído, 
sem muito sacrifício. 

Na realidade, o ASC 
1 1 é uma evolução de sis- 
temas de códigos ante- 
riormente existentes, 
que ocupavam menor es- 
paço de memória, pois 
tinham sete ou seis bits 
(como o código Baudot, 
usado em máquinas de te- 
lex). A ampliação do espaço 
ocupado para oito bits signifi 
cou uma adaptação ao mundo dos 
computadores digitais, onde predomi- 
nam os processadores com número de 
bits organizados em potências de 2 — 
quatro, oito dezesseis. 32 bits etc. Com 
isso, expandiu-se no ASCII o alcance 
original dos códigos de texto. 

Se os códigos dos caracteres fossem 
comprimidos em menos de oito bits, o 
espaço total para a armazenagem de tex- 
to na memória seria reduzido proporcio- 
nalmente. Podemos fazer isso adotan- 
do em nosso microcomputador um có- 
digo diferente do ASCII e escrevendo 
um programa que faça a tradução do 
ASCII para o nosso código particular e 
vice-versa. Essa tradução é necessária 
porque os periféricos de entrada e saí- 
da, assim como as funções de progra- 
mação que trabalham com textos, obe- 
decem ao padrão ASCII. Existem diver- 
sas alternativas para a elaboração de um 
programa desse tipo, cada uma com 
suas vantagens e desvantagens. 



A maneira mais direta e intuitiva de 
se comprimir um texto consiste em uti- 
lizar apenas uma parte do código AS- 
CII. De modo geral, qualquer texto po- 
de ser escrito com o emprego de apenas 
128 códigos, que cabem em sete bits. A 
economia de espaço obtida, nesse caso, 
é da ordem de I em 8, ou, em termos 
percentuais, de 12,5%. 




É possível também escrever um tex- 
to empregando caracteres maiúsculos, 
numerais e sinais de pontuação, que cor- 
respondem aos códigos ASCII 32 a 90, 
ou seja. a 59 códigos. Se usarmos seis 
bits (o que permite armazenar um máxi- 
mo de 64 códigos), conseguiremos uma 
redução de 2 em 8, ou de 25%, o que 
é bem razoável para muitas aplicações. 

Converter o código ASCII ao nosso 
novo código de seis bits é fácil: basta di- 
minuir 32 do código ASCII. O resulta- 
do será um código com valores de 0 a 
58, com os caracteres representados exa- 
tamente na mesma ordem. Para a con- 
versão no sentido inverso, basta somar 
32 — e teremos o código ASCII, de 
novo. 
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A redução pode ser ainda maior. Un, 
código de cinco biis permite que se faça 
a representação de 32 caracteres: todas 
as letras maiúsculas, que são 26, e mais 
seis caracteres destinados à pontuação 
— por exemplo, o espaço em branco, o 
ponto, a vírgula, os dois pontos, o hí- 
fen e o sinal de interrogação. Se o texto 
contiver números, eles terão que ser es- 
critos por extenso, o que, na verdade, 
não representa um problema muito 
grande. 

Com um código de cinco bits, con- 
seguimos uma redução de 5 em 8, ou se- 
ja, de 37,5%, o que significaria uma 
economia de quase quatro Kbytes em 
cada dez Kbytes de texto. Uma redução, 
convenhamos, considerável. 



UM PROGRAMA DE CONVERSÃO 



A conversão do ASCII e para o AS- 
CII, nesse caso, não é tão fácil assim, 
exigindo um programa específico, como 
o que se segue: 



10 DIM FS (50) 

20 KS=" ABCDEFGHIJKLMNOPQRSTUVW 
XYZ ,.:-?" 
100 CLS i 

180 PRINT "CODIFICANDO..." 
190 I-0:NC-0 

200 READ L$:IF LS-"*" THEN 230 
210 GOSUB 710:I=I+1:F$(I)«X$ 
215 NC-NC+LEN(XS) 
220 GOTO 200 



STOP 

700 REM CODIFICAÇÃO 

710 XS-"":FOB J-l TO LEN(LS) 
720 CS=MID$(L$.J.l) 
730 P=INSTR (KS. CS) : IF P>0 THEN 
XS-XS+CHHS (P) 
740 NEXT J : RETURN 

Coloque o comando CLEAR 1000 na 
nha 10, para micros das linhas TRS-80 
TRS-Color. 



10 DIM FS(50) 

20 K$= "ABCDEFGHIJKLMNOPQRSTUVW 

XYZ , . :-?' 
100 HOME 

160 PRINT "CODIFICANDO..." 
190 LET I=0:NC=0 
200 READ LS:IF LS-"*" THEN 230 
210 GOSUB 710:I-I+1:F$(I)-X$ 
215 LET NC=NC+LEN(XS) 
220 GOTO 200 
230 STOP 

700 REM CODIFICAÇÃO 

710 LET XS="":FOR J-l TO 

LEN(LS) 
720 LET CS-MID3(L3.J.l) 
725 FOR P=l TO 32 
730 IF MID3(KS.P.1)=CS THEN X3 

- X3 + CHR3 tP) 
735 NEXT P 
740 NEXT J : RETURN 



10 DIM f S (50 ,64) ,kS (32) 

20 LET kS = "ABCDEFGHI JKLMNOPQRST 

UVWXYZ ..:-?" 

180 PRINT "CODIFICANDO. . . " 
190 RESTORE ! LET 1^0 : LET nc-0 
200 READ L$:IF LS - "*" THEN GOTO 
230 

210 GOSUB 710:LET i-i+l:LET 
fS(I)-xS 

215 LET nc=nc+LEN xS 
220 GOTO 200 
230 STOP 

700 REM CODIFICAÇÃO 

710 LET xS-"":F0R )°1 TO LEN LS 



IIIIIIIIIIHHK 47 noGMmãODiiooos » IMMIIHIIIIIII 





5080 DATA "COM SANGUE KA PAREDE 
DO SANTUÁRIO PROCLAMAVA AOS QU 
ATRO" 

5090 DATA "VENTOS 0 NOME DO FAC 
INORA: 0 CRUEL REI DE AARDVARK. 

SOBERANO" 
5100 DATA "NORMANDO QUE HABITAV 
A UM CASTELO SOMBRIO E CHEIO DE 

ARMADILHAS" 
5110 DATA "E DE ONDE SO ' SE OUV 
EM OS GRITOS DOS PRISIONEIROS T 
ORTURADOS . " 

5120 DATA "VOCE E ' O GALANTE CO 
NDE DE NORDHAM, E SUA MISSÃO E' 

RECUPERAR" 
5130 DATA "O AMULETO SAGRADO . U 
M PLANO DESESPERADO FORMA-SE EM 
SUA MENTE:" 
40 DATA "A ÚNICA MANEIRA DE E 
NTRAR NO CASTELO E' DEIXAR-SE A 




720 LET cS-LSÍJ TO j) 
725 FOR p=l TO 32 
730 IF kS(P TO p)-CS THEN XS-XS 
+ CHRS P 
735 NEXT P 
740 NEXT j : RETURN 

Para testar esie e outros programas 
de codificação de textos, podemos co- 
locar no fim do programa várias linhas 
DATA, contendo, por exemplo, as ins- 
truções de um jogo de aventura (a últi- 
ma linha deve ter um asterisco): 

SííHíjEEJ^í 

5000 DATA "POR MAIS DE DOIS MIL 
ANOS, O AMULETO SAGRADO DE NIT 
PU FOI" 

5010 DATA " ZELOSAMENTE GUARDADO 
PELOS ALDEÃES DO CONDADO DE NO 
RDHAM . " 

5020 DATA "A SUA POSSESSÃO ERA 
I A CHAVE PARA A SEGURANÇA E A FE 



LI CIDADE" 

5030 DATA "DO REINO DE DUCHESS, 
NA ESCÓCIA. 0 CONDE, QUE ERA 0 
PROPRIETÁRIO" 

5040 DATA "DE TODO AS TERRAS AO 
REDOR DA ALDEIA, JUROU DEFENDE 

R O AMULETO" 

5050 DATA "COM SUA PRÓPRIA VIDA 



5070 DATA "AMULETO SAGRADO TINH 
A DESAPARECIDO ! UMA MENSAGEM E 
S CRI TA" 



PRISIONAR" 

5150 DATA "PELOS ASSECLAS FEROZ 
ES DE AARDVARK- PARA COMPLETAR 
A AVENTURA" 

5160 DATA "VOCE PRECISA SE DESV 
ENCI LUAR DE SEUS CAPTORES. PERC 
ORRER OS" 

5170 DATA "LABIRINTOS MORTAIS D 
O CASTELO. ACHAR 0 AMULETO, E D 
EPOIS* 

5100 DATA "ESCAPAR . " 

5190 DATA "SEUS RECURSOS SAO PO 

UCOS: UMA ESPADA, UMA TOCHA, UM 

PUNHADO" 
5200 DATA "DE ALIMENTOS SECOS, 
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UM CANTIL D-AOUA, E UM PUNHAL. 
A SUA FRENTE," 

5210 DATA "UMA SEQUENCIA DE BAN 
DIDOS E FERAS DE ARREPIAR OS CA 
BELOS. . . * 

5220 DATA 'BOA SORTE !" 
5230 DATA 

Se preferir, digite apenas as primei- 
ras linhas. Só precisaremos deste texto 
completo quando formos testar progra- 
mas mais complexos, adiante. 



O programa de codificação, que 
transforma o código ASCII em um có- 
digo reduzido de cinco bits, está conti- 
do no laço das linhas 200 a 220. A linha 
200 lé uma linha de texto, LS, em DA- 
TA, terminando ao encontrar um as- 
terisco. A linha 710, por sua vez, cha- 
ma a sub-rotina de codificação, que ve- 
rifica se cada caractere CS, extraído de 
LS, está na lista de codificação armaze- 
nada em K$ pela linha 20 do programa 
principal. Se estiver, sua posição sequen- 
cial P, em KS, c usada como código, e 
um CHRS(P) concatena este caractere 
em uma cadeia de saída, X$. Se não es- 
tiver, então nada é concatenado. 

O conteúdo de X$ é armazenado na 
lista FS, onde cada elemento correspon- 
de a uma linha do texto em DATA. A 
armazenagem é necessária para uso pos- 
terior. A variável NC da linha 225 ser- 
ve simplesmente para contar o número 
de caracteres convertidos. 

Como os textos armazenados em FS 
já não se encontram mais em ASCII, 
não podemos listá-los com um PRINT 
normal, pois muitos deles correspondem 
a caracteres ASCII de controle e provo- 
cariam a maior desordem na tela. 

Se quiser ver como ficam os códigos 
numéricos convertidos, acrescente estas 
linhas ao programa e rode-o: 

212 GOSUB 620 

800 REM LISTAGEM 

820 FOR N-l TO LEN(X3) 

630 PRINT ASC(MID3<XS,H,1) ) i 

640 NEXT N: PRINT 

850 RETURN 



212 GOSUB 620 

600 REM LISTAGEM 

820 FOR n-l TO LEN xS 
630 PRINT ASC XS(n TO n] : 
640 NEXT n : PRINT 
650 RETURN 

Para decodificar os textos — ou pa- 
ra reconvertê-los ao código ASCII — , 



devemos adicionar as linhas seguintes e 
rodar novamente o programa: 

■ ■■■<( l V/i 

230 NL=I:T«0 

235 PRINT "TOTAL : ";NC; "CARACT 

ERES" : PRINT"DECODIFICANDO. . . " 

240 FOR 1-1 TO NL 

250 LS = FS (I) tGOSUB 670 

260 T-T+1:IF T<10 THEN 290 

270 PRINT ; INPUT" PRESSIONE <ENTE 

R>"iX3 

2B0 T=0 

290 NEXT I 

300 STOP 

860 REM — DECODIFICACAO 
870 FOR J-l TO LEN (L3) 
660 C-ASC(MID3(L3,J,1)) 
920 PRINT MIDSfKS.C.l] s 
940 NEXT J 
950 PRINT : RETURN 



230 LET nl=I:LET t=0 

235 PRINT "TOTAL : ":nc; "CARACT 

ERES" : PRINT" DECODIFICANDO. . ." 

240 FOR 1=1 TO nl 

250 LET LS-fS(i) : GOSUB 870 

260 LET t-t+l:IF t<10 THEN GOTO 

290 

270 PRINT: INPUT "PRESSIONE <ENT 
ER>" :xS 
260 LET t-0 
290 NEXT 1 
300 STOP 

860 REM DECODIFICACAO 

870 FOR j=l TO LEN LS 
880 LET c-ASC LS(j TO j) 
920 PRINT KS tc TO c) ; 
940 NEXT } 
950 PRINT : RETURN 

A rotina de decodifieação (da linha 
870 à 950) extrai cada caractere do tex- 
to codificado e troca seu código pelo ca- 
ractere encontrado na mesma posição, 
na chave de codificação KS. 



MANIPULAÇÃO DE BITS 



Ainda não ganhamos espaço na me- 
mória: apesar de termos reduzido o con- 
junto de caracteres usados, eles conti- 
nuam sendo armazenados em um byte 
(desperdiçando três bits em cada byte). 

Para comprimir o texto de fato, pre- 
cisamos utilizar os bits que estão sobran- 
do, no seguinte esquema: 

1? byte - 5 bits do l? caractere 

3 bits do 2? caractere 
2" byte - 2 bits do 2? caractere 

5 bits do 3? caractere 

1 bit do 4? caractere 

3" byte - 4 bits do 4!" caractere 

4 bits do 5? caractere 



e assim por diante. 



Esta tarefa de manipulação de bits 
pode ser cumprida sem grande dificul- 
dade em linguagem BASIC — por meio 
dos operadores lógicos AND, OR e 
NOT — , porém, é lenta demais. Na ver- 
dade, o ideal seria realizá-la através de 
uma sub-rolina USR em linguagem de 
máquina, mas não vamos fazê-lo aqui, 
para não tornar muito complicada a 
programação do jogo de aventura. 

Optamos por um outro método de 
compressão, também baseado em ma- 
nipulação de biis, mas que pode ser fa- 
cilmente executado em BASIC. Esse mé- 
todo é bem mais eficaz que a restrição 
do conjunto de caracteres, pois garante 
uma redução do texto de cerca de 45%. 

A programação, aqui, é mais simples, 
pois os bits não são manipulados indi- 
vidualmente, mas em grupos de quatro 
(meio byte ou nibble, em inglês). Com 
uma única expressão aritmético-lógica 
simples podemos ter acesso ou escrever 
nus nibbles individuais. 



UM POUCO DE ESTATÍSTICA 



Como sabemos, cada idioma utiliza 
determinadas letras com maior frequên- 
cia do que outras. A técnica que esco- 
lhemos fundamenta-se exatamenie na 
frequência do emprego das letras. Na 
língua portuguesa, por exemplo, cator- 
ze letras — A, S, E, D, R, O, [, U,N, 
C, M, T. P e L — representam cerca de 
90% do total de um texto, juntamente 
com o espaço em branco. 

Usaremos um código baseado apenas 
em quatro bils (15 é o maior número de- 
cimal que se pode representar com qua- 
tro bits, ou um nibble). Com isso, ob- 
teremos uma compressão de 50% do 
texto, o que é, teoricamente, o máximo 
que se pode conseguir. E será fácil fa- 
zer o programa, porque caberão sempre 
dois caracteres por byte. 

Mas o que fazer com as outras letras? 
Mesmo sendo usadas com uma freqúên 1 
cia muito baixa, elas são essenciais pa- 
ra compressão do texto. Precisam, por 
isso, estar presentes. 

A solução também é espantosamen- 
te simples: podemos usar essas letras 
com seu código ASCII normal, de oito 
bits. No processo de codificação, toda 
vez que o programa encontrar uma le- 
tra não incluída no grupo das mais fre- 
quentes, ele atribuirá um código 0 a ela. 
Dessa maneira, indica-sc ao programa 
decodificador que o que vem a seguir é 
um código ASCII de oito bits. 

Uma letra incomum usa, assim, três 
nibbles (oito do código, mais quatro da 
baliza 0), ou um byte e meio: este é o 
preço que se paga por codificar a maio- 
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ria das leiras com quatro bits, A eficiên- 
cia da compressão será menor, mas não 
muito. Façamos as contas, tomando um 
conjunto de cem caracteres: 

90 têm códigos de 4 bits = 45 bytes 
10 têm códigos de 12 bits a 15 bytes 

TOTAL ■ 60 bytes 

Conseguimos, teoricamente, uma 
compressão de 40%. Na realidade, ela 
será um pouco menor, dependendo do 
texto. Ainda assim, o resultado é bem 
melhor do que o obtido por uma com- 
pressão com códigos de seis bits. 

Para verificar com que frequência 
são empregadas as letras presentes em 
nosso texto-teste, digite o programa que 
se segue, acrescente as linhas DATA ao 
final e rode- o: 

■ ■■■ • L V.'i 

15 DIM F(60) ,C(60) 
30 NT-0 

40 FOR 1=1 TO 60 
50 F(I)-0:C(I)-I 
60 NEXT I 

65 PRINT "ANALISANDO..." 

70 READ LS:IF LS="*" THEN GOTO 

85 

80 GOSUB 410:GOTO 70 
85 PRINT "ORDENANDO . . . " 
90 GOSUB 470:GOSUB 560 
1D0 STOP 

400 REM CONTAGEM 

410 FOR 1=1 TO LEN{LS) 
420 NT=NT+1 

430 J=ASC(MID8tLS,I.l))-31 
440 F[J)=F(J)+1:NEXT I 
450 RETURN 

460 REM ORDENAÇÃO 

470 N-60 
480 FL-0 

490 N-N-l:FOR 1-1 TO N 

500 IF F(C(I))->F(C<I + D) THEN 

520 

510 X-CII) :C(I)-C(I+1) :C(I+1)-X 
:FL-1 

520 NEXT I 

530 IF FL-0 OR N-2 THEN RETURN 
540 GOTO 480 

550 REM IMPRESSÃO 

560 PRINT 

570 PRINT "FREQUÊNCIA SIMPLES 

DOS CARACTERES NO TEXTO* ! PRINT 

560 FOR J-l TO 60 STEP 3 

590 FOR I-J TO J+2 

600 IF F(C(I)>=0 THEN GOTO 640 

610 PBINT CHR5(C(I)+31) i" " ( 

F(C(I) ) ■ 

620 NEXT I: PRINT 
630 NEXT J 

640 PRINT :PRINT"TGTAL: ";NT:" 
CARACTERES . " 
650 RETURN 

Coloque um comando CLEAR 3000 
na linha 15, para os micros pertencen- 
tes às linhas TRS-80 e TRS-Color. 




15 DIM £(60) ,c(60) 

30 LET nt = 0 

40 FOR 1=1 TO 60 

50 LET f(Í)-0:LET c(l)-í 

60 NEXT í 

65 PRINT "ANALISANDO. . ." 

70 READ L3:IF LS""*" THEN GOTO 

85 

80 GOSUB 410:GOTO 70 
85 PRINT "ORDENANDO..." 
90 GOSUB 470:GOSUB 560 
100 STOP 

400 REM CONTAGEM 

410 FOR t-1 TO LEN LS 

420 LET nt-nt+1 

430 LET j-ASC(LS(Í to i ) ) -31 

440 LET f(j)-f <j)+l:NEXT 1 

450 RETURN 

460 REM ORDENAÇÃO 

470 LET n-60 
480 LET íl-0 

490 LET n=n-l:FOR i=I TO n 
500 IF rtc(i))->f Íc(i+D) THEN 
GOTO 520 

510 LET x=c(i):LET c(i)=c(i+l) 
: c{i+l)=x LET fl-í 
520 NEXT 1 

530 IF £1=0 OR n=2 THEN RETURN 
540 GOTO 480 

550 REM IMPRESSÃO 

560 PRINT 

570 PRINT "FREQUÊNCIA SIMPLES 

DOS CARACTERES NO TEXTO" : PRINT 

580 FOR j-l TO 60 STEP 3 

590 FOR i=J TO j+2 

600 IF £(cU))-0 THEN GOTO 640 

610 PRINT CHR3(c(i)+31) ;" " i 

f (cíi)) , 

620 NEXT i: PRINT 
630 NEXT j 

640 PRINT : PRINT" TOTAL : ";nt;" 
CARACTERES . " 
650 RETURN 

As linhas 15 a 60 definem e iniàali- 
;am dois conjuntos: F, que conterá a 
frequência de cada caractere presente no 
texto, e C, um conjunto-índice que será 
utilizado pela rotina de ordenação (no 
começo C contém os números inteiros 
de 1 a 60, em ordem crescente). A va- 
riável NT servirá para contar o número 
total de caracteres no texto. 

O laço que abrange as linhas 70 e 80 
lè as linhas de texto original em DATA, 
parando se encontrar um asterisco. Ca- 
so contrário, chama a rotina 410, que 
tem por objetivo executar a contagem. 
Essa rotina simplesmente acha o códi- 
go ASCII de cada um dos caracteres 
presentes na linha de texto, diminui o 
valor 31 dos mesmos, e incrementa o ele- 
mento de F correspondente. 

Em seguida, as sub-rotinas 470 e 560 
(chamadas na linha 90 do programa) 
encarregam-se, respectivamente, de co- 
locar o conjunto C em ordem decrescen- 
te de frequência e mostrar o resultado 



na tela. A rotina de ordenação usa o mé- 
todo tipo bolha, que examinamos no ar- 
tigo da página 468. A rotina de exibi- 
ção mostra apenas os caracteres com 
frequência maior do que 0. 

Se tudo tiver corrido bem, você ob- 









estes dadosi 


192 


A 


147 


E 129 


0 111 


S 


87 


R 84 


D 66 


I 


47 


U 45 


N 43 


C 


40 


M 39 


T 36 


P 


30 


l 29 


, 15 


H 


14 


. 12 


V 12 


G 


11 


B 9 


F 8 

: 3 




5 
2 


Q 4 

- 2 


K 2 


2 


2 


J 1 


X 1 








TOTAL : 


1228 


CARACTERES „ 



Note que. como afirmamos anterior- 
mente, um conjunto de apenas catorze 
letras mais o espaço em branco respon- 
dem por 91,6% do texto (1 125 ocorrên- 
cias em 1228 letras). O espaço em bran- 
co é o caractere mais frequente em qual- 
quer texto, por razões obvias. 

Um segundo conjunto, formado por 
mais catorze caracteres, responde por 
8% do texto. Caberia a um terceiro con- 
junto abrigar os demais caracteres (a 
maioria dos quais não apareceu nenhu- 
ma vez neste texto, mas poderia cons- 
tar esporadicamente de outros). 

Vimos que, se usarmos apenas um 
conjunto de codificação com os quinze 
caracteres mais frequentes, teremos que 
colocar os restantes no texto sem codi- 
ficar, e cada um deles ocupará três nib- 
bles. Entretanto, podemos estender a 
ideia de um conjunto de quatro bits de 
código para dois ou mais conjuntos adi- 
cionais. Assim, a codificação de cada 
caractere constante do segundo conjun- 
lo ocupará dois nibbles (um com o 0 e 
outro com o código propriamente dito); 
a codificação dos caracteres do terceiro 
conjunto ocupará três nibbles, e assim 
por diante. Vamos fazer as contas de no- 
vo, para o mesmo conjunto de cem ca- 
racteres: 

90 têm códigos de 4 bits = 45 bytes 
9 têm códigos de 8 bits = 9 bytes 
I tem código de 12 bits - 2 bytes 

TOTAL - 56 bytes 

Como você pode notar, conseguimos 
aumentar nossa eficiência teórica de 
compressão para 44% (o que represen- 
ta uma melhoria de 10% em relação ao 
esquema discutido anteriormente). 

Podemos agora desenvolver um pro- 
grama de codificação (acrescente as li- 
nhas DATA de teste ao final): 
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10 DIM F3(5D) ,KS(3) 

20 KS(1>-" AEOSRDIUNCMTPL" 

25 K3(2) -",H.VCBF'Q: !-KZJ- 

27 K3(3)--XUY;-/*?()S*+" 

180 PHINT "CODIFICANDO..." 

190 RESTORE:I=0:NC=D:K=1 

200 READ LS:IF L3="*" THEN 230 

210 GOSUB 710:I = I+1:FS(U=X3 

212 GOSUB 920 

215 NC=NC+LEN(XS) 

220 GOTO 200 

230 NL-I:T-0 

235 PRINT "TOTAL: " ; NC ! 

"CARACTERES" 

237 3TOP 

700 REM CODIFICAÇÃO 

710 N-0:XS-"":YS-":LS-LS+" " 

720 FOR J=l TO LEN(LS) 

730 C3-MID3(L3.J.l) 

740 P-INSTR(KStK) ,CS) 

760 N-N+1:IF N-l THEN B-P 

770 IF N-2 THEN N-0:B-B OR 

(16*P) : XS-XS+CHRSW 

775 IF P-0 THEN K-K+1:GOTO 740 

776 K-l 
780 NEXT J 
790 RETURN 

Coloque um comando CLEAR 3000 
na linha 10. para os micros pertencen- 
tes às linhas TRS-80 e TRS-Color. 



H] El 



Para que o programa funcione nos 
microcomputadores Apple e TK-2000, 
substitua a rotina de codificação das li- 
nhas 710 a 790 por: 

700 REM CODIFICAÇÃO 

710 N-0:XS-"":LS-LS+" " 
720 FOR J=l TO LEN(LS) 
730 CS=MID$(L$,J,1) 
735 FOR P-l TO LEN (KS (K) ) 
740 IF MIDS (KS(K) ,P,1) ■ CS 

THEN 760 
750 NEXT P 

760 N-N+1:IF N-l THEN B=P 
770 IF N=2 THEN N=0:B-B OR 
(16*P) : XS-XS+CHRS(B) 

775 IF P-0 THEN K-K+l:G0TO 740 

776 K-l 
780 NEXT J 
790 RETURN 



10 DIM £3(50.64) ,k3(3) 

20 kS(l)-" AEOSRDIUNCMTPL" 

25 kS(2]-",H.VGBF'Q:!-KZJ" 

27 k$(3)-"XUY;-/*7()SI+" 

180 PRINT "CODIFICANDO..." 

190 RESTORE:i=0:nc=0:k=l 

200 READ LS:IF LS-"*" THEN GOTO 

230 

210 GOSUB 710:LET i=i+l:LET 
fS(i)-XS 



212 GOSUB 820 

215 LET nc-nc+LEN «3 

220 GOTO 200 

230 LET nl-I:LET t-0 

235 PRINT "TOTAL: " ;nc ; 

"CARACTERES" 

237 STOP 

700 REM CODIFICAÇÃO 

710 LET n=0 : LET x3="":LET 
L3-LS+" * 

720 FOR j-1 TO LEN LS 

730 LET cS*L$ ( j TO j) 

735 FOR p-l TO LEN kS (k) 

740 IF k3(K,p TO p) - cS THEN 

GOTO 760 

750 NEXT p 

760 LET n-n+l:IF n-l THEN LET 

b-p 

770 IF n-2 THEN LET n-0 : LET b-b 
OR (16*p) : LET xS-x3+CHR3 b 
775 IF p-0 THEN LET k-k+l:GOTO 
740 

7 76 LET k=l 
780 NEXT j 
790 RETURN 

As linhas 20 a 27 definem os três con- 
juntos de caracteres a serem usados. O 
primeiro conjunto reúne os quinze ca- 
racteres mais frequentes em um texto. 
Para simplificar, utilizaremos a mesma 
ordem encontrada no texto de teste. 
Mas, se quiséssemos obter um conjun- 
to padrão, que servisse igualmente bem 
para qualquer texto na língua portugue- 
sa, deveríamos analisar uma amostra 
muitas vezes mais extensa antes de de- 
finir a ordem dos caracteres. O segun- 
do conjunto contém os próximos quin- 
ze caracteres de maior frequência no tex- 
to e assim por diante. 

A seção do programa que abrange as 
iinhas 200 a 220 lê o texto contido em 
DATA e chama a rotina de codificação, 
que tem início na linha 710. O texto co- 
dificado, devolvido a X$, é armazena- 
do no conjunto FS, para posterior uso 
na decodificação. 



ROTINA DE CODIFICAÇÃO 



Por ser um tanto complexa, a rotina 
de codificação exige uma explicação 
mais detalhada. Ela procura, no primei- 
ro conjunto de códigos (que está em 
K$(l)), cada um dos caracteres indivi- 
duais da linha de texto, extraídos e guar- 
dados em CS. Não encontrando ali de- 
terminado caractere, o apontador K é 
incrementado e a rotina passa a procu- 
rá-lo no segundo conjunto, e assim por 
diante. Todas as vezes que passa para 
outro conjunto de códigos, a rotina co- 
loca um código 0 na sequência de saí- 
da. Assim, um caractere encontrado no 
segundo conjunto vai ler um 0 seguido 
de seu código, e um caraetere encontra- 



do no terceiro conjunto terá dois zeros 
antes de seu código. 

A cada dois códigos numéricos gera- 
dos (contados pela variável N), as linhas 
760 e 770 da rotina comprimem os dois 
nibbles em um byte, B. através da ex- 
pressão matemática da linha 770. Veja- 
mos um exemplo: 

decimal binário 

1? nibble 14 00001 1 10 

2? nibble 7 00000111 

Expressão: 14 OR (16*7) 
14 OR 112 

00001110 OR 01110000 
que é igual a 01 III 110 ou 126. 

Note que a multiplicação de um nib- 
ble por 16 tem o efeito de deslocá-lo da 
parte baixa para a parte alta do byte. 
Uma operação OR soma o primeiro nib- 
ble (não deslocado) com o segundo (des- 
locado); o resultado é um byte com am- 
bos os nibbles em cada metade. 

Se você quiser acompanhar a geração 
de códigos comprimidos, acrescente as 
linhas que se seguem e rode o progra- 
ma novamente. 



212 GOSUB 820 

800 REM --- LISTAGEM 

820 FOR N=l TO LEN(X3) 

830 PRINT ASC (MID5 (XS.N, 1) ) ; 

840 NEXT N: PRINT 

B50 RETURN 



212 GOSUB 820 

600 REM LISTAGEM 

820 FOR n-l TO LEN x3 

830 PRINT ASC (XS(n TO n) ) ; 

840 NEXT n : PRINT 

B50 RETURN 

Para obter o texto original de volta, 
basta que você acrescente a rotina de de- 



237 PRINT "DECODIFICANDO..." 

240 FOR 1=1 TO NL 

250 LS-FS ti) :GOSUB B70 

260 T-T+l xf T<15 THEN GOTO 290 

270 PRINT : INPUT "PRESSIONE <EN 

TER>" ;XS 

280 T-0 

290 NEXT I 

300 STOP 

860 REM DECODIFICAÇÃO 

870 N=0:K=1:FOR J-1 TO LEN (L3) 

880 C'ASC(MIDS(L3.J.D) 

B90 C(l)-C AND 15:C(2)-(C AND 

240)716 
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900 FOR L»l TO 2 

910 IF C(L)-0 THEN K-K+l:GOTO 

930 

920 PRINT MIDStKS(K) ,C(L) ,1) i 

925 K-l 

930 NEXT L 

940 NEXT J 

950 PRINT : RETURN 



237 PRINT -DECODIFICANDO..." 

240 FOR i=l TO nl 

250 LET L$-f$(i) :G0SUB 670 

260 LET t=t+l:IF t<15 THEN GOTO 

290 

270 PRINT:INPUT " PRESSIONE <ENT 
ER> ":XS 
280 LET t-0 
290 NEXT i 
300 STOP 

860 REM DECODIFICACAO 

670 LET n-0:LET k-l: FOR j-l TO 
LEN r.s 

860 LET c«ASC(L3(j TO j) ) 

890 LET c(l)=c AND 15:c<2)=(c 

AND 240) /16 

900 FOR L=l TO 2 

910 IF c(L)-0 THEN LET 

k=k+l :GOTO 930 

920 PRINT KS<K.c(L) to c(L))i 

925 LET k-l 

930 NEXT L 

940 NEXT J 

950 PRINT : RETURN 

A sub-rotina responsável pela deco- 
dificação funciona de maneiraexatamen- 
te inversa à rotina de codificação, que 
acabamos de examinar. 

A variável C contém o código com- 
primido, extraído de cada um dos carac- 
teres da linha codificada. A partir des- 
ta obtêm-se os dois nibbles, que são ar- 
mazenados respectivamente em CO) e 
C(2), na expressão da linha 890, e exa- 
minados pelo laço das linhas 900 a 930. 
Se um dos nibbles é igual a 0, o aponta- 
dor K, que inicialmente se encontrava 
em 1, é incrementado, passando a indi- 
car o próximo conjunto de códigos. Fi- 
nalmente, a linha 920 imprime na tela 
o caractere decodificado. 

Tomemos o exemplo anterior para 
ver como funciona a decodificação: 

byte = 011 111 10 = 126 

1? nibble 126 AND 15 

ou: 01111 110 AND 00001111 

ou: 00001 110 

ou: 14 em decimal 

2? nibble (126 AND 240)/ 16 

ou: 01111110 AND 11110000 
ou: 01 110000 

ou: 112/16 - 7 (00000111) 



efeito contrário da multiplicação por 16 
— ou seja, desloca o nibble alto para o 
nibble baixo. 



GRAU DE EFICIÊNCIA 



Obteremos os seguintes resultados 
com nosso texto de teste: depois de co- 
dificado, ele foi reduzido de 1228 para 
674 caracteres, ou seja, houve uma re- 
dução de 45%. Pouquíssimos métodos 
de compressão conseguem tão alio grau 
de eficiência. Na realidade, se contar- 
mos o número total de bytes gastos pe- 
lo programa e pela tabela de códigos KS, 
a redução global de espaço vai ser bem 
menor. Devemos ter em mente, porém, 
que a utilização de um algoritmo de 
compressão como este só faz sentido 
quando o lexto a ser comprimido é ex- 
tenso. Assim, o acréscimo de memória 
necessário para o programa e as tabelas 
é insignificante se comparado aos ga- 
nhos obtidos pela compressão. 



LIÇÕES DA CRIPTOGRAFIA 



pertencem, evidentemente, à nossa lín- 
gua. Por isso, verificou-se uma frequên- 
cia atípica da letra K. 

Como precisamos codi- 
ficar o texto de uma aven- 
tura apenas uma vez, nada 
impede que combinemos 
os programas de análise 
de frequências e de codifi- 
cação em um só, para 
otimizar o processo. Os i 
programas anteriores fo- J 
ram escritos com nu- J 
meros diferentes de li- 
nhas, de modo a faci- 
litar essa integração. 
Para proceder ã fusão 
dos dois programas, 
faça as modificações: 

565 K-l 

615 K$ÍK)-KS(K)+ 
CHRStC(I)+31) 

616 IF LEN<K$(K))-15 
THEN K-K+l 

e suprima as linhas 20 a 27. 



O compressor de textos desenvolvi- 
do aqui toma emprestado alguns concei- 
tos da criptografia, que é a ciência das 
cifras e dos códigos (veja artigos das pá- 
ginas 888 e 1091). Ao tentar decifrar um 
código secreto, o criptógrafo analisa, 
antes de mais nada, as frequências dos 
caracteres presentes no texto cifrado. 
Estas podem dizer muito sobre a fre- 
quência das letras usadas no idioma 
original. 

O uso das letras mais frequentes do 
alfabeto no primeiro conjunto de codi- 
ficação assegura a obtenção do máximo 
de compressão possível. Se esse conjun- 
to incluir caracteres que aparecem com 
menor frequência, omitindo outros mais 
utilizados, a compressão perderá muito 
cm eficiência, pois muitos códigos 0 se- 
rão gerados. 



COMBINANDO ETAPAS 



Normalmente, um programa com- 
pressor baseado nessa técnica deveria ser 
independente do lexto que se deseja 
comprimir — ou seja, teria nos conjun- 
tos KS uma sequência padronizada de 
caracleres mais frequentes, identificados 
pela análise de uma grande amostra da 
língua portuguesa. 

Entretanto, um texto de aventura 
apresenta algumas peculiaridades, in- 
cluindo termos estranhos, como Aard- 
vark, Niptu, Nordham etc, que não 




565 LET k=l 

615 LET k$(k)-kSCk)+CHR$(c 
(i)+31) 

616 IF LEN{kSCk))-15 THEN LET 
k-k+1 



: supnma 



i linhas 20 a 27. 



Observe que algumas linhas foram 
acrescentadas à rotina de impressão dos 
resultados da análise de frequência. Elas 
se encarregam de construir automatica- 
mente os elementos do conjunto KS, 
com a vantagem de criar tantos elemen- 
tos quantos se façam necessários (se fo- 
rem mais de três, é conveniente alterar 
a dimensão deste conjunto na linha 10 
do programa principal). Por isso. as li- 
nhas 20 a 27, que contêm a definição fi- 
xa do conteúdo do conjunto KS, devem 
ser retiradas. 

Tente codificar outros textos com es- 
se programa, e veja como a taxa de com- 
pressão se mantém quase a mesma. Es- 
ta é uma característica desejável de qual- 
quer sistema de compressão. 

No próximo artigo sobre este tema, 
investigaremos outras alternativas utili- 
zadas na compressão de textos, particu- 
larmente o MêtOth Chinês, por meio do 
qual é possível obter 60% de redução em 
uma aventura. 
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Para o programador ambicioso, existe 
um mapa de valor inestimável: os 
endereços das variáveis do sistema. 
Com PEÊK e POKE, você terá acesso 
a ele e obterá maravilhas com o micro. 



O BASIC do Spectrum possui um 
grande número dc comandos relativa- 
mente poderosos para trabalho com a 
tela, teclado, memória ctc. Apesar dis- 
so, muitas propriedades da máquina e 
de seu sistema operacional ficam Fora do 
alcance do programador que se restrin- 
ge apenas a esses comandos. 

Usando a função PEEK para leitura 
direta de uma locação absoluta de me- 
mória, e o comando POKF- para modi- 
ficar seu conteúdo, você poderá redefi- 
nir muitos parâmetros dc funcionamen- 
to do sistema operacional e do interpre- 
tador BASIC no Spectrum. 

Mas, se o sistema operacional e o in- 
terpretador estão gravados permanente- 
mente na memória ROM da máquina, 
como é possível alterar o seu funciona- 
mento? Quando o computador é ligado, 
o interpretador BASIC especifica uma 
área de trabalho na RAM, que vai da 
locação 23522 á 23732. Uma área adi- 
cional — de 23734 à 23791 — é criada, 
sc o computador for conectado a uma 
interface universal de entrada/saída. 

Cada locação nessas áreas armazena 
um valor numérico, usado pelo sistema 
operacional e pelo interpretador durante 
a execução de programas. Essas loca- 
ções são chamadas variáveis do sistema 
e recebem um nome simbólico, para fins 
de referência. Podem ser: 

- registros intermediários de operações, 
tais como: código da ultima tecla pres- 
sionada (I.ASTK), último código dc er- 
ro encontrado (ERRNR) etc; 

- parâmetros de operação de comandos: 
duração do bipe (RASP), atraso entre 
repetições dc uma tecla (REPPER), cor 
da moldura (BORDCR) etc; 

- indicadores: próxima linha a ser exe- 
cutada (NEWPPC), coordenada X do 
cursor de alta resolução (COORDX), 
número de linha da posição corrente de 
PRINT (SPOSLN) etc; 

- apontadores, que contêm outros ende- 





Endereço 


LASTK 


23560 


REPDEL 


23561 


REPPER 


23562 


RASP 


23608 


PIP 


23609 


ERRNR 


23610 


MODE 


2361 7 


NEWPPC 


23618 


NSPPC 


23620 


EPPC 


23625 


VARS 


23627 


PROG 


23635 


NXTLIN 


23637 


ELINE 


23641 


KCUR 


23643 


FLAGS2 


23658 


DFSZ 


23659 


SEED 


23670 


FRAMES 


23672 


COORDX 


23677 


COORDY 


23678 


PPOSN 


23679 


FREE 


23681 


SPOSN 


23688 


SPOSLN 


23689 


SCRCT 


23692 


RAMTOP 


23730 


PRAMT 


23732 



reços de memória: início de um progra- 
ma BASIC (PROG), endereço do cur- 
sor na RAM da tela (KCUR) etc; 

- parâmetros de definição do hardware: 
topo da memória RAM (PRAMT) etc; 

- contadores e acumuladores: contador 
de quadros de TV (FRAMES), espaço 
ocupado por cadeias (STRLEN) etc. 

Algumas variáveis do sistema ocu- 
pam um byte, outras, dois. Quando 
ocupam dois bytes, o número de dezes- 
seis bits nelas armazenado segue o es- 
quema de dupla byte mais significati- 
vo/byte menos significativo. 



APLICAÇÕES 



O acesso a esses endereços permite- 
nos, entre outras coisas, copiar determi- 
nado valor em uma variável do sistema, 
de modo a informar o programa sobre 
algum parâmetro de interesse para o 
processamento subsequente. Suponha- 
mos que você queira dimensionar uma 



■ 


VARIÁVEIS DO SISTEMA 


■ 


TIPOS DE VARIÁVEL 


■ 


COMO MODIFICAR 


APONTADORES E CONTADORES 


■ 


ENDEREÇOS ÚTEIS 



tabela em função do máximo de memó- 
ria disponível no computador. Para is- 
so, use o número de dezesseis bits arma- 
zenado no par 23730-23731 , que é a va- 
riável de sistema RAMTOP. Ela indicará 
o topo máximo de memória RAM dis- 
ponível para um programa em BASIC: 

LET MAX - PEEK(23730)+PEEK( 
23731) "256 

Podemos também modificar um va- 
lor por meio de um POKE, fazendo com 
que dado comando seja executado de 
maneira diferente. Por exempio: a loca- 
ção 23692 corresponde à variável do 
sistema SCRCT, que é o contador de 
linhas usado pelo sistema para pergun- 
tar scroll? quando o cursor de texto 
chega ao fim da tela. Com um POKE 
23692,255 a cada número de linha, o 
computador nunca fará essa pergunta. 

No quadro acima, listamos algumas 
das variáveis de sistema mais importan- 
tes para o Spectrum e compatíveis. Use 
a sua imaginação! 




VARIÁVEIS DO SISTEMA 



Utilização 

i tecla pressionada 



Tempo de pressão a 



Atra 



3 do s 



3 repetições c 
~) de alar 



na tecla para repetir 
3 tecla 



Duração do "dique" de teclado 
Último código de erro, menos 1 
Modo do cursor IK, L, C, E ou G) 
Próxima linha a ser executada 
Próximo comando da linha a ser executada 
Número da linha com o cursor do programa 
Endereço do inicio da área de variáveis 
Endereço do início do programa BASIC 
Endereço da próxima linha a executar 
Endereço do buffer de entrada em BASIC 
Endereço do cursor 
Indicador de minúsculas/maiúsculas 
Número de linhas na zona inferior da tela 
Semente do gerador RAND 
Contador de quadros de TV 
Coordenada X do último ponto gráfico 
Coordenada Y do último ponto gráfico 
Coluna de impressão na impressora 
Byte livre para o usuário, não afetado por NEW 
Número de coluna da última posição PRINT 
Número da linha da última posição PRINT 
Contador de linhas para o scroll 
Topo da memória livre para BASIC 
Topo da memória RAM (física) 



EXPRESSÕES MATEMÁTICAS 
VARIÁVEIS E NÚMEROS 
NOMES E S E NTENÇ AS 

O QUE SÃO LISTAS 

COMANDOS PARA LISTAS 



I 



4 LINGUAGENS 1 



Os recursos do LOGO não se esgotam em 
seus eficientes comandos gráficos. 
Manipular palavras, representar dados, 
efetuar cálculos matemáticos - tudo 
isso o LOGO pode, e muito mais. 

Neste terceiro e último artigo da sé- 
rie sobre programação LOGO, exami- 
naremos as características fundamentais 



dessa linguagem. Na realidade, segui- 
mos o caminho inverso do que è usual 
no aprendizado de outras linguagens, já 
que abordamos em primeiro lugar os co- 
mandos gráficos. Mas esta é a maneira 
mais fácil de entrar em contato com o 
universo da programação — principal- 
mente para crianças. Aliás, justamente 
por causa da popularidade de seus re- 
cursos gráficos, muita gente pensa que 
o LOGO é apenas uma "linguagem grá- 
fica", própria para crianças. 



Nada mais longe da verdade. Como 
o LISP, seu antecessor, o LOGO foi 
projetado de modo a simplificar a ma- 
nipulação de palavras e listas de pala- 
vras e frases. Essa característica não im- 
pede, contudo, que complexos progra- 
mas de Inteligência Artificial sejam de- 
senvolvidos com a ajuda do LOGO. 

Ao estudar linguagens imperativas, 
inclusive o BASIC, começamos por ana- 
lisar seus elementos básicos, tais como 
as formas de representação de dados 
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O que é um micromundo LOGO? 

Um micromundo é um conjunto co- 
nexo de procedimentos, escritos em 
LOGO, pue estruturam uma determina- 
da situação ou ambiente de resolução 
de problemas cognitivos. 

Esses procedimentos podem ser 
combinados em outros procedimentos, 
de forma cada vez mais complexa, imi- 
tando, assim, o desenvolvimento natu- 
ral do conhecimento da criança sobre 
uma parte do mundo. 

Exemplificando: podemos construir 
um micromundo em que a tela é a gaio- 
la de um coelhinho, com lugares para 
ele brincar, dormir, comer etc. Usando 
o LOGO, a criança e o professor elabo- 
ram vários procedimentos para dese- 
nhar o ambiente e seus objetos, fazer 
o coelhinho se movimentar, levá-lo até 
a área de dormir etc, de maneira pro- 
gressiva e hierárquica. Esse micromun- 
do pode ser tão complexo e completo 
quanto se queira. 



gumentos de uma operação força um re- 
sultado inteiro. 

Os operadores matemáticos são 
iguais aos da linguagem BASIC: soma 
( + ), sublração (-), divisão (/), multi- 
plicação (*), parênteses etc. A ordem de 
execução das operações também é a 
mesma. Usando, por exemplo, o co- 
mando PRINT (ESCREVA, na versão 
em português), com função idêntica à 
que tem no BASIC, podemos fazer: 

LX 



m 

ESCREVA 2 + 2*3 

O resultado da operação será igual a 
8, pois, nesta expressão, efetua-se a mul- 
tiplicação em primeiro lugar. 

As expressões matemáticas podem ser 
colocadas em outros comandos do LO- 
GO, como no desenho de gráficos: 



(constantes e variáveis), os comandos de 
impressão etc. É o que faremos agora 
com a linguagem LOGO. 

Como nos artigos anteriores, apre- 
sentaremos sempre duas versões dos 
programas: a primeira, identificada pelo 
logotipo Apple, corresponde ao padrão 
M1T LOGO, em inglês, adotado univer- 
salmente com poucas variações; a segun- 
da, identificada pelo logotipo do MSX, 
corresponde à versão nacional, chama- 
da BRASLOGO, desenvolvida pela Uni- 
camp para a Itautec e adotada por ou- 
tros fabricantes. Ao final do artigo, da- 
mos a tradução dos comandos usados 
para o MLOGO, versão nacional mui- 
to difundida, destinada ao Apple. 



MATEMÁTICA EM LOGO 



Como qualquer linguagem de progra- 
mação que se preze, o LOGO dispõe de 
amplos recursos destinados a cálculos 
matemáticos com diferentes níveis de 
complexidade; não se restringe às qua- 
tro operações aritméticas. 

O LOGO não faz distinção entre nú- 
meros inteiros e reais (números que po- 
dem ser fracionários, como 1.2, 3.14156 
etc). Em alguns interpretadores, entre- 
. tanto, a falta do ponto decimal nos ar- 



FORWARD (10 



PARAFRENTE (10 + 120)/3.14 

Os procedimentos também compor- 
tam expressões matemáticas: 



TO PI 2 

PRINT 3.14156*2 
END 



Li] 



TO CUBO : NUMERO 

PUI NT : NUMERO* : NUMERO* : NUMERO 

END 



APRENDA CUBO .-NUMERO 

ESCREVA ; NUMERO* : NUMERO* : NUMERO 

FIM 

O procedimento criado exige um ar- 
gumento numérico de entrada, e respon- 
de imprimindo na tela o cubo do mesmo: 



Eis aqui outro procedimento, que cal- 
cula a média de dois números: 



TO MEDIA :N1 :N2 
PRINT (:N1 + :N2)/2 
END 



APRENDA PI 2 
ESCREVA 3.14156*2 
FIM 

Feito isso, sempre que digitarmos o 
comando PI2 pelo teclado, obteremos 
a seguinte resposta: 
2.28312 

Uma expressão pode utilizar variá- 
veis. Como você deve estar lembrado, 
as variáveis recebem nomes, que podem 
ser de qualquer comprimento, e são 
identificadas por dois pontos. Assim, 
um procedimento destinado a mostrar 
o cubo de um número qualquer seria es- 
crito da seguinte maneira: 



Illllll 



UNGUAGINS 
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APRENDA MEDIA :N1 :N2 
ESCREVA (:N1 + :N2)/2 
FIM 

Esse procedimento requer a presen- 
ça de dois argumentos: 

MEDIA 2 4 

3 

MEDIA 1 2 

1.5 

Em alguns interpretadores LOGO. a 
resposta ao segundo comando poderá 
ser igual a 1, ou seja, o resultado será 
mostrado em forma inteira, pois os ar- 
gumentos de entrada estavam expressos 
desse modo. Se isso ocorrer, podemos 
forçar uma operação com resultados 
fracionários, escrevendo: 
MEDIA 1.0 2.0 

Não se esqueça de colocar os dois ar- 
gumentos para o procedimento MEDIA. 
Caso contrário, o interpretador reclama- 
rá, exibindo uma mensagem de erro. 

Observe que, em todas as expressões 
aritméticas examinadas, o símbolo da 



operação matemática a ser realizada 
aparece entre os argumentos da opera- 
ção (por exemplo, 2 + 2). Essa notação, 
chamada infixa, è a mais usada em lin- 
guagens imperativas derivadas do FOR- 
TRAN. Mas existem dois outros tipos de 
notação: ã sufixa, ou notação polaca in- 
versa (RPN), que é usada em linguagens 
como o FORTH (a mesma operação aci- 
ma seria escrita 2 2 + ), e a prefixa, que 
também é aceita pela linguagem LOGO. 
Nesse tipo de notação, o comando pre- 
cede os argumentos que usa. 

Para realizar operações prefixas no 
LOGO, empregam-se comandos já exis- 
tentes no interpretador. Por exemplo: 



Kl 



SLJM 6 7 
DIVIDE 3 1.2 
PRODUCT 3 4 

Em alguns interpretadores LOGO, 
esses comandos recebem nomes diferen- 
tes, como QUOTIENT em vez de DIVI- 
DE, ou MULTIPLY em vez de PRO- 
DUCT. Pode acontecer, também, que 
o interpretador não contenha o proce- 



dimento SUBTRACT. Nesse caso. bas- 
ta usar SUM, com um número negativo. 



TM 



SOMA 6 7 
QUOCIENTE 3 1.2 
PRODUTO 3 4 

Se um desses comandos não existir no 
interpretador LOGO que está usando, 
deverá fazê-lo APRENDER o novo pro- 
cedimento. 

Note que é possível utilizar funções 
dentro de funções, como em: 



DE 



DXVIDE SUM 3 2 SUM 4 5 



ff/i 



QUOCIENTE SOMA 3 2 SOMA 4 5 

que corresponde à notação infixa: 
PRINT (3+2)/(4+5) 



Ill 



Não tente fazer o mesmo, porém, 
cora os procedimentos CUBO e ME- 
DIA, desenvolvidos anteriormente, pois 
eles apenas imprimem os respectivos re- 
sultados, não tendo meios de "passá- 
los" a uma outra função. Experimen- 
te, por exemplo, digitar a seguinte ex- 
pressão para ver o que acontece: 

CUBO MEDIA 3.4 7.88 

Para retornar um resultado, o proce- 
dimento precisa inclui-lo na lista de va- 
riáveis na chamada. Uma alternativa 
mais simples consiste em usar o coman- 
do OUTPUT (ou ENVIE, na versão pa- 
ra a língua portuguesa): 



Eis um programa que simula dez lan- 
çamentos de um dado: 

IX 

TO DADOS 

P.EPEAT fi (PRINT RANDOM 6] 
END 
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TO MEDIA :N1 :N2 
OUTPUT (:N1 + :H2)/2 
END 



APRENDA MEDIA : NI : N2 
ENVIE (:N1 + :N2)/2 
FIM 

Agora, você poderá recorrer ao pro- 
cedimento MEDIA como argumento de 
outro procedimento. 



FUNÇÕES MATEMÁTICAS 



O LOGO possui várias funções ma- 
temáticas que facilitam o cálculo de ex- 
pressões mais complexas — algébricas, 
trigonométricas etc. 



TO DADOS 

REPITA 6 [ESCREVA SORTEIEATÉ 6] 
FIM 

Para inicializar uma sequência alea- 
tória, utiliza-se o comando RANDO- 
MIZE (REPRODUZA, na versão 
BRASLOGO). 



É possível especificar palavras (cons- 
tantes alfanuméricas) em LOGO, iden- 
tificando-as com o serial de aspas. Se 
quiser, por exemplo, imprimir no vídeo 
a palavra COMPUTADOR, digite: 



3: 



REMAINDER 

ROUND 

ABS 

INT 

SQRT 

SIN 

COS 



Resto de uma divisão 

Arredondamento 

Absoluto 

Inteiro 

Raiz quadrada 

Seno 

Co-seno 



5C 

PR INT "COMPUTADOR 

ESCREVA -COMPUTADOR 

Note que não se fecham as aspas, co- 
mo no BASIC. Se você se esquecer de 
colocar as aspas antes da palavra, a má- 
quina entenderá que COMPUTADOR é 
o nome de um número ou de procedimen- 
to criado anteriormente; não o encontran- 
do, exibirá uma mensagem de erro. 

Como o comando de impressão acei- 
ta apenas um argumento, as formas que 
se seguem também são incorretas: 

3 



Resto de uma divisão 
Inteiro 

Raiz quadrada 

Seno 

Co-seno 



RESTO 
INTEIRO 
RA l/Q 

SENO 
COS 

Só alguns interpretadores têm o con- 
junto completo dessas funções. 

O LOGO conta ainda com um gera- 
dor de números aleatórios, útil em uma 
I série de aplicações, inclusive jogos. 



No primeiro caso, o interpretador 
LOGO informará que ainda não conhe- 
ce DIA. No segundo, dirá que não sabe 
o que fazer com "DIA (ou, dependen- 
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TRADUÇÃO PARA 0 MLOGO 


Os comandos do MLOGO, para o 


Apple, correspondentes aos comandos 


do BRASLOGO 


deste artigo, sào. 


BR ASLOtjU 


MLOGO 


CDLntVA 


MOSTRAR 


ATRIBUA 


FACA 


COLOOUE 








PRODUTU 


PRODUTO 


QUOCIENTE 


QUOC 






RAIZQ 


RQD 


INTEIRO 


INT 




APROX 


REPRODUZA 


RESORTEIE 


SORTEIEATÉ 


SORTEIE 


SEN 


SEN 


COS 


COS 


ARCTAN 


ATAN 


PALAVRA 


PALAVRA 


SENTENÇA 


SENTENÇA 


PRIMEIRO 


PRIMEIRO 


SEMPRIMEIRO 


SEMPRIMEIRO 


ULTIMO 


ULTIMO 


SEMÚLTIMO 


SEMÚLTIMO 


ENVIE 


SAÍDA 



do do computador, que há um argumen- 
to a mais). É importante lembrar que 
um espaço em branco sempre indica, em 
linguagem LOGO, o fim de uma pala- 
vra, e que não podemos colocar mais de 
uma palavra após um sinal de aspas. 

Para imprimir duas palavras usando 
um mesmo comando, precisamos antes 
juntá-las em um único argumento. Exis- 
te um comando primitivo que faz isso: 



PRINT WORD "BOM "DIA 



ESCREVA PALAVRA "BOM "DIA 

O comando WORD (ou PALAVRA) 

toma dois argumentos — que são letras 
ou palavras precedidas de aspas — e os 
reúne em uma só palavra. Esta é passa- 
da para o comando PRINT (ou ESCRE- 
VA), que então a coloca na tela. 

O LOGO possui diversos comandos 
extremamente poderosos para lidar com 
palavras. Para extrair letras de uma pa- 
lavra, utilizam-se estes comandos: 





FIRST - Extrai a primeira letra. 
LAST - Extrai a última letra. 
BUTFIRST - Extrai todas as letras,me- 
nos a primeira. 

BUTLAST - Extrai todas as letras, me- 
nos a última. 

Como exemplo, tente os comandos: 

PBINT FIHST "ABCD 
PRINT LAST "ABCD 
PBINT BUTFIRST "ABCD 
PBINT BUTLAST "ABCD 
PRINT FIRST BUTFIRST "ABCD 
PRINT LAST BUTLAST "ABCD 
PRINT WORD FIRST "ABCD LAST 
"ABCD 



Note como os comandos são enca- 
deados: FIRST BUTFIRST extrai a se- 
gunda leira da palavra ABCD; LAST 
BUTLAST extrai a penúltima palavra etc 

O pequeno procedimento recursivo 
que mostramos a seguir é capaz de ex- 
trair todas as letras de uma palavra: 

TO LETRAS : PALAVRA 

IF ! PALAVRA - " THEN STOP 

PRINT FIRST : PALAVRA 



LETRAS BUTFIRST : PALAVRA 
END 

O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
nhum caractere. A chamada recursiva 
de LETRAS, na quana linha, usa como 
argumento o BUTFIRST da palavra que 
foi entrada. Esta vai sendo reduzida até 
não ter mais nenhuma letra. A recursão 
só se encerra quando o teste executado 
pelo IF da segunda linha é verdadeiro. 
A palavra vazia é assinalada pelas aspas 
e um espaço em branco. 




PRIMEIRO - Extrai a primeira letra. 
ÚLTIMO - Extrai a última letra. 
SEMPRIMEIRO - Extrai todas as le- 
tras, menos a primeira. 
SEMÚLTIMO - Extrai todas as letras, 
menos a última. 

Como exemplo, tente os comandos: 

PRINT PRIMEIRO "ABCD 
PRINT ULTIMO "ABCD 
PRINT SEMPRIMEIRO "ABCD 
PRINT SEMÚLTIMO "ABCD 



PRINT PRIMEIRO SEMPRIMEIRO 
"ABCD 

PRINT ÚLTIMO SEMÚLTIMO "ABCD 
PRINT PALAVRA PRIME IRO "ABCD 
ULTIMO "ABCD 

Note como os comandos são enca- 
deados: PRIMEIRO SEMPRIMEIRO 

extrai a segunda letra da palavra ABCD; 
ÚLTIMO SEMÚLTIMO extrai a penúl- 
tima palavra e assim por diante. 

O pequeno procedimento recursivo 
mostrado a seguir é capaz de extrair to- 
das as letras de uma palavra: 

APRENDA LETRAS -PALAVRA 

SE : PALAVRA ■ " ENT20 [PARE] 

ESCREVA PRIMEIRO : PALAVRA 

LETRAS SEMPRIMEIRO : PALAVRA 

FIM 

O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
nhum caractere. A chamada recursiva 
de LETRAS, na quarta linha, usa como 
argumento o SEMPRIMEIRO da pala- 
vra que foi entrada. Esta vai sendo re- 
duzida até não ter mais nenhuma letra. 
A recursão só se encerra quando o teste 
executado pelo SE da segunda linha é 
verdadeiro. A palavra vazia é assinala- 
da pelo sinal de aspas seguido de um es- 
paço em branco. 



ATRIBUIÇÃO 



O comando de atribuição — LET, 
em linguagem BASIC — também exis- 
te em LOGO. Com ele, podemos arma- 
zenar números ou resultados de expres- 
sões em variáveis, e dar-lhes nome. 

é\ 

MAKE "IDADE 15 



ATRIBUA "IDADE 15 

Podemos ainda colocar uma palavra 
em variável: 

HD 

MAKE "NOME "JOAQUIM 
ATRIBUA "NOME "JOAQUIM 

Experimente verificar o conteúdo das 
variáveis NOME e IDADE, com: 



PRINT :NOME 
PRINT : IDADE 



ESCREVA :NOME 
ESCREVA : IDADE 

Como você provavelmente deve ter 
observado, usamos dois pontos, e não 
aspas, quando estamos nos referindo a 
uma variável já criada. Esta é uma ca- 
racterística fundamental do LOGO. 
Nessa linguagem, ao contrário do BA- 
SIC, é necessário diferenciar explicita- 
mente as referências à variável ("NO- 
ME) e ao seu conteúdo (:NOME). 

Na realidade, todos os elementos do 
LOGO são definidos do mesmo modo, e 
armazenados na mesma estrutura. Tanto 
os comandos (programas) quanto os da- 
dos são palavras. Números também são 
tratados como palavras. Assim, é perfei- 
tamente possível fazer-se algo como: 

KJ 

PRINT -2.34 + "19. B7 
PRINT BUTFIRST 12.345 



ESCREVA "2.34 + "19.87 
ESCREVA SEMPRIMEIRO 12.345 

Eis aqui um pequeno programa que 
ilustra essa característica do LOGO. Ele 
imprime uma tabela contendo o quadra- 
do e a raiz quadrada de lodos os núme- 
ros inteiros, de NI a N2: 

é, 

TO TABELA :N1 : N2 

IF :N1=:N2 THEN STOP 

PRINT WORD :N1 :N1»N1 SQRT(;N1) 

TABELA :N1 + 1 :N2 

END 

mi 

TO TABELA ;N1 :N2 

SE :N1=:N2 ENTÃO [PARE] 

ESCREVA PALAVRA : NI :N1*N1 

RAIZQÍ ;N1) 

TABELA :N1+1 :N2 

riu 

Para fazer o procedimento TABELA 
chamar a si mesmo, usamos a recursão 



incrementando a variável de inicio :N1. 
A segunda linha do procedimento veri- 
fica o valor dessa variável, parando se 
ela já tiver atingido o máximo desejado 
(:N2>. Caso contrário, imprime na tela 
uma linha contendo o número, seu qua- 
drado e sua raiz quadrada. Como o co- 
mando' de escrita aceita um só argu- 
mento, precisamos usar um "aglutina- 
dor" dos diferentes números, colocan- 
do-os em uma única lista, por meio do 
comando WORD (ou PALAVRA). 



LISTAS 



Todo o potencial do LOGO se reve- 
la quando examinamos a última de suas 
estruturas básicas de dados: a lista, um 
conjunto de palavras indicado por meio 
de colchetes. Por exemplo: 
[TIGRE LEÃO GATO 1 

é uma lista com três elementos, separa- 
dos por brancos. 

Podemos dar nome às listas: 



MAKE "FELINOS [TIGRE LEÃO GATO 1 
MAKE "IMPARES [13 5 7 9) 
MAKE "COLEGAS [JOAOUIM 15 MÁRIO 
14] 

tm 

ATRIBUA "FELINOS [TIGRE LEÃO 
GATO] 

ATRIBUA "IMPARES (13 5 7 9] 
ATRIBUA "COLEGAS [JOAQUIM 15 
MÁRIO 14] 

Se usarmos o comando PRINT (ou 
ESCREVA) seguido do nome de uma 
lista, obteremos seu conteúdo comple- 
to. Uma lista pode conter outras listas: 

GE 

MAKE "CARNÍVOROS [FELINOS LOBO 
RAPOSA] 



mi 

ATRIBUA "CARNÍVOROS [FELINOS 
LOBO RAPOSA] 

Todas as funções utilizadas para ma- 
nipulação de palavras aplicam-se tam- 
bém a listas. Por exemplo: 

BTJ 

PRINT FIRST FELINOS 




Desenvolver uma nova linguagem 
não é difícil - tanto que existem cen- 
tenas delas que nunca passaram do es- 
tágio de mera "brincadeira" científica 
para uma efetiva implementação e dis- 
tribuição no mercado. 

Em primeiro lugar, deve-se definir se 
a linguagem será imperativa, funcional, 
procedimental etc. e que tipo de co- 
mandos, funções e instruções terá. De- 
pois, é preciso decidir se será uma lin- 
guagem interpretada, compilada, ou 
ambas. 

Finalmente, escreve-se o programa 
— geralmente em Assembler, C, ou 
qualquer outra linguagem otimizada pa- 
ra o desenvolvimento de ferramentas 
de software - que irá realizar o proces- 
so de tradução da nova linguagem em 
códigos de máquina destinados ao 
computador escolhido. 

As técnicas para a elaboração do 
compilador ou interpretador, comple- 
xas e altamente especializadas, são en- 
sinadas em cursos superiores de análi- 
se de sistemas. 



mi 

ESCREVA PRIMEIRO FELINOS 

Isso fará com que o primeiro elemen- 
to da lista, que é TIGRE, seja impresso 
na leia. 

Uma lista pode ter apenas um ele- 
mento, ou nenhum. Nesse caso, deno- 
mina-se lista vazia, e é representada pe- 
lo símbolo | ]. Para unir duas listas, usa- 
mos o comando primitivo SENTENCE 
(ou SENTENÇA): 



é 

PRINT SENTENCE COLEGAS IMPARES 



mi 

ESCREVA SENTENÇA COLEGAS 
IMPARES 

Procuramos aqui demonstrar a rique- 
za e a versatilidade do LOGO, Espera- 
mos ter motivado o leitor a continuar 
explorando essa poderosa linguagem. 
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FUNCÔi 
PODÉIR©: 




MAIOR MÚLTIPLO 



MENOR MÚLTIPLO 



RESTO DE UMA DIVISÃO 



ARREDONDAMENTO 
PAR OU ÍMPAR? 



O comando DEF FN permite incorporar 
ao elenco de funções matemáticas 
do BASIC um conjunto adicional 
de cálculos de grande interesse para 
o programador. Utilize-o. 



No artigo da página 608, vimos co- 
mo definir novas funções e usá-las em 
diversos tipos de manipulação de dados. 
Trataremos aqui de certas funções ma- 
temáticas úteis ao programador. 

Um extenso grupo de funções mate- 
máticas refere-se aos módulos, números 
que "cabem" dentro de oulros núme- 
ros, ou que restam de uma divisão. 

Há várias aplicações para esses cál- 
culos. Tomemos como exemplo uma 
questão corriqueira, que envolve a ca- 
legoria mais geral dos múltiplos: qual é 
o primeiro múltiplo de 100, menor ou 
igual a 345? Não é preciso ser nenhum 
génio para chegar à resposta — 300, que 
é o arredondamento do número 345 pa- 
ra baixo, até a centena mais próxima. 
Mas qual é o primeiro múltiplo de 64, 
menor ou igual a 51 1? Eis uma função 
que resolve esse problema: 



DEF FNMN(N1,N2)=INT(N1/N2)*N2 

O segundo argumento corresponde 
ao número cujo múltiplo queremos 
achar; o primeiro, ao valor máximo des- 
se múltiplo. Nos exemplos dados, pode- 
ríamos usar: PR1NT FNMN(345,100) e 
FNMN(511,64). Como o Apple, o 
TK-2000 e o TRS-Color não admitem mais 
que um argumento por função, a linha 
anterior não pode ser executada nessas 
máquinas. A solução é utilizar só um ar- 
gumento (veja o artigo da página 608). 

Também interessante é a função que 
determina o primeiro múltiplo de um 
número, superior a um certo valor. 
Exemplo: o primeiro múltiplo de 100 
maior que 3 022 é 3 100. 



iam 



Existem ainda outros tipos de arre- 
dondamento. O mais comum consiste 
em arredondar os dígitos da parte fra- 
cionária de um número usando a "re- 
gra do 5": se o dígito a desprezar é 
maior ou igual a 5, o que está à sua es- 
querda é arredondado para cima; caso 
contrário, este não muda. A função que 
executa esse tipo de arredondamento é: 



DEF FNAR(N,D)-INT(NM0**D)/10«* 



pregada quando se quer determinar se 
um número é par ou impar. 



O SI El 



DEF FNPI(N)=-2-INT(N/2)*2 



iam 



DEF FNPI ÍN) -FNHE {N , 2) 

Se o resultado da função for 1 , o nú- 
mero é ímpar; se for 0, é par. 

O menu deste programa permite tes- 
tar as funções apresentadas: 



a 

DEF 

m 
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DEF FNAR(N.D)=INT(N*10TD)/10TD 



25 DEF FNMM(N1.N2)-INT(N1/N2)*N 
2+N2 

30 DEF FNMN(N1,N2)-INT(N1/N2)*N 
2 

DEF FNAR(N.D)-INT(N*10-D)/10"D 35 DEF FNRE (NI ,N2) -Nl-FNMN (NI .N 



A função tem dois argumentos: N, o 
número a arredondar, e D, o número de 
decimais desejado. Se quisermos, por 
exemplo, arredondar para dois decimais 
o número 23.4567, especificamos PRINT 
FNAR(23.4567,2). 

Também é útil a função de arredon- 
damento que determina o próximo nú- 
mero inteiro a partir de um número fra- 
cionário. É uma função diferente de 
1NT (que obtém a parte inteira de um 
número, arredondando em alguns ca- 
sos), ou de FIX (que determina apenas 
a parte inteira, sem arredondar): 



mia 

■ FNRD (f> 

(N)*5) 

iQUSl 



Outra função importante é a que cal- 
cula o resto inteiro de uma divisão en- 
tre dois números NI e N2. 



iam 



DEF FNMM[N1.N2)-INT(N1/N2>*N2+ DEF FNRE {Hl , N2) =N1-FNMN (NI ,N2) 



Os argumentos têm o mesmo signifi- 
cado que os da função anterior. 



Utilizamos aqui a função FNMN, já 
definida. A função FNRE pode ser em- 



40 DEF FNRD(N)-FIX((FIX(N*10)+S 
GN(N)*5)/10) 

50 DEF FNPI (N) -FNRE (N, 2) 

60 DEF FNAR(N.D) -INT (N"10*D) /10 

"D 

100 CL5 

110 PRINT "DEMONSTRAÇÃO DE FUNC 
OES MATEMÁTICAS" 
120 PRINT 

130 PRINT "(1) PRIMEIRO MULTI 
PLO MAIOR" 

140 PRINT "(2) PRIMEIRO MULTI 

PLO MENOR OU IGUAL" 

150 PRINT "(3) RESTO DE UMA D 

IVISAO" 

160 PRINT "(4) ARREDONDAMENTO 

DE UM NUMERO" 
165 PRINT "(5) ARREDONDAMENTO 
PARA 0 MAIOR INTEIRO" 
170 PRINT "(6) PAR OU IMPAR" 
180 PRINT '(7) FIM" 
190 PRINT 

200 INPUT "OPCAO ";OP 

210 IF OP-7 THEN STOP 

220 IF OP>3 THEN INPUT " ARGUMEN 

TO " jN:G0TO 250 

230 INPUT "PRIMEIRO ARGUMENTO " 
iMl 

235 INPUT "SEGUNDO ARGUMENTO "j 
N2 

240 IF OP-1 THEN X-FNMM (NI , N2 ) 
250 IF OP-2 THEN X-FNMN (NI ,N2) 
260 IF OP-3 THEN X-FNRE (NI , N2) 
270 IF OP-4 THEN X-FNAR (N) 
275 IF 0P=5 THEN X-FNRD(N) 
2B0 IF OP-6 THEN X-FNPI (N) 
290 PRINT "RESULTADO - ";X ■ 
300 GOTO 120 
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JOGOS DE BLEFE 


■ 


0 USO DA ESTATÍSTICA 


■ 


ALEATORIEDAOE 


■ 


0 QUE É ALISAMENTO 


■ 


COMO CLASSIFICAR 




EXPONENCIAL 




AS POSSIBILIDADES 


■ 


TÉCNICA DE 


■ 


AS REGRAS DO JOGO 




SOMA CUMULATIVA 



Um computador que possa enfrentar' 
um blefe não é coisa do futuro: já exis- 
te aqui e agora. Com os programas em 
BASIC deste artigo, não há escapatória: 
a máquina será implacável com quem 
ousar desafiá-la em um clássico jogo de 
blefe: Papel, Pedra, Tesoura. 



É UMA PEDRADA 



Jogos de blefe são todos aqueles em 
que ambos os participantes mostram 
suas jogadas ao mesmo tempo, não ha- 
vendo nenhuma informação prévia so- 
bre a probabilidade da jogada de cada 
um. Um exemplo clássico é Papel, Pe- 
dra, Tesoura, no qual dois jogadores re- 
presentam com gestos a forma de uma 
pedra, de uma folha de papel ou de uma 
tesoura. A escolha de cada um é revela- 
da simultaneamente, como em um jogo 
de par ou impar. Ganha a rodada aquele 
que mostrar o objeto mais poderoso, de 
acordo com as seguintes regras: 

- tesoura corta papel, portanto, tesou- 
ra ganha; 

- papel embrulha pedra, portanto, pa- 
pel ganha; 

- pedra quebra tesoura, portanto, pedra 
ganha. 

Se ambos os jogadores escolherem o 
mesmo objeto, haverá empate. Joga-se 
um número predeterminado de rodadas 

- vinte, por exemplo — e conta-se um 
ponto para cada rodada ganha. 

Neste artigo, desenvolveremos duas 
versões de um programa que joga Pa- 
pel, Pedra, Tesoura muito bem. Tão 
bem que você até se sentirá um pouco 
abalado quando perceber que o compu- 
tador parece adivinhar suas intenções... 



MAIS SOBRE BLEFE 



Como um programa é capaz de pre- 
dizer eventos aparentemente aleatórios? 
Uma das "saídas" seria a simples adi- 
vinhação — ou seja, o programa sortea- 
ria números ao acaso (digamos, o nú- 
mero 1 representaria o papel, o 2, a pe- 
dra, e o 3, a tesoura), tanto para deter- 
minar a jogada do computador, quan- 



to para tentar adivinhar a do oponente. 
Um jogo como este não é satisfatório do 
ponto de vista estratégico: com um nú- 
mero de rodadas grande, certamente se 
chega a um empate. 

Para sorte do computador, entretan- 
to, o homem não age de maneira pura- 
mente aleatória, tendendo a exibir com 
maior frequência um ou dois tipos de 
objetos. Quase sempre, porém, os pa- 
drões de apresentação são bem mais 
complexos, seguindo ciclos ou mudan- 
do gradativamente as probabilidades. 

Além de sua incapacidade natural de 
atuar como um gerador perfeito de nú- 
meros aleatórios, o jogador humano 
tem mais um ponto vulnerável: a com- 
pulsão a responder ao que acontece no 
jogo. Quer esteja ganhando, quer este- 
ja perdendo, é quase certo que formu- 
lará "teorias" — apelando, via de re- 
gra, para a superstição — sobre quais 
são as respostas com maior chance de 
garantir-lhe a vitória. A distração pro- 
porcionada pelo jogo também tende a 
reduzir a frieza matemática de um jo- 
gador, mesmo que ele lute contra isso. 

De qualquer forma, não resta dúvi- 
da de que um jogador humano, por ser 
humano, tentará ampliar seus ganhos ao 
máximo de alguma estratégia. Isso sig- 
nifica que haverá sempre um viés, ou vi- 
cio de jogada, que, se cuidadosamente 
analisado, poderá dar indícios de como 
será seu próximo lance. 

Essa análise poderia ser feita por 
meio de cálculos estatísticos de diversos 
tipos. Mas o computador é bem mais 
eficiente no que se refere a cálculos — 
e é isto o que lhe permitirá sair vitorio- 
so em um jogo de blefe. 

Se um jogador modifica sua estraté- 
gia gradualmente, a técnica estatística 
mais adequada é a do alistamento expo- 
nencial. Se, ao contrário, o oponente 
muda de tática rapidamente, a melhor 
técnica é a da soma cumulativa. 



COMO JOGAR 



Para enfrentar o computador em Pa- 
pel, Pedra, Tesoura, você precisa sim- 
plesmente pressionar a tecla 1, 2 ou 3, 
quando chegar a sua vez, 

É importante nolar o seguinte: em- 
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bora a máquina tenha uma grande chan- 
ce de vencê-lo, ela não frauda o jogo, 
"olhando" sua jogada antes de decidir 
a dela. Na verdade, o método utilizado 
consiste em fazer o computador anali- 
sar as escolhas já feitas e decidir antes 
que você entre uma nova jogada. 



ALISAMENTO EXPONENCIAL 



O alisamento exponencial é a técni- 
ca estatística empregada para regulari- 
zar o contorno de uma curva cheia de 
altos e baixos. Se você colocar em um 
gráfico o número de pedras, tesouras e 
papéis que o oponente apresentou em 
cada unidade de tempo (por exemplo, 
a cada dez jogadas), a curva terá o as- 
pecto de uma serra. Porém, regularizan- 
do o contorno da curva — ou seja, tor- 
nando as subidas e descidas mais "sua- 
ves" — , o computador detectará algu- 
ma tendência significativa a longo pra- 
zo, como, por exemplo, um aumento ex- 
pressivo na apresentação de tesouras. 

As técnicas de alisamento utilizam so- 
mas ponderadas das jogadas anteriores. 
No caso específico do alisamento expo- 
nencial, pesos menores são dados para 
jogadas mais antigas, e pesos maiores, 
para jogadas mais recentes. 

Ao executar o programa, ele inicial- 
mente pedirá que você entre um "fator 
de esquecimento". Quanto maior o va- 
lor (inteiro, positivo) que você fornecer, 
maior o número de jogadas anteriores 
que o computador deixará de conside- 
rar. Assim, ficará mais fácil vencê-lo. 




3 CLEAR 3 1999: GGSUB 500 : 
BORDER 0: PAPER 0: INK 7: 

cu 

7 DIM A$ (3 ■ 9) : LET AS(1)="PE 
DRA" : LF.T AS(2>="PAPEL": LET 
ASU)-"TES01IRA" 
10 DIM H(3,2) : DTM X(2) : DIM 
Q<3,3) : DIM C(Z,3) : DIM A(2,3 
) : DIM P ( 3 , 3) : CLS 
20 FOR I-l TO 3: LET H(I.l) — 
COS t (1-2) *PI*2/3) : LET HU.2 
)=-SIN {(I-2)*PI*2/3) : NEXT I 
30 FOR T=l TO 3: FOR J-l TO 2 
: LET ACJ,T)=.01: NEXT J: 
NEXT T 

40 INPUT "DIGITE FATOR DE ESQ 
UECTMENTG (0-1). VALOR SUG 

ER IDO .85 ";W 

70 FOR 1=1 TO 3: FOR J-l TO 3 
: LET PI1.J1-SGN <I-J-3*INT ( 
(I-J+1.5) /3) } : NEXT J: NEXT I 
: LET S-0 

80 LET U»l! LET S=0: LET U2=0 

: LET WW = 0: LET U3-0 
100 LET V-INT (RND*3>+1 
110 PRINT INK 6; PAPER 2l" 1 
"PEDRA, 2-PAPEL. 3-TESOURA " 



120 INK 6: PLOT 8,167: DRAW 

239.0: DRAW 0,-159: DRAW -239. 

0 : DRAW 0 .159 

200 FOR T=l TO 3: LET I = U 

210 IF <U2 = 0 AND T=2) OR (U3 = 0 

AND T=3) THEN GOTO 280 

220 IF T=2 THEN LET I=ABS ((D 

-U2)-2*(U-VV)-3*((U<>U2) AND ( 

UOW) ) } 

230 IF T-3 THEN LET I=ABS < (U 
~U3)-2*(U-V3)-3*C(UOU3) AND t 
UOV3> ) ) 

240 FOR J-l TO 2: LET A<J.T)=A 
(,J,T)*W+H(I,J) : LET C(J.T)=C(J 
,T)*W+3*H(I.J)*H(I,J)+.01 
250 LET X(J)>A{J.T)/C<J,T) : 
NEXT J 

260 FOR 1=1 TO 3: LET Q(I,T)-1 
/3: FOR K-l TO 2: LET Q(I,T)-X 

(K)*H(I,K): NEXT K : NEXT X 

280 NEXT T: LET U2=U: LET W=V 

: IF U=V THEN LET W-U+l-3* 
INT (U/3) 

290 IF UOV THEN LET U3-U : 
LET U3=V: IF P(U3,V3K0 THEN 
LET WW-U3: LET U3-V3: LET V3 = 
WW 

300 LET X=-1E30: FOR T=l TO 3: 
IF (T-2 AND U2-D) OR (T=3 AND 
U3-0) THEN GOTO 370 

310 IF T = l THEN GOTO 350 

311 IF T-2 THEN GOTO 320 

312 IF T-3 THEN GOTO 340 

320 LET WW-6-U2-VV: LET 0.1 = 0.(1 
,T): LET Çj2-Q.(2,T): LET Q3=Q(3 
,T) : LET Q(U2,T)-Q1: LET Q(W. 
T)=Q2: LET Q(WU,T)=f}3 
330 GOTO 350 

340 LET WW-6-U3-V3: LET Cl-Qd 
,T): LET Q2-QÍ2.T) : LET Q3=Q{3 
T) : LET Q(U3.T)=01: LET Q(V3, 
T1-Q2: LET Q{WW.T)-Q3 
350 FOR G=l TO 3; LET P = 0 : FOR 
1=1 TO 3: LET P=P+P (G , I ) *Q (I . T 
): NEXT ti IF P>X THEN LET X- 
P; LET V-G 
360 NEXT G 
370 NEXT T 

400 INK 7: PRINT AT 2,4;"VOCE 
DISSE " 

"405 FOR M — 3 TO 16: SOUND .01, 
M: NEXT M 

410 LET KS-INKEYS: IF K$-"" 
THEN GOTO 410 
412 IF K$<"1" OR KS>"3" THEN 
GOTO 410 

415 LET U=VAL KS 

420 PRINT AT 3.4;AS(U);AT 2.21 

; INK 5:"EU DISSE ■ ; AT 3,21;A$ 

(V) 

430 POKE 23681. U-l: LET O-USR 
32000: POKE 23681, 127+V: LET O 
-USR 32000 

440 LET S=S+P(U,V): PRINT AT 
16.8;"SEU SCORE E ";S;" " 
450 INVERSE L: IF U-U THEN 
PRINT AT 18.10;" UM EMPATE ": 
GOTO 4 90 

460 IF (U-3 AND V-2) OR (U-2 
AND V = l> OR (U=l AND V=3) THEN 

PRINT AT 18,12;" VOCE VENCEU 
": GOTO 490 



470 PRINT AT 18,11:* EU WENCI" 
490 INUERSE 0: FOR D=l TO 2: 
PAUSE 0: NEXT D: FOR N-2 TO 1B 
: PRINT PAPER 0; INK 7;AT N.2 

"! NEXT N: GOTO 200 

500 FOR N=32000 TO 32284: READ 

A: PRINT N , A : NEXT N 

505 LET N=32069: POKE 23728, N- 

256*INT (N/256): POKE 23729. 

INT (N/256) 

510 RETtJRN 

520 DATA 33,6,72,58.129,92.203 

.127.40.5.203.191,33.22.72.221 

,42.176.92,17.72.0.254,0,40 

530 DATA 8.254.1.40,2.221,25, 

221.25.221,229.209,6.3.197.229 

.6,8,197,1.3,0.235,237.176,2 35 

,36,1,3,0 

540 DATA 237,66.193.16,239.225 

.1.32,0.9.193.16,227,201 

550 DATA 0,0,0,0,0,0.0.0.0.0.0 

.0.0,30,0.0.97.128.3.129.192.4 

,15,225.10.56,112,21.32.48,30. 

192.16.11,160,16,7.120,32 

560 DATA 3,181,96,1,234.192.0, 

25 5. 12B, 0,0, 0.0. 0.0. 0.0. 0.0.0, 

0,0.0,0,0,0.0.0.0,0.0,0,0 

570 DATA 0,16.0,0.56.0.0,124,0 

,0,254,0. 1,223,0,3,111.128,7, 

191,192,14.219.224.2 7.109,240. 

5 3,254.248,106.219.112,245,109 

,224,122 

5B0 DATA 190.192,61.91.128,30. 

239,0.15,182.0.7,92.0.2,232,0. 

1.240,0,0.224,0.0,0,0 

590 DATA 0,0,0,0.0,0.0.0.0 

600 DATA 0.0.0.0,0.0.0.0.56,0. 

0.104,0,0,208.0.1,160.0.3.64,0 

,6, 128. 0,13. 0.0, 26. 0,0, 52. 0,1, 

232.0.63,48,0 

610 DATA 100,32,0,196,96.0,201 
,192.0.115,96,0.6,32,0.4.32.0, 

6, 64, 0,3. 128,0.0.0,0,0,0,0.0,0 
.0 

■ ■ 

5 CLEAR 1000:PMODE 3,1: COLOR 4, 
2 : PCLS 

6 GOSUB 1000 

7 C-8*ATN(l)/3 

10 DIM H (3, 2) ,X(2) ,Q(3, 3) .CÍ2.3 
) ,A(2,3) ,P(3.3) :CLS 
20 FOR 1-1 TO 3:H(I,l)--COS((I- 
2)*C) :H(I,2)=-SIN({I-2)*C) : NEXT 
30 FOR T=l TO 3:FOR J=l TO 2:A( 
J,T)-0:C(J,T)-.Q1:NEXT J.T 
40 PRINT-DIGITE O FATOR DE ESQU 
ECIMENTO. INTERVALO PERMITIDO 
0 A 1. ' 

50 PRINT"0=SEM MEMORIA ALEM DE 
1 JOGADA" : PRINT" 1=ESTRATEGIA FI 
XA" 

60 PRINT"VALOR SUGERIDO- . 85" : IN 
PUT W 

70 FOR 1-1 TO 3:FOR J=l TO 3 : FO 
R J-l TO 3iP(I,J)-SGN(I-J-3*INT 
(U-J+1.5)/3)) : NEXT J.I 
80 S-0 :U2-0 :WW = 0 :U3-0 
100 V-RND(3) 

110 COLOR 4:PCLS:LINE{8.20)-<24 



Ill ■■■■■■ 
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7.171) .PSET.B 

120 DRAWBM34 , 10S4C4" : FOH K = l T 
O 3:DRAU NS(K)+E$+AS(K)+"BR4" :N 
EXT 

140 GOTO 400 

200 FOR T-l TO 3:I-U 

210 IF{U2-0 AND T = 2) OH ÍU3-Q A 

ND T=3) THEN 280 

220 IF T-2 THEN J>- !U=U2) -2* (U- 

W) -3*({UOU2)AND(U«W) ) 

230 IF T-3 THEN I— {U-U3) -2* ÍU= 

V3) -3* ( [UOU3] AND (UOV3) ) 

240 FOR J-l TO 2:A(J,T)-A(J.T)* 

W+H(I,J) :C(J.T)-C(J,T)*W+3*H{I. 

J)*H(I,J)+.01 

250 X(J)-A(J.T)/C{J,T) :NEXT 
260 FOR 1-1 TO 3:Q(I.T)-1/3:F0H 
K-l TO 2:Q<I.T)=Q(I,T)+X(K)*H( 
I.K) : NEXT K.I 

280 NEXT:U2-U:VV=V:IF U-V THEN 
VV-U+l-3*INT[U/3) 

290 IF UOV THEN U3-U:V3-V:IF P 
(U3.V3X0 THEN WW-U3 : U3-V3 : V3-W 
U 

300 X— 1E30:FOR T-l TO 3:IF(T-2 
AND U2-0) OH {T-3 AND U3-0) TH 
EN 370 

310 ON T GOTO 350,320,340 

320 WW-6-U2-VV:Ql-Q(l,T) :Q2-QÍ2 

,T) :Q3-Q {3 . T) :Q (U2 ,T) -Ql :Q (VV.T 

)-Q2:Q(WW,T)-Q3 

330 GOTO 350 

340 WW-6-U3-V3:Ql-Q(l.T) :Q2-Q(2 
,T) :Q3-Q(3,T) : Q í U3 , T) -Ql : Q (V3 , T 
)-Q2:B<WW,T)-Q3 

350 FOR G-l TO 3:P-0:FOR 1-1 TO 
3:P-P+P(G,I)*Q(I,T) :NEXT:IF P> 
X THEN X-P:V-G 
360 NEXT G 
370 NEXT T 

400 ECREEN 1,0: DRAWBMl 2 , 30 "+YS 
+SS 

410 A$-INKEYS:IF AS<"1" OR A$>" 
3" THEN 410 

420 U-VAL(AS) :DHAW AS(U)+"BM142 
.30"+IS+SS+AS(V) 

430 X-44:Y-90:ON U GOSUB 600,61 
0,620 

435 X-170:ON V GOSUB 700,710,72 

0 

440 LINEÍ80, 175) -(240. 190) . PHES 

ET.BF:S-S+P(U,V) : DRAWBM80 . 180B 

D4R5U2L4U2R4BR8L4D4R4BR4U4R4D4N 

L4BR4U4R4D2L2DFBR9L4U2NR4U2R4BR 

8BU2S8" :GOSUB 800:DRAWS4" 

450 IF U-U THEN DRAWBM100 , 160C 

3"+DS:GOTO 490 

460 IFÍU-3 AND V-2) OR (U2 AND 
V-l) OB (U=l AND V-3) THEN DRAW 
"BM30, 160C3"+YS+WS :GOTO 490 
470 DRAW"BM160.160C1"+IS+W$ 
490 FOR K-l TO 1000 : NEXT : LINE {1 
O, 22) -{245, 169) . PRESET.BF 
500 GOTO 200 

600 PUT(X,Y)-{X+40,Y+38) .PA.PSE 
T ! RETURN 

610 PUT(X.Y)- (X+40, Y+38) , SC, PSE 
T ! RETURN 

620 PUT(X.Y)-(X+40.Y+38) .ST.PSE 
T ; RETURN 

700 PUT (X . Y) - (X+40 , Y+38) , PA, AND 
: RETURN 



710 PUT{X,Y)-(X+40.y+38) , SC. AND 
: RETURN 

720 PUT (X , Y) - (X+40 , Y+38) . ST , AND 
: RETURN 

800 FOR K-l TO LEN (STR$ (S) ) 
610 BS^MIDSÍSTRStS) ,K.l) : IF B$ = 
THEN DRAWBF2R4BE2" :GOTO 83 

0 

820 IF BS<"0" OR BS>"9" THEN 83 
0 

B25 DRAU NS(VAL{BS)) 
830 NEXT : RETURN 

1000 FOR 1-0 TO 9 ! READ N$U):NE 
XT 

1010 DATA NR2D4R2U4BR2 , BDEND4BR 
2 . R2D2L2D2H2BU4BR2 , NR2BD2NR2BD2 
R2U4BR2 , D2R2D2U4BR2 , NR2D2R2D2L2 
BE4 , D4R2U2L2BE2BR2 , R2ND4BR2 , NR2 
D4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 
1015 DIM PA(39) ,SC(39) ,ST(39) 
1020 DRAWBMO,22C3M22,OM40.16M2 
0, 38L4M0. 22- : PAINT {20 . 20) 
10)0 DRAWBM32. 20C2S6H4BH2HBG2F 
4BFF3BL4H2BHH2BL3F2BF2F3BD3H2BH 
3H2- 

1040 GET(0,0)-(40.38) ,PA,G 
1050 DRAWBM50 . 30C3URUHUR5S4UNR 
6US8R3URNE8UE7R2G2DG6LD2LD2FDGL 
GL2ULUEERE2L2DBM-3 , -2D2G2L2U2" 
1060 GET(50.0)-(90.38) ,SC,G 
1070 DRAWBMl 28 , 6L 3GLGL2G3DF5R8 
E2UEU3H3LU" : PAINT {124 , 16) 
1080 DRAWBMl 28 , 8C2L3GLGNL2DFRU 
ERER2U":PAINT(122.10) : DRAWBMl 3 
4, 14L3GLNG3D2RNF2R4NG2EUH" : PAIN 
T{130,18) 

1090 GET{100,0)-{140.38) ,ST.G 

1100 E$="BR2BDNR3BD2R3BE3BR" 

1102 AS(1)-"NR2D4U2R4U2BF4U2NR2 

U2H4D4BR4U2NU2R5U2NL2BRBL4D2NR2 

D2R4BR3U4R4D2LDFRBE4" 

1104 A$(2)-"BD4R4U2L3U2R4BR8L4D 

4R4BR4U4BR8L4D2R3D2L3BR7R4U2L3U 

2R4BR3ND4R5D4NL2BR3U4R4D2LDFBR5 

R3U2L3U2R4BR2" 

1110 A$(3)-'BD4H4U2L3U2R4BR3R3N 
D4R2BR3NR5D4R5U4BR4ND4F3RFU4BF4 
NR4U2NR2U2R5BR3" 

1120 IS="ND4BR6-:YS-"C4F2ND2RE2 

BR3D4R4U4LBR6D4R3U4BR6" 

1130 WS-"D4RERERFRFU4BR4ND4BR5N 

D4F2RF2U4" 

1140 S$=-BD4R4U2L3U2R4BR3ND4R4D 

2NLD2BR4U4BR4D4R3EU2HBR9" 

1150 D$="ND4R4D2NLD2BR7U4R2FD2G 

BR5U4R4D2LDFBR4U4R4D2LF2BR3NU4E 

RERFRFU4" 

1200 RETURN 

Nas versões para o MSX, o Apple e 
o TK-2000 não há apresentação de 
gráficos. 

VU 

6 GOSUB 1000 

7 C-8*ATN(l)/3:NU-0:NV-0 

10 DIM H(3,2) ,X(2) .0(3.3) . C ( 2 . 3 
) ,A(2.3) ,P(3,3) 
20 FOR 1-1 TO 3 

25 H(I,l)--COS [ (I-2)*C) :H(I,2) 
— 8IN({I-2)*C) 
27 NEXT I 



30 FOR T-l TO 3:FOR J-l TO 2:A( 
J.T)-0:C(J.T)=0.01:NEXT J:NEXT 
T 

35 LOCATE 0,4 

40 PR1NT "FATOR DE ESQUECIMENTO 

A SER USADO" 
45 PRINT: PRINT "VALOR ENTRE 0 E 

1 :" 

50 PRINT "0 - MEMORIA DE 1 JOGO 

APENAS" : PRINT "1 - ESTRATÉGIA 
INVARIÁVEL" 

60 PRINT "VALOR SUGERIDO - 0.65 

65 PRINTtPHINT "VALOR " ; : INPUT 
W 

67 FOR 1=4 TO 11: LOCATE 0,1 

68 PRINT " 

69 NEXT I 

70 FOR 1=1 TO 3: FOR J=l TO 3 
72 P(I,J)-1 

75 IF I-J-3«INT(<I-J+1.5)/3)<0 

THEN P(I,J)— 1 

77 NEXT J:NEXT I 

80 S=0:U2=0:MW=0:U3=0 

100 V=INT(3*RND(1) ) +1 

120 LOCATE 3,4:PRINT "VOCE" 

130 LOCATE 20,4:PRINT "EU" 

140 GOTO 400 

200 FOR T=l TO 3:I-U 

210 IF (U2=0 AND T=2) OR [U3=0 

AND T>3) THEN 270 

220 IF T-2 THEN I— (U-U2) -2* (U- 

VV) -3* ( (UOU2) AND (UOUV) ) 

230 IF T-3 THEN I— (U-U3) -2" (U« 

V3)-3«{(UOU3) AND (UOV3) ) 

240 FOR J-l TO 2 : LET A(J.T)-A(J 

.T)*W+H{I,J) 

245 C(J.T)-C(J,T)"W+3*H(I,J)* 
H(I, JJ+0-01 

250 LET X(J)=A(J,T)/C(J.T) :NEXT 

J 

260 FOR 1=1 TO 3:Q(I.T)=I/3:FOR 

K=l TO 2 
265 Q{I,T)=QII,T)+X(K)"H(I.K) ■ 
NEXT K : NEXT I 
270 NEXT T 
280 U2 = U:W*V 

285 IF U=V THEN VV=U+1-3*INT (U/ 
3) 

290 IF UOV THEN U3=U:V3=V:IF P 
{U3.V3X0 THEN WU=U3 :U3=V3 : V3=W 
U 

300 X=-9999999:F0R T=l TO 3 

305 IF (T=2 AND U2=-0) OR (T=3 A 

ND U3=0) THEN 370 

310 ON T GOTO 350,320.340 

320 yw=6-U2-VV:Ql=Q(l,T) :Q2- 

QÍ2.T) :Q3=Q(3,T) 

325 Q(U2,T)=Q1:Q(VV,T)=Q2:Q(WW 
,T)»Q3 

330 GOTO 350 

340 UW=6-U3-V3:Q1=Q(1,T) :Q2=Q( 
2,T) :Q3=Q(3,T) 

345 0(U3.T)-Q1:Q(V3,TXÍÍ2:Q(WW 
,T) =Q3 

350 FOR G=l TO 3:P=0:FOR 1=1 TO 
3 

355 LET P=P+P(G,I)*Q(I,T) ! NEXT 
X 

357 IF P>X THEN X-P:V-G 
360 NEXT G 
370 NEXT T 
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400 LOCATE 0,21: PRINT "JOGUE : 1 AND T=3) THEN 270 

-PAPEL 2=TES0UBA 3-PEDRA "; 220 IF T = 2 THEN I = - (U-U2) -2* (U« 

410 AS-INKEYS:IF AS<"1" OH AS>" VV) -3* ( <UOU2) AND (UOW)J 

3" THEN 410 23D IF T=3 THEN I=- (U=U3) -2* {U= 

420 U-VAL(AS) V3) -3« ( (UOU3) AND (UOV3) ) 

425 LOCATE 3,10:PRINT AS (U) 240 FOR J-l TO 2 : LET A(J,T)»A(J 

430 LOCATE 20,10:PBINT A${V) ,T)*W+H(I,J) 

445 S=S+P(U.V) 245 LET C [ J , T) =C ( J , T) *W+3"H {1 . J 

447 LOCATE 12.16:PBINT " ) *H (I . J) +0 . 01 

" : LOCATE 12,16 250 LET X ( J) =A ( J . T) /C { J , T) : NEXT 

450 IF U=U THEN PBINT "EMPATE" : J 

GOTO 490 26C FOR 1-1 TO 3 : Q {I . T) -1/3 : FOR 

460 IF (U=3 AND V = 2) OB (U=2 AN K=l TO 2 

D y=l) OR <U=1 AND V=3) THEN PB 265 LET 0 (I , T) =íí [I , T) +X (K) *H í I , 

INT "VOCE GANHOU ! " : NU=NU+1 :GOT K) : NEXT K ! NEXT I 

O 490 270 NEXT T 

470 PBINT "GANHEI !":NV«NV+1 260 LET U2 = U:W-V 

490 LOCATE 3,1B:PRINT NUtLOCATE 285 IF U-V THEN VV-U+1 -3*INT (U/ 

20,ia:PRINT NV 3) 
500 GOTO 200 290 IF UOV THEN U3=U:V3=V:IF P 

1000 LET AS(1)="PAPEL ":AS(2)= (U3.V3K0 THEN WW-U3 I U3 - 

"TESOURA":AS(3)="PEDRA " V3:V3=WW 

1010 CLS 300 LET X~9999999:F0R T'l TO 3 

1020 PHINT "PAPEL - P E D 305 IF (T-2 AND U2-0) OR (T«3 A 

BA-TESOURA" ND U3 = 0) THEN 370 

1030 PHINT ■—-»«----—--—-- 310 ON T GOTO 350.320,340 

= = = = = = = =, = = ».«=== = ===» 320 LET UU = 6-U2-VV:Q1-Q(1.T) :Q2 

1040 LOCATE 0.20 -Q (2 . T) : Q3-Q (3 . T) 

1050 PRINT 325 LET Q (U2 . T) -Ql : Q <VV . T) 'Q2 : Q 

o. „..«.-- [WW.T) -03 

1200 RETURN 330 GOTO 350 

340 LET WU=6-U3-V3:Q1=Q(1,T) :Q2 
fiíirTFl -QÍ2.T) :Q3-Q(3,T) 

Lmj LWJ 345 LET Q(U3.T}=Q1:Q(V3,T)=Q2:Q 

6 G09UB 1000 (WW.T) -«3 

7 LET C=8«ATN(1)/3:NU=0:NV=0 350 FOR G- 1 TO 3:P-0:FOR 1-1 TO 
10 DIM H(3, 2) .X(2) ,Q{3, 3) ,C(2, 3 3 

) ,A(2.3) .P(3, 3) 355 LET P=P+P(G.I)*Qtl,T) ! NEXT 

20 FOR 1=1 TO 3 I 

25 LET H(I,l)=-COS((I-2)-C) :H(I 357 IF P>X THEN X=P:V=G 

.2)— 3IN( (1-2) «O 360 NEXT G 

27 NEXT I 370 NEXT T 

30 FOR T=l TO 3-FOR J=l TO 2-AC 400 VTAB 2 1 ; HTAB 1 : PRINT" JOGUE : 
J,T)=0-C(J,T)=0.01-NEXT J: 1=PAPEL 2-TESOUBA 3 = P E DHA " ; 

NEXT T 410 GET AS:IF AS<"1" OR AS>"3" 

35 VTAB 4: HTAB 1 THEN 410 

40 PRINT "FATOR DE ESQUECIMENTO 420 LET U=VAL (AS) 

A SER USADO" 425 VTAB 10: HTAB 3 ! PHINT AS (U) 

45 PRINT ' PRINT "VALOR ENTRE 0 E 430 VTAB 10 : HTAB 20:PRINT AS (V) 
445 LET S-S+P(U.V) 
447 VTAB 16 : HTAB 12:PRINT " 
" : VTAB 16: HTAB 12 
450 IF U=V THEN PRINT "EMPATE" ! 

GOTO 490 
460 IF (U=3 AND V=2) OR (U=2 AN 
D V-l) OR {U-l AND V-3)THEN 
PRINT "VOCE GANHOU !":NU=NU 
+l:GOTO 490 
470 PRINT "GANHEI !":NV-NV-H 
490 VTAB 18 : HTAB 3 : PRINT NU 

VTAB 18 : HTAB 20:PRINT NV 
500 GOTO 200 

1000 LET AS(1)="PAPEL ":AS(2)- 

" TESOURA" : AS (3) ="PE DBA " 
1010 HOME 

1020 PRINT "PAPEL - PED 

RA-TESOURA" 
1030 PRINT "=================== 



50 PRINT "0 = MEMORIA DE 1 JOGO 
APENAS" : PRINT "1 - ESTRATEGI 
A INVARIÁVEL" 

60 PRINT "VALOR SUGERIDO = 0.85 



65 PRINT: PRINT "VALOR 1 



:INPUT 



69 NEXT I 

70 FOR 1=1 TO 3:FOR J=l TO 3 
72 LET P(I.J)=1 

75 IF I-J-3*INT((I-J+1.5)/3)<0 

THEN P(I,J)=-1 
77 NEXT J:NEXT I 
60 LET S=Q:U2=0:WW=0:U3=0 
100 LET V=INT(3*RND(1) )+l 
120 VTAB 4 ! HTAB 3:PRINT "VOCE" 
130 VTAB 4 : HTAB 20:PRINT "EU" 
140 GOTO 400 
I 200 FOR T=l TO 3:I=U 
210 IF (U2=0 AND T=2) OR (U3=0 



1200 RETURN 



Soma cumulativa é a técnica usada 
para analisar o desempenho do oponen- 
te num período de tempo em que se re- 
gistram mudanças bruscas de respostas. 

Os gráficos empregados pelo progra- 
ma são iguais aos do programa anterioi 
(apenas nas versões para o TRS-Coloi 
e Spectrum. Nas versões para o MSX, 
Apple e TK-2000, a parte comum entre 
os dois programas se refere à apresen- 
tação dos resultados). Assim, as linhas 
de programa correspondentes à seção re- 
lativa à apresentação dos resultados não 
mudam, devendo ser incorporadas ao 
novo programa como estão. 

Como no programa anterior, o joga- 
dor deve entrar uma informação que re- 
gula a tática do computador (um núme- 
ro entre 1 e 9999). 



Use as linhas 520 a 610 do programa 
anterior e acrescente estas: 

5 CLEAR 31999: GOSUB 500: 
BORDER 0: PAPER 0: INK 7: 
CLS 

7 DIM AS(3,9): LET AS(1)-"PE 
DBA": LET AS (2) ="PAPEL" r LET 
AS(3)-"TES0URA" 
10 DIM B(3): DIM U{3): DIM S( 
3) : DIM H(3,2) : DIM X(3) : DIM 
Q{3) : DIM P(3.3) : DIM M(3) 
15 LET MM=60: DIM A(3.MM): 
DIM Z(MM) 

20 FOR 1-1 TO 3: LET H(I,1) — 
COS ( (1-2) *PI*2/3) : LET H(I,2 
>— SIN ((I-2)*PI*2/3) : NEXT I 
30 LET M{1)-1: LET M(2)-0: 
LET M(3)-0 

40 INPUT "DIGITE RAZÃO DE SEM 
ELHANCA PARA CADA JOGADA (1 A 

9999) . 1-NOVA ESTRATÉGIA PA 
RA CADA JOGADA. 9999=MESMA 

ESTRATÉGIA. " ;W 
70 FOR 1-1 TO 3: FOR J=l TO 3 
: LET P(I.J)=SGN (I-J-3MNT ( 
(I-J+1.5J/3)) : NEXT J: NEXT I 
: LET S-0 

80 LET NN = 0: LET U-l: LET S=0 
: LET U2=0: LET WW=0 : LET U3=0 
100 LET V-INT (RND*3)+1 
110 PRINT INK 6: PAPER 2;" 1 
= PEDRA , 2=PAPEL. 3=TESOURA " 
120 INK 6: PLOT 8.167: DRAW 
239.0: DRAW 0,-159: DRAW -239. 
0: DRAW 0,159 
130 GOTO 400 

200 LET Y--1E30: LET Z=-1E30 : 
FOR T=l TO 3: LET I=U : IF T=l 
THEN GOTO 230 

210 IF {U2=0 AND T=2) OR (U3=0 
AND T-3) THEN GOTO 264 
220 IF T-2 THEN LET I=ABS ( (U 
-U2)-2*(U-VV)-3*((UOU2) AND ( 
UOVV) ) ) 
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230 IF T-3 THEN LET I-ABS ( (U 
=U3)-2«(U-V3)-3*< (UOU3) AND ( 
UOU3) ) ) 

240 LET MT,M(T))-I 

250 FOR J-l TO 3: LET B(J)-0: 

NEXT"J: LET N-0: LET N2-MU) 

252 FOR M-M(T) TO 1 STEP -1: 

LET B(A(T,M))-B(A(T.M))+1: LET 

N-N+l : LET N2-N2-1 

256 FOR J-l TO 3: LET Q(J)-B(J 

)/N: LET X(J)-Q<J)-<-(Q{J)-0) : 

NEXT J 

258 LET Q-B(1)*LN (JC ( 1 ) ) +B ( 2 > • 
LN (X(2>)*B(3)*LN (X(3)) i IF 
NN>1 AND N2O0 THEN LET O-Q+Z 

tmi 

260 IF Q>2 THEN LET Z=Q: LET 
S (1 ) =Q ( 11 - LET S ( 2) a Q ( 2) : LET 
S(3)-Q<3): LET SS-T: LET NN=N2 
262 NEXT M : IF Q>Y THEN LET Y 
-Q: LET TT-T: LET U ( 1 ) -Q ( 1 J : 
LET U(1)=Q(2): LET U(3)=Q(3) 
264 NEXT T: LET T-TT: LET Z(M( 
1))-Y: LET Q(1)-U{1): LET Q{2) 
-U{2) : LET Q{3)-U(3) 
270 LET U2-U: LET VV=V: IF U2 = 
VV THEN LET VV-U2+1- 3*INT (U2 
/3) 

272 IF UOV THEN LET U3-U: 
LET V3=V: IF P<U3,V3)<0 THEN 
LET WW-U3: LET U3-V3: LET V3= 
UU 

274 LET M(1)=M(1)+1: LET M(2)= 
M(2)+(U2>0): LET M(3)=M(3)=(U3 
>0) 

280 IF Q>Z-LN (U) THEN GOTO 
300 

282 FOR T-l TO 3: FOR M-NN+1 
TO M{T): LET A (T ,M-NN) =A (T . M> : 
NEXT M 

284 LET M(T) = (NN-M(T) )*(-l« ( IM 
(T) >NN) ) ) ! NEXT T 
286 LET T-TT: LET OU)-S(l): 
LET Q(2)=S(2): LET Q(3)-S(3) 
290 FOR M-l TO M(l)-1: LET 2 (M 
)— 1E30: NEXT M: LET Z(M{1)>=Q 
300 LET X=-1E30 

310 IF T=l THEN GOTO 350 

311 IF T=2 THEN GOTO 320 

312 IF T=3 THEN GOTO 340 

320 LET WW-6-U2-VV: LET Q1=QÍ1 
): LET Q2-Q<2): LET Q3=Q(3): 
LET 0(U2)=Ol: LET Q{W)=Q2: 
LET QÍWW) = Q3 
3 30 GOTO 350 

340 LET WW = 6-U3-V3: LET Q1 = QU 
) i LET Q2-Q12) : LET 03=0.(3) : 
LET 0<U3)-Q1: LET Q(V3)-Q2: 
LET Q{UU) =Q3 

350 FOR G-l TO 3: LET P=0 : FOR 
1-1 TO 3: LET P-P+P <G . I ) *Q ( I ) : 
NEXT I: IF P>X THEN LET X-P: 
LET y-G 
360 NEXT G 

400 1NK 7: PRINT AT 2,4;"VOCE 
DISSE " 

405 FOR M--3 TO 16: SOUND .01, 
H: NEXT M 

410 LET KS-INKEYS: IF KS-"" 

THEN GOTO 410 
■ 412 IF KS<"1" OR KS>"3" THEN 
I GOTO 410 



415 LET U-VAL K5 

420 PRINT AT 3,4:AS(U);AT 2,21 

; INK 5:"EU DISSE " ; AT 3,21;AS 

(V) 

430 POKE 23681, U-l: LET O-USR 
32000: POKE 23681, 127+V: LET O 
-USR 32000 

440 LET S-S+P{U.V): PRINT AT 
16,8: "SEU PLACAR E * ; S ; " 
450 INVERSE 1: IF V-U THEN 
PRINT AT 18.10;" UM EMPATE ": 
GOTO 490 

460 IF <U = 3 AND V-2) OR (U-2 
AND V-l) OR (U-l AND V-3) THEN 

PRINT AT 18,10;" VOCE VENCEU 
" : GOTO 490 

470 PRINT AT 18.10;" EU VENCI 

490 INVERSE 0: FOR D-l TO 2: 
PAUSE 0: NEXT D: FOR N=2 TO 18 
: PRINT PAPER 0: INK 7;AT N.2 

■ NEXT N: GOTO 200 

500 FOR N=32000 TO 32284: READ 

A: POKE N.A: NEXT N 

505 LET N-32069: POKE 23728, N- 

256MNT (N/256): POKE 23729. 

INT (N/256) 

510 RETURN 



Apague o programa anterior até a li- 
nha 435 e digite: 

5 CLEAR 1000:PMODE 3.1: COLOR 4. 
2 : PCLS 

6 GOSUB 1000 

7 C-8*ATN(l)/3 

10 DIM B(3) .U(3) ,S(3) ,H(3,2) ,X{ 

3) ,Q<3) ,P(3,3) .M(3) 

15 MM-60:DIM A(3,MM) , Z (MM) 

20 FOR 1-1 TO 3:H(I,l)--COS((I- 

2)"C) :H(I.2)— SIN((I-2)*C) : NEXT 

30 M(l)-1 

40 CLS:INPUT"DIGITE RA2A0 DE SE 
MELHANCA PARA CADA JOGADA (1 A 
9999) . 1-NOVA ESTRATÉGIA PARA 
CADA JOGADA . 9999-MESMA ESTR 
ATEGIA. ";W 

70 FOR 1-1 TO 3:FOR J-l TO 3:P< 

I , J)-SGN(I-J-3*INT( (I-J+1.5J/3) 

) : NEXT J,I 

80 U-l 

100 V-RNDÍ3) 

110 COLOR 4:PCLS:LINE{8.20)-(24 
7,171) .PSET.B 

120 DRAWBM34.10S4C4" : FOR K-l T 
O 3:DRAW NS (K) +ES+AS (K) +"BR4" : N 
EXT 

140 GOTO 400 

200 Y--1E30:Z--1E30:FOR T-l TO 

3:I-U:IF T-l THEN 230 

210 IFÍU2-0 AND T-2)OR{U3-0 AND 

T-3) THEN 264 
220 IF T-2 THEN I— (U-U2) -2* (U- 
VV)-3* ( (UOU2)AND(UOW) ) 
230 IF T-3 THEN I-- (U-U3) -2* (U- 
V3)-3*({UOU3)AND(UOV3)) 
240 A(T.M(T))-I 

250 FOR J-l TO 3:B(J)-0:NEXT:N- 
0:N2-M(1) 



252 FOR M-M(T) TO 1 STEP -1:B(A 
(T.M))-B(A(T,M))+1:N-N+1:N2-N2- 
1 

256 FOR J-l TO 3 : Q ( J) -B { J) /N : X ( 
J)-Q<J)-(C{J)-0) : NEXT 
258 Q-B(l)*LOG(X(l)>+B[2)*LOG(X 
(2))+B(3)*LOG(X(3)) : IF NN>0 THE 
N Q-Q+Z(N2) 

260 IF Q>Z THEN Z-Q : S ( 1) -O (1 ) : S 
(2) -0(2) :S(3)-Q<3) :SS-T:NN-N2 
262 NEXT M:IF 0>Y THEN Y-Q:TT-T 
:U(1)-Q(1> :U(2)-Q(2) :U(3)-Q(3Í 
264 NEXT T:T=TT:Z(M(1))-Y:Q(1)- 
U(l) :Q(2)-U(2) :0(3)-U{3) 
270 U2-U:W-V:IF U2>W THEN W- 
U2+l-3«INT(U2/3) 

272 IF UOV THEN U3-U:V3-V:IF P 
(U3.V3X0 THEN WU-U3 :U3-V3 : V3-W 
I 

274 M(1)-M(1)+1:M(2)-M(2)-(U2>0 

) :M(3)-M(3)-(U3>0) 

280 IF Q>2-LOG!W) THEN 300 

282 FOR T-l TO 3:FOR M-NN+1 TO 

M(T) :A(T,M-NN)-A(T.M) : NEXT 

284 M (T) - (NN-MT) ■ (M (T) >NN) : NEXT 

286 T-TT:Q(1)-S(1) :Q(2)-S(2) :Q( 

3)-S(3) 

290 FOR M-l TO M(1)-1:Z(M>— 1E3 

0:NEXT:Z{M(1))-Q 

300 X— 1E30 

310 ON T GOTO 350.320,340 

320 UW-6-U2-VV:Ql-Q(l) :Q2-Q(2) : 

03-0(3) :0{U2)-Q1:Q(VV)=Q2:0{UW) 

-03 

330 GOTO 350 

340 WW-6-U3-V3:Ql«QU) :Q2-Q(2) : 
Q3-Q{3) :Q(U3)-Q1:Q(V3)-Q2:Q(UW) 
-Q3 

350 FOR G-l TO 3:P-0:FOR 1-1 TO 

3:P-P+P(G,I)*Q(I) :NEXT:IF P>X 
THEN X-P:V-G 
360 NEXT 

400 SCREEN 1,0:DRAW"BM12,30"+YS 
+S9 

410 AS-INKEYS:IF AS<"1" OR AS>" 
3" THEN 410 

420 U-VAL (AS) :DRAW AS(U)+"BMl42 
,30"+IS*SS+AS(V) 

430 X-44:Y-90:ON U GOSUB 600.61 
0,620 

435 X-170:ON V GOSUB 700.710.72 



Apague o programa anterior até a li- 
nha 390 e digite: 

6 GOSUB 1000 

7 C-B*ATN(l)/3:NU-0:NV-0 

10 DIM B{3) ,U(3) ,S(3) .H(3,2) ,X( 

3) ,Q<3) .P(3. 3} .M(3) 

15 MM=60:DIM A { 3 ,MM) , Z (MM) 

20 FOR 1-1 TO 3 

25 H (1,1) — COS( (I-2)«C) :H(I,2) 

— SXN(U-2>*C) 

27 NEXT I 

30 MlD-1 

35 LOCATE 0,4 

40 PRINT "FATOR DE VEROSSIMILHA 
NCA" 

45 PRINT: PRINT "VALOR ENTRE 1 E 
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COMO ENGANAR O COMPUTADOR 

Se você não quiser ser derrotado pe- 
lo computador, precisará lançar mão de 
uma estratégia que neutralize ao má- 
ximo o método de análise utilizado no 
programa. A melhor alternativa, nesse 
caso, é empregar um processo absolu- 
tamente aleatório em suas jogadas. Pa- 
ra isso, rode um pequeno programa de 
sorteio de três números no seu micro, 
e imprima (ou então copie à mão) uma 
longa sequência de jogadas. Seguindo- 
a à risca, o computador não terá nenhu- 
ma chance de prever suas jogadas. Em 
compensação, você também não con- 
seguirá prever as jogadas do com- 
putador! 

Outra técnica para enganar o com- 
putador consiste em mudar continua- 
mente de estratégia. Os resultados, 
aqui, dependerão do programa que vo- 
cê estiver usando. Veja como o com- 
putador "enlouquece"... 



9999 :" 

50 PRINT "1 = NOVA ESTRATÉGIA P 
ARA CADA JOGO": PRINT "9999 - ME 
SM A ESTRATÉGIA" 

65 PRINT : PRINT "VALOR " : : INPUT 
W 

67 FOR 1-4 TO 10:LOCATE 0.1 

68 PHINT " 

69 NEXT I 

70 FOR 1=1 TO 3:FOR J=l TO 3 
72 Ptl. J) =1 

75 IF I-J-3*INT((I-J + 1.5)/3X0 
THEN P(I,J) — 1 
77 NEXT J:NEXT I 
BO 0*1 

100 V=INT(3*RND(1))+1 
120 LOCATE 3.4: PRINT "VOCÊ" 
130 LOCATE 20,4:PRINT "EU" 
140 GOTO 400 

200 Y=-99999:F0R T=l TO 3:I=U 

205 IF T»l THEN 230 

210 IF (U2-0 AND T=2) OR (U3=0 

AND T-3) THEN 264 

220 IF T-2 THEN I = - (U=U2) -2* <U = 

VV)-3*{(UOU2) AND (UOW) ) 

230 IF T=3 THEN I— (U=U3) -2* (U- 

V3)-3*< (UOU3) AND (UOV3)) 

240 A(T,M(T))=I 

250 FOR J-l TO 3:B(J)=0:NEXT J: 
N=0:N2=MU) 

252 FOR M=M (T) TO 1 STEP -1 
254 B(A(T.M))-B(A(T,M))+1:N-N+1 
:N2=N2-1 

256 FOR J-l TO 3 : Q ( J) =B ( J ) /N : X ( 
JJ--0ÍJ) - (0(J)-0) :NEXT J 

258 A=B(.l>*LOG(X(ll )+B(2)*LOC<X 
(2>)+B(3)*LOG(X(3)) 

259 IF NN>0 THEN Q=Q+Z(N2) 

260 IF Q>Z THEN Z-Q : S {1 ) =Q (1) : 3 
( 2 ) -Q2 : S ( 3) -Q3 : SS-T : NN-N2 

262 NEXT M 

263 IF 0>Y THEN Y=Q : TT=T : U (1) =Q 
(1) :U(Z)=Q<2) :U(3)=Q(3) 

264 NEXT T 

265 T=TT:Z(M(1))=Y:Q(1)=U(1> : 
Q(2)=U(Z) :Q{3)=U(3) 

270 U2=U:W=V:IF U2>VV THEN 

VV=U2+l-3*INT(U2/3) 
272 IF UOV THEN U3=U:V3*V:IF P 
{U3.V3X0 THEN UW=U3 : U3=V3 : V3=W 
B 

274 M(1}=M(1)+1:LET M(2)=M{2)-{ 

U2>0) :M(3)=M(3)-(U3>0) 

280 IF Q>Z-L0G(U) THEN 300 

282 FOR T=l TO 3 : FOR M=NN+1 TO 

M(T) 

2B3 A (T.M-NN) =A(T,M) ! NEXT M 
284 M(T)»<NN-MT)MMCT)>NN) : 
NEXT T 

286 T-TT:QU)-S(1) :Q<2)-S(2) : 
Q(3)=S{3) 

290 FOR M-l TO M (1 ) -1 : Z (M) ■ 
-99999: NEXT M 
295 ZfM{l) >-Q 
300 X—99999 

310 ON T GOTO 350.320.340 

320 WW-6-U2-W:01=QU) :Q2-Q(2) : 

Q3=Q(3> 

325 Q(U2)=Q1:Q(VV)'=Q2:(Í(UW)=03 
330 GOTO 350 

340 WW=6-U3-V3:Q1=Q(1) :Q2=Q(2) : 
03=0(3) 



345 Q(U3}=Q1;Q<V3)=Q2:Q<WW)-Q3 

350 FOR G=l TO 3:P=0:FOR 1=1 TO 
3 

355 P-P+P{G,I)*Q{I) : NEXT I 

357 IF P>X THEN X-P:V=G 

360 NEXT G 

HG El 

Apague o programa anterior até a li- 
nha 390 e digite: 

6 GOSUB 1000 

7 LET C-B»ATN(l)/3:NU-0:NV-0 

10 DIM B(3) ,U(3) ,S{3) .H(3.2) ,X{ 

3) .0(3) ,P(3.3) ,M(3) 
15 LET MM=60:DIM A ( 3 . MM) . Z (MM) 
20 FOR 1-1 TO 3 

25 LET H(I. D— COS( (I-2)*C) :H(I 

.2)— SIN{(I-2)"C) 
2 7 NEXT I 
30 LET M(l)-1 
35 VTAB 4 : HTAB 1 

40 PRINT "FATOR DE VEROSSIMILHA 
NCA" 

45 PRINT: PRINT "VALOR ENTRE 1 E 
9999 :" 

50 PRINT "1 - NOVA ESTRATÉGIA P 
ARA CADA JOGO":PRINT "9999 = 
MESMA ESTRATÉGIA" 

65 PRINT : PRINT "VALOR ";: INPUT 
W 

67 FOR 1-4 TO 10:VTAB I : HTAB 1 

68 PRINT " 

69 NEXT I 

70 FOR 1=1 TO 3: FOR J=l TO 3 
72 LET P(I,J)-1 

75 IF I-J-3*INT((I-J+1.5)/3)<0 

THEN P(I,J)=-1 
77 NEXT J:NEXT I 
80 LET U-l 

100 LET -V-INT ( 3*RND (1 ) ) +1 
120 VTAB 4 : HTAB 3 : PRINT "VOCE" 
130 VTAB 4 : HTAB 20 : PRINT "EU" 
140 GOTO 400 

200 LET Y=-99999:FOR T-l TO 3:1 
-U 

205 IF T=l THEN 230 

210 IF (U2-0 AND T-2) OR (U3=0 

AND T=3! THEN 264 
220 IF T=2 THEN I=- (U=U2) -2* (U= 

VV)-3M(UOU2> AND (UOW) ) 
230 IF T-3 THEN I-- (U-U3) -2* {U- 

V3)-3*<(UOU3) AND (UOV3) } 
240 LET A(T,M(T))-I 
250 FOR J-l TO 3:B(J)-0:NEXT J: 

N-0:N2«M{1) 
252 FOR M=M(T) TO 1 STEP -1 
254 LET B(A{T.M))-B(A[T,M))+1:N 

-N+l :N2-N2-1 
256 FOR J = l TO 3 : 0 ( J) =B ( J) /N : X { 

J)=QIJ)-!Q(J)=0) s NEXT J 
25B LET A=B(l)*LOC<X(l))+B[2)*L 

OG(X(2))+B{3)*LOG(X(3)J 

259 IF NN>0 THEN Q=Q+2(N2) 

260 IF Q>2 THEN Z=Q : S (1 ) =Q (1 ) : S 
( 2) =Q2 : 3 ( 3) =Q3 ! S3=T : NN=N2 

262 NEXT M 

263 IF Q>Y THEN Y=Q : TT=T : U (1) =0 
tl) :U(2)=Q{2) :U(3)=Q(3) 

264 NEXT T 



265 LET T=TT:Z(M(1) )=Y:QfI)=UCl 

) :Q(2)=U(2) :Q(3)=U(3) 
270 LET U2=U:VV=V:IF U2>VV THEN 

VV=U2+l-3*INT|U2/3) 
272 IF UOV THEN U3=U:V3=V:IF P 
(U3.V3X0 THEN WH=U3:U3=V3: 
V3=UW 

274 LET M(1)=MU)+1:LET M(2}=M( 

2)-(U2>0) :M(3)=M(3)-[U3>0) 
280 IF Q>Z-LOGÍW) THEN 300 
282 FOR T=l TO 3:FOR M=NN+1 TO 
M(T) 

2B3 LET A(T.M-NN1=A(T,M) : NEXT M 
284 LET M (T) = (NN-MT) * (M £T) >NN) : 
NEXT T 

286 LET T=TT:Q(l)=Stl) :Q(2)=S(2 

) :Q(3)=S(3) 
290 FOR M=l TO M(1)-1:LET Z (M) = 

-99999:NEXT M 
295 LET Z<M[1))=Q 
300 LET x=-99999 
310 ON T GOTO 350,320,340 
320 LET UW = 6-U2-UV:Ql=Cí(D :Q2=Q 

(2) :Q3=Q{3) 
325 LET Q(U2)=Q1:Q(W)-Q2tQ(WW> 

=Q3 

330 GOTO 350 

340 LET WW=6-U3-V3:Q1-Q(1) :02"Q 

(2) :Q3=Q{3) 
345 LET Q(U3)=Q1:Q(V3)=(Í2:Q{UW) 

•03 

350 FOR G=l TO 3:P=0:FOR 1=1 TO 
3 

355 LET P»P+P(G,I)*Q(I) :NEXT I 
357 IF P>X THEN X=P:V=C 
360 NEXT G 
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A MATEMÁTICA DA 



Use seu micro na exploração das formas 
mais fascinantes da geometria de 
dimensões fracionadas, um instrumento 
da matemática que ajuda a explicar as 
irregularidades observadas na natureza. 



Qual é o comprimento de um peda- 
ço de corda? A resposta é muito fácil se 
a corda estiver esticada, pois bastará 
medi-la com uma fita métrica. Caso 
contrário, a tarefa será um pouco mais 
trabalhosa, pois teremos que medir um 
objeto irregular. 

É evidente que, para obter as medi- 
das de um objeto irregular, procurare- 
mos estendê-lo, de modo a simplificar 
o trabalho. Porém, nem todas as coisas 
são suficientemente maleáveis para se 
fazer isso. Como agir então? 

Tomemos como exemplo uma encos- 
ta rochosa com 5 km de extensão. Essa 
medida equivale ao percurso de uma gai- 
vota que voa de uma ponta à outra ou 
à distância que você realmente andaria 
seguindo a linha do mar? Há uma dife- 
rença considerável entre os dois trajetos, 



sendo que a rota que acompanha todas 
as irregularidades é bem maior que a do 
vôo retilíneo do pássaro. 

Mas qual é essa diferença? Suponha- 
mos que temos uma trena bem flexível, 
capaz de se ajustar a todos os porme- 
nores do terreno. Inicialmente, vamos 
nos ater aos grandes acidentes, como a 
foz de um rio ou uma baía. Mas, em 
busca de maior rigor, passaremos a con- 
siderar cada rocha que se projeta ao 
mar, tornando a costa irregular, c, de- 
pois, cada pedra à beira d'água. Por 
fim, levaremos em conta até os grãos de 
areia: se você os observar em detalhe, 
verá que também são irregulares e me- 
recem uma boa inspeção. 

Isso parece um exercício absurdo — 
afinal, ninguém precisa de uma medida 
desse tipo com tamanha precisão. Mas, 



por meio do exemplo dado, pudemos 
constatar algo importante: a exatidão da 
medida de uma superfície irregular de- 
pende do tamanho do instrumento de 
medida de que dispomos. 

A ciência tradicional trabalha com 
modelos de curvas e superfícies lisas. À 
medida que as olhamos mais de perto, 
mais elas adquirem a forma plana — do 
mesmo modo que a superfície da terra 
é aproximadamente esférica e nós a per- 
cebemos como sendo chata. 

Porém, como ficou claro no exemplo 
da costa rochosa, alguns objetos não se 
mostram planos nem quando examina- 
dos de muito perto. E existem muitos 
outros exemplos na natureza de confi- 
gurações que possuem detalhes diferen- 
tes em cada dimensão de sua estrutura. 
Porém, apenas recentemente os cientis- 




uma cópia do pedaço original com o do- 
bro do tamanho. No caso de uma folha 
de papel, porém, serão necessárias ou- 
tras três folhas para se obter uma com 
o formato da original mas com o dobro 
da extensão; com uma barra de rapadu- 
ra, você irá precisar de mais sete cubos. 

Os números 2, 4 e 8 são parte de uma 
sequência formada por meio da multi- 
plicação do 2 por ele mesmo diversas ve- 
zes — 2, 2x2 e 2x2x2, ou 2T1 . 2T2 e 2T3. 
A potência à qual está elevado o 2 equi- 
vale à dimensão do objeto. 

Como vimos, para alcançar o dobro 
de seu tamanho, um objeto unidimen- 
sional (a corda) tem que ser multiplica- 
do por dois; um objeto bidimensional 
(a folha) deve ser multiplicado por qua- 
tro e assim por diante. Suponhamos 
agora que, para duplicar o tamanho de 
certo objeto, sejam necessários três 
exemplares idênticos. Como esse núme- 
ro está entre dois (equivalente a uma di- 
mensão) e quatro (correspondente a 
duas dimensões), deduzimos que a di- 
mensão do objeto está entre I e 2. 

À primeira vista, tal situação parece 
improvável — embora correta, em ter- 
mos lógicos. Mas o estudo das dimen- 
sões fracionadas pode mesmo nos levar 
a resultados surpreendentes. 

O matemático alemão Von Koch foi 
um dos primeiros estudiosos a desenhar 
um diagrama representando esse tipo de 
ocorrência: trata-se da chamada curva 
floco de neve (muito semelhante a um 
floco de neve visto ao microscópio). Ca- 
da um dos lados dessa curva é formado 
por quatro cópias dela mesma, com um 
terço do seu tamanho. A dimensão, nes- 
se caso, é um pouco acima de 1 ,26. Vá- 
rias formas da natureza, como a própria 
costa rochosa, podem ser vistas como 
uma figura dessas. 

Como todos os modelos matemáti- 
cos, a curva de dimensão fracionada — 
de definição muito precisa — não é ca- 
paz de descrever com perfeição a gran- 
de diversidade de objetos naturais, 
limitando-se a uma aproximação. É, po- 
rém, muito útil na explicação de diferen- 
tes estruturas — de veias do corpo hu- 
mano a montanhas, rios ou árvores. 



Voltemos um pouco ao exemplo da 
corda, do papel e da rapadura. Cada um 
desses objetos poderia ser formado por 
várias cópias menores idênticas. Estaría- 
mos então diante de um caso de auto- 
semelhança, onde cada parte do objeto 
é uma cópia menor do original. 

As figuras criadas por Von Koch 
constituem uma aplicação muito rígida 




desse princípio, o que explica a extrema 
regularidade de sua forma. Os exempla- 
res naturais não apresentam necessaria- 
mente auto-semelhança — é fácil cons- 
tatar que um pedaço da casca de uma 
árvore, por exemplo, não é uma peque- 
na cópia da casca inteira. Entretanto, ele 
poderia estar em alguma outra parte da 
casca, pois todos os pedaços se parecem 
muito. Esse fenómeno, denominado 
auto-semelhança estatística, è muito co- 
mum na natureza. 



DIMENSÕES FRACIONADAS E GRÁFICOS 



Como tantos modelos matemáticos, 
esse tipo de curva pode ser programado 
em seu micro para simular a realidade, 
evidenciando algumas de suas caracte- 
rísticas. No estudo dos fractais. especi- 
ficamente, a computação gráfica tem si- 
do amplamente utilizada, oferecendo a 
solução ideal para o problema da gera- 



ção de figuras irregulares, tais como 
montanhas, mares e uma série de outros 
elementos da natureza. 

A recursão constitui um excelente 
meio para a aplicação do princípio da 
auto-semelhança que envolve a constru- 
ção de uma figura através de figuras 
idênticas menores. No caso, uma sub- 
rotina principal se encarregará de dese- 
nhar os vários elementos idênticos em 
diferentes tamanhos. 

Se você quiser obter uma curva seme- 
lhante à curva floco de neve bastará es- 
colher uma figura bem simples e repeti- 
la várias vezes, em diversas escalas, adi- 
cionando mais e mais detalhes a cada ní- 
vel de tamanho. Experimente, por exem- 
plo, tomar uma reta e aplicar a regra que 
prescreve: "toda linha reta deve ser 
substituída por um par de retas em ân- 
gulo reto". 

Se você tentar fazer isso em uma fo- 
lha de papel, verá que a cada passo mais 
detalhes são introduzidos no desenho. 



IIIIIIIIIIIHI 



06MMAÇÃOS 



■ ■■■■■■■■■llll 




1000 LET 1 = 1/1. 414 

1010 TF Kmn THEN I.ET 1 = 1*1.41 

4: LET x-x* ( 1 *SIN (an)): LET Y- 

y-{)*COS Ian)) : DRAW x-PEEK 236 

77,y-PEEK 236/8: RKTUBN 

1020 LET dn=an+PI/4: GOSUB 1000 

1030 let an»an-PI/2: GOSUB 1000 

1040 l.ET -jn-an+Pl/4: LET 1-1*1. 

414: HETURN 



D 



10 PMODE 4,1:PCLS:SCREEN 1.1 
20 MN=2 

30 C=ATN(1)/45:PI-4*ATN(1) 
40 L=120:X-70:Y=140:AN=PI/2 
45 LINE-(X.Y) , PRESET 
50 GOSUB 1000 
60 GOTO 60 
1000 L=L/1.414 

1010 IF L<MN THEN L=L* 1 . 414 : X-X 
+ (L*S1N (AN) ) : Y = Y+ (L*COS (AN) ) : LI 
NE- IX. Y) , PSET : RETURN 
1020 AN-AN+PI/4:GOSUB 1000 
1030 AN=AN-PI/2:GOSUB 1000 
1040 AN=AN*PI/4:L = LML4:RETURN 



3] 



]0 HGR2 
20 MN ■ 2 

30 C. ■ ATN (1) / 45:PI = 4 * 
ATN Cl) 

40 L = 120:X = 70:Y - 14Q:AN - 
PI / 2 

45 HPLOT X.Y TO X.Y 
50 GOSUB 1000 
60 GOTO 60 
1000 L = L / 1.414 
1010 IF L < MN THEN L - L * 1. 
414:X - X + {L * SIN (AN)):Y = 
Y + {L * COS (AN)): HCOLOR- 3 
: HPLOT TO X.Y: RETURN 



1020 AN - AN + PI / 4 
00 

10.30 AN « AN - PI / 2 



GOSUB 10 
GOSUB 10 
L • L * V 



ff/i 



10 SCREEN 2 
20 MN-=2 

30 OATN(l)/4S:PI = 4*ATN(l) 
40 L=120:X=70:Y=140:AN=PI/2 
45 LINE- (X.Y) ,4 
50 GOSUB 1000 
60 GOTO 60 
1000 L=L/1.414 

1010 IF L<MN THEN L=L*1 .41 4 : X=X 

+ (L*STN (AN) ) : Y = Y + (L*COS (AN) ) : LI 

NE -(X.Y) ,11:RETURN 

1020 AN-AN+PI/4 : GOSUB 1000 

1030 AN=AN-PI/2:GOSUB 1000 

1040 AN = AN+PI/4:L = L*1.4M:RETUR 

N 

O programa desenhará na tela uma 
curva em forma de C. Inicialmente, ele 
traça uma rela, que logo é substituída 
por um par de retas em ângulo reto. A 
sub-rotina entre as linhas 1000 e 1040, 
que usa SIN e COS para construir os ân- 
gulos necessários, é chamada na linha 
50. Em um processo recursivo, ela cha- 
ma a si mesma repetidamente, para 
substituir as linhas relas por pares de re- 
tas perpendiculares. 

A variável da linha 20 contém o com- 
primento da linha mais curta — a recur- 
são será encerrada quando alcançar es- 
se valor. Tente mudá-lo e observe o efei- 
to resultante: valores menores aumen- 



O programa que apresentamos a seguir 
faz uma demonsiraçào desse processo. 
Como todos os gráficos elaborados con- 
forme o modelo de dimensão fraciona- 
da, nosso desenho poderia se estender 
infinitamente. Porém, como não temos 
uma capacidade gráfica muito grande, 
os detalhes nos passariam despercebi- 
dos, da mesma maneira que as irregu- 
laridades de um grão de areia. Portan- 
to, o programa irá parar assim que al- 
cançar um certo nível de recursão. 



10 BORDER 0: BRIGHT 1: PAPER 

0: INK 7; CLS 

20 LET ran=2 

30 LET c=PI/180 

40 LET 1=120: LET x=70: LET y 

-50: LET an=PT/2 

45 PLOT INVERSE 1; OVER l;x, 



MODELOS EXPERIMENTAIS 



A principal diferença entre as fi- 
guras de dimensão fracionada gera- 
das no computador e as formas da 
natureza está na irregularidade e de- 
sordem destas úllimas. 

No próximo artigo sobre fractais, 
veremos como acrescentar elementos 
aleatórios ao processo de construção 
das figuras, aproxímando-as mais 
dos modelos naturais. Um dos pro- 
gramas, um gerador de figuras, per- 
mite que se introduza a semente ge- 
radora do desenho — ou seja, uma 
infinidade de formas poderá ser cria- 
da simplesmente variando-se a infor- 
mação inicial. Assim, a cada nova 
execução do programa, você obterá 
uma curva diferente. Uma das mui- 
tas possibilidades é mostrada na ilus- 
tração à direita. 




tam o número de níveis de recursão e, 
em consequência, o lempo de execução. 
Mas, se introduzirmos valores maiores, 
o programa será acelerado e poderemos 
visualizar melhor o processo de elabo- 
ração do gráfico. 

Se você acompanhar o desenvolvi- 
mento da figura na tela com atenção, ve- 
rificará que cada parte da curva se pa- 
rece com a própria curva (princípio da 
auto-semelhança). Apesar disso, não é 
fácil antever, logo no inicio, a forma 
que ela irá adquirir. 



Quando trabalhamos com curvas de 
dimensão fracionada, poucas linhas de 
programa são necessárias para produzir 
uma bela figura — sobretudo se utilizar- 
mos a recursão. Digite e execute o pró- 
ximo programa para obter uma curva 
em forma de dragão. 

No programa anterior, cada reta era 
substituída por um par de retas perpen- 
diculares, traçadas sempre em uma mes- 
ma direção. Neste programa, porém, 
pares de retas são colocados alternada- 
mente de um e de outro lado de cada re- 
ta, até formar a figura final. 



10 BORDER 0: PAPEEI 0; INK 7: 
CLS ! CLEAR 30000: LET S= 
32767: DEF FN A (X) = (X/B-INT ( 
X/6) )*9 

20 LET MN=1: LET A«0 

30 LET C=ATN (D/45: DIM SUO 

) : DIM CUO) 

40 FOB 1-1 TO B: LET SU)=SIN 
A 

50 LET CtI)»COS A: LET A-A+PI 
/4: NEXT I 

60 LET L-128: LET X=52: LET Y 
=80: LET T— 1 : POKE S.T+1: 
LET S-S-l 

65 DBAW INVERSE 1; OVEB 1 ; X- 

PEEK 23677, Y-PEEK 23678 

70 GOSUB 1000 

80 STOP 
1000 LET L=L/1.414 
1010 IF L<MN THEN LET L«L*1.41 
4: LET X-X+(L*C(I)) : LET Y-Y- IL 
*S(I)>! DRAU X-PEEK 2367 7, Y-PEE 
K 23678: RETUHN 

1020 LET I = FN A(I+T): POKE S.T+ 
1: LET S-S-l: LET T=l: GOSUB 10 
00: LET S-S+l: LET T= (PEEK S)-l 
1030 LET I-FN AU-2*T): POKE S, 
T+l: LET S=S-1: LET T=-l : GOSUB 
1000 

1040 LET S-S+l: LET T= (PEEK S) - 
1: LET I^FN A(I+T): LET L=L*1.4 
14: BETURN 



R 200,30000:3=32767 
20 MN-1 

30 C-ATN(1)/45:PI-4*ATN[1) 
40 FOR 1-0 TO 7:S(I)-SIN(A) 
50 C(I)-C0S(A) :A-A+PI/4:NEXT 
60 L-128:X-52:Y-80:T — 1 : POKE S. 
T+1:S-S-1 

65 LINE - (X , Y) , PBESET 
70 GOSUB 1000 
80 GOTO 80 
1000 L=L/1.414 

1010 IF L<MN THEN L=L*1 . 414 : X-X 
+(L*C(I) ) :Y=Y-{L*(S(I) ) : LINE- (X 
,Y) , PSET : RETURN 

1020 I-II+T) AND 7:POKE S,T+1:S 
=S-1 :T-1 :GOSUB 1000 : S-S+l : T=PEE 
K(S)-1 

1030 I-(I-2*T)AND7:POKE S,T+1:S 
-S-l :T--1 rGOSUB 1000 
1040 S-S+1:T-PEEK(S)-1:I-(I+T) 
AND 7:L-L*1.414:RETUBN 



a] 



1.0 S = 90 0 

20 HGR2 :MN = 1 

30 C - ATN (1) / 45: PI " 4 * 

ATN (1) 

40 FOR I - 0 TO 7:S(IJ = SIN 
(A) 

50 C(I) - COS (A) :A = A + PI / 
4: NEXT 

60 L = 128:X = 52:Y - B0:T = - 

1 : POKE S,T+1:S-S-I 
65 HCOLOB= 3: HPt.OT X.Y TO X,Y 

70 GOSUB 1000 

80 GOTO BO 

1000 L = L / 1 .4)4 

1010 IF L < MN THEN L - L * 1 . 

414:X = X + (L * CilD :Y = Y - 

(L * S(I)): HPLOT TO X.Y: RET1J 



(d 



TNT 



1020 : 

T + T) / 8)1 : POKE S.T + 1 :S 
S - 1:T = 1: GOSUB 1000:5! - S 

1 :T = PEEK (S> - 1 
1030 I-((I-2*T)-B* 
T ( (I - 2 * T) / 8) ) ■ POKE S. 
+ 1:3 - S - llt - - 1: GOSUB 
000 

1040 5 - S + l :T = PEEK (tí) 
1:1 = (d + T) AND 7) :[. =■ I. * 
.114: RETURN 



mm 



10 PMODE 4:PCLS:SCBEEN 1,1:CLEA 



10 SCBEEN 2 : CLEAR 200 . 50000 !: S- 

52767! 

20 

30 C=ATNd)/45:PI = 4*ATNCl) 

40 FOR 1=0 TO 7iS(I)=SIN(A) 

50 CtI)=COS(A) :A-A+PT/4:NEXT 

60 L=12B:X-52:Y=80:T=-1:POKE S, 

T+l : S-S-l 

65 LINE -tX,Y) .4 

70 GOSUB 1000 

BO GOTO BO 

1000 L-L/1.414 

1010 IF L<MN THEN L=L*1 . 414 : X=X 
+ (L"C (I ) ) :Y = Y-(L*S(D) :LINE -(X 
,Y) ,H:RETUBN 

1020 I=(I+T) AND 7:POKE S.T+1:S 




Existe alguma aplicação prática para os 
fractais? 

Os fractais são uma descoberta re- 
lativamente recente da matemática e 
das ciências da computação. Assim, há 
muito a ser investigado acerca de seu 
funcionamento e as aplicações práticas 
ainda são bastante restritas. Os frac- 
tais oferecem aos artistas e cientistas 
a possibilidade de representar as for- 
mas irregulares, típicas da natureza, e 
já têm marcado sua presença no mun- 
do das artes gráficas, cinema, televi- 
são etc. Grandes empresas de televi- 
são, por exemplo, estão utilizando frac- 
tais randômicos para gerar em compu- 
tador fantásticas paisagens e cenários, 
terrestres ou extraterrestres. A simu- 
lação fractal apresenta a vantagem de, 
com pequenas mudanças nos parâme- 
tros do programa, produzir efeitos to- 
talmente diferentes na tela. 

Outra aplicação prática interessan- 
te dos fractais ó o desenho de cenários 
complexos em simuladores de võo. A 
Força Aérea norte-americana já dispõe 
de programas que permitem gerar o ce- 
nário de uma batalha aérea entre mon- 
tanhas escarpadas, sobre desertos 
etc, para treinar o piloto de helicópte- 
ros ou caças. 



=S-1 :T=1 :GOSUB 1000 : S-S + l :T=PEE 
K(S)-1 

1030 I-(I-2*T) AND 7 : POKE S.T+1 
:S=S-1:T=-] : GOSUB 1000 
1040 S=S+1 :T=PEEK (S) -1 : 1= (I+T) A 
ND 7:L = L»1.4.)4:BETURN 



Esse programa difere do anterior 
quanto à regra de formação do desenho 
e, também, quanto à velocidade de exe- 
cução. Em vez de elaborar o ângulo ca- 
da vez que um elemento é traçado, o 
programa calcula o seno e o co-seno dos 
ângulos (linhas 40 e 50) e coloca os va- 
lores obtidos em duas matrizes. Recu- 
perar esses valores em uma matriz é bem 
mais rápido que calculá-los sempre que 
uma linha é reconstruída. 

A curva em C e a curva do dragão 
não são apenas curiosidades matemáti- 
cas. Além de muito bonitas, elas cons- 
tituem um interessante objeto de estu- 
do. Procure, por exemplo, alterar al- 
guns valores dentro dos dois programas. 
Você obterá, então, um estoque inesgo- 
tável de novas formas. 
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TELA DE QUARENTA COLUNAS 



VPEEK E VPOKE 



FORMATO DAS LETRAS 



TABELA DE PADRÕES 



NOVOS CARACTERES 



O MSX difere dos demais micros por 
possuir um microprocessador e uma 
memória de dezesseis kbyt.es dedicados 
só ao controle da tela. Desvende os 
segredos da VRAM e sinta a diferença! 



Muitos usuários dos micros MSX en- 
frentam dificuldades em utilizar coman- 
dos como BASE, VPEEK e VPOKE. 
Para melhor aproveitar esses recursos da 
linguagem BASIC, temos inicialmente 
que entender como é organizada a me- 
mória de video — VRAM — , um item 
desprezado pela maioria dos manuais. 

O MSX possui um chip independen- 
te da unidade central de processamento 



(CPU) destinado exclusivamente ao con- 
trole da tela. Conhecido como VDP (Vi- 
deo Display Processar), ele gera imagens 
a partir de dados armazenados nos de- 
zesseis kbytes de uma memória indepen- 
dente da RAM (memória de acesso di- 
re to, onde ficam armazenados o progra- 
ma BASIC e as variáveis). Dessa forma, 
a utilização de gráficos multicoloridos 
de alta resolução não compromete a 
quantidade de memória disponível, co- 
mo acontece com outros micros. 



TELA DE QUARENTA COLUNAS 



Ao ligarmos um microcompuiador 
da linha MSX, observamos uma tela de 
textos em que cada linha acomoda, teo- 



ricamente, quarenta caracteres. Se isso 
não ocorrer em seu micro, digite o co- 
mando SCREEN 0. 

A tela — quer contenha textos, lista- 
gens de programas ou símbolos gráficos 
— - é simplesmente uma reprodução da 
parte da VRAM denominada Tabela de 
Nomes (TN). Essa área da memória de 
vídeo possui 960 bytes de comprimen- 
to, correspondentes aos 960 caracteres 
que podem ser mostrados na tela simul- 
taneamente (são 24 linhas com quaren 
ta caracteres cada uma). 

Cada uma dessas posições pode con 
ter um número qualquer entre 0 e 255. 
número que é interpretado pelo VDP 
como o código ASCII (sigla de Ameri- 
can Standard Codefor Information In- 
terchange) de um caractere. 
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Em qualquer micro, o comando PO- 
KE do BASIC nos permite armazenar 
um número entre 0 e 255 numa posição 
da RAM. Da mesma forma, o conteú- 
do de qualquer endereço da RAM ou da 
ROM é obtido com o comando PEEK. 

Como a VRAM não depende da 
RAM, necessitamos de comandos que 
nos possibilitem ler ou escrever bytes di- 
retamente na memória de vídeo, ou se- 
ja, VPEEK e VPOKE. Experimente es- 
sa nova forma de escrever na te|a: 

10 CLS 

20 VPOKE 417,77 
30 VPOKE 419.83 
40 VPOKE 421 , 88 
50 END 

Esse programa coloca diretamenle 
nas posições 417, 419 e 421 os códigos 
das letras M, S e X. O VDP transforma 
o código da Tabela de Nomes no carac- 
tere correspondente, que é imediatamen- 
te reproduzido na tela. 

Para conferir, digite: 

PRINT VPEEK (417) 
PRIMT VPEEK (419) 
PRINT VPEEK (421) 

Estes comandos diretos recuperam os 
códigos das letras M, S e X diretamenle 
da Tabela de Nomes. Se você não gosia 
muito de códigos, obtenha as letras cor- 
respondentes utilizando: 

PRINT CHRS (VPEEK (417)) 
PRINT CHRS (VPEEK (419)) 
PRINT CHRS (VPEEK (421)) 

Depois de familiarizado com o fun- 
cionamento desses dois comandos, o 
usuário poderá ter acesso às quarenta 
colunas da teia (o que não é possível por 
intermédio do comando PRINT). Mui- 
tos leitores já devem ter observado que 
o texto começa a ser escrito a partir da 
segunda coluna, reduzindo, portanto, o 
espaço total em uma coluna. 

Para ilustrar isso, note que 
LOCATE 0. 10:PRINT " * " 

imprime um asterisco na segunda colu- 
na, deixando um espaço vazio à esquer- 
da, enquanto os comandos 
LOCATE 36.10:PRINT 



LOCATE 39,11:PRINT 

imprimem asteriscos na mesma coluna. 

Use o seguinte programa para ocupar 
a primeira coluna da tela: 
I 10 SCREEN 0:KE¥ OFF 



20 FOR 1 = 0 TO 95 1 ) 5TEP 40 
30 VPOKE BASE (0) +1 , 207 
40 NEXT 

A linha 10 seleciona a tela de textos 
e apaga os rótulos das teclas de função 
da parte inferior do vídeo. Um laço 
FOR.. NEXT entre as linhas 20 e 40 co- 
loca várias vezes o caractere de código 
207 na primeira posição de cada linha. 
Deve-se ressaltar que, apesar de termos 
usado a instrução BASE(0) na linha 30, 
ela é perfeitamente dispensável, uma vez 
que seu valor è zero. 



COMO SE DESENHAM AS LETRAS 



Vimos até agora que, ao se colocar um 
número dentro da Tabela de Nomes, o 
VDP imediatamente o interpreta como 
o código ASCII de uma letra ou de um 
símbolo. Como o processador sabe o for- 
mato década uma das letras do alfabeto? 

O leitor já deve ter notado que as le- 
tras que aparecem no vídeo da TV são 
compostas por pequenos pontos. Cada 
caractere tem seu perfil — ou padrão — 
desenhado em um quadrado com oito 
pontos de lado. Este padrão é codifica- 
do em números binários (formados por 
zeros e uns), a fim de que o computa- 
dor possa compreendê-lo. Se fizermos 
com que os "uns" correspondam aos 
pontos acesos e os "zeros", aos apaga- 
dos, poderemos codificar todos os per- 
fis. Como um número binário entre 0 e 
255 tem no máximo oito algarismos, ca- 
da caractere será representado através de 
uma série de oito números binários me- 
nores que 255, ou seja, oito bytes. 

Para que o VDP reconheça o formato 
dos caracteres, uma porção da VRAM é 
separada para armazenar os 2048 bytes 
necessários para representar os 256 sím- 
bolos existentes (256*8 = 2048). Esta 
parte da memória de vídeo é chamada 
de Tabela de Padrões e começa no en- 
dereço 2048 da VRAM. 



Para que o usuário não confunda os 
endereços da RAM e da VRAM, o BA- 
SIC do MSX oferece a instrução BASE, 
que evita a memorização dos endereços 
e permite modificar a posição das tabe- 
las. Assim, para a tela de textos de qua- 
renta colunas, o endereço inicial da Ta- 
bela de Nomes está em BASE (0) e o da 
Tabela de Padrões em BASE (2). 
Confira: 
PRINT BASEÍ0) 



Visando a uma melhor compreensão 
da Tabela de Padrões, mostraremos um 
pequeno programa que nos facilitará o 
acesso a essa região da VRAM. 

Ao ser executado, o programa impri- 
me na tela a porção da tabela que cor- 
responde a um caractere. São impressos 
também os endereços (com conteúdos 
em números decimal e binário) e o ca- 
ractere com seu código. Dessa forma, o 
leitor entenderá como os números biná- 
rios codificam o formato dos caracteres. 

10 Z$="00000000" 
20 SCREEN 0 : KEY OFF 
30 J = 520 
40 GOSUB100 

50 KS=1NKEVS:TF KS="" THEN 50 
60 TF KS=CHRS(31) AND .X2040 TH 
EN J=J+8 

70 IF KS=CHBS[30) AND J>7 THEN 
J-J-B 



PRINT BASE (2) 
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130 LOCATI 1.6:PRTNT "Endereco" 
;TABU4) ;"Conteljdo";lAB{27) ; "Co 
nteúdo" 

140 PB INT : PRINT TAB (3) ; "VRAM" ; T 
AB (.14) : "Decimal " ;TAR (27) ; "Binár 

150 PRINT 

160 FOR I=J TO J+7 

170 PRINT TAB í 2 ) ; BASE ( 2) +1 ; TAB [ 

15) ;VPEEK<BASE{2)+I) ;TAB(27) ;RI 

GHTS [ZS+BINS (VPEEK(BASE(2)+I) ) , 

8) 



A linha 10 cria uma variável auxiliar 
que permite a conversão decimal/biná- 
rio. A linha 20 seleciona a tela de qua- 
renta colunas e apaga o rodapé com as 
teclas de função. 



A variável J controla a porção da Ta- 
bela de Padrões mostrada na tela, defi- 
nindo o caractere que tem seu padrão 
exibido. Seu valor inicial, determinado 
na linha 30, faz com que a primeira le- 
tra impressa seja o 'A' — cujo código 
é 65 (65*8 = 520). A linha 40 chama a 
sub-rotina que imprime a porção da ta- 
bela que nos interessa. As linhas 50 e 80 
permitem avançar ou retroceder dentro 
da Tabela de Padrões usando as teclas 
de controle do cursor. 

A sub-rotina que cuida da impressão 
dos dados na tela vai da linha 100 à 190. 
As linhas 100 e 1 10 imprimem o carac- 
tere em questão; a linha 120 imprime seu 
código e as linhas 130 a 150 encarregam- 
se do cabeçalho. 

O laço FOR.. NEXT, da linha 160 à 
180, imprime O conteúdo dos oito bytes 
que determinam o padrão do caractere 
e seus endereços na VRAM. 

Depois de uma ligeira exploração da 
Tabela de Padrões, o leitor notará que 




os caracteres gráficos laqueies que não 
são leiras ou sinais dc pontuação) sur- 
gem iruncados no vídeo. A razão disso 
c a incapacidade do MSX de imprimir 
mais que 256 pontos horizontais. Essa 
limitação fica mais evidente quando pre- 
cisamos de uma resolução de 320 pon- 
tos na horizontal para representar qua- 
renta caracteres, cada um com oito pon- 
tos de largura. Assim, quando estamos 
em SCREEN 0, somente são mostrados 
os seis pontos — ou bits — mais à es- 
querda do padrão, suficientes para de- 
finir as leiras mas não os caracteres grá- 
ficos, que muitas vezes utilizam até oi- 
to pontos. 



UM NOVO CONJUNTO DE CARACTERES 



O formato das letras é definido na 
VRAM, e nada nos impede de modificá- 
lo, já que dispomos do comando VPOKE 
para executar tal tarefa. Confira: # 

10 FOR I-65*B TO 91-8-1 

20 READ A:VPOKE BASE (2) +1 ,A 

30 NEXT 

40 FOR 1=97*8 TO 123*8-1 

50 READ A:VPOKE BASE{2)+I,A 

60 NEXT 

70 FOR I=48*B TO 58*8-1 
80 READ A:VPOKE BASE{2)+I.A 
90 NEXT 
100 END 

1000 DATA 120,72,72,200.248,200 



.200, 
1010 



DATA 112,80.80,248,200,200 
0 

DATA 120,72,64,192,192,200 
0 

DATA 112,72.72,200,200.200 
0 

DATA 120,64.64.240,192.192 

0 

DATA 120,64,64.240,192.192 
0 

DATA 120,64,64.216,200,200 
.200.200. 
16,48,46,48,48, 
16.24.152,152.1 
80,224.208.200, 
64,192.192.192, 



,248 
1030 
, 240 
1040 
, 248 
1050 
, 192 
1060 
, 248 

1070 DATA 72,72,72,2 
200,0 

1080 DATA 16,16 



1090 DATA 48 , 16 
20,0 

1100 DATA 7 2,72 
200.0 

1110 DATA 64.64 
248, 0 

1120 DATA 68,108,84,196,196,196 
,196,0 

1130 DATA 72,104.104,216.216.21 
6, 200 , 0 

1140 DATA 120,72.72,200,200,200 
,248,0 

1150 DATA 120,72,72,248,192,192 
.192,0 

1160 DATA 120,72.72.200,200.216 
. 748,4 

1170 DATA 112,72,72,248,208.200 
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,200,0 
1160 DATA 
248.0 
1190 DATA 
• 0 

1200 DATA 
248,0 
1210 DATA 
0,32,0 
1220 DATA 
0,40.0 
1230 DATA 
00,0 

124 0 DATA 
48,0 

1250 DATA 
.248.0 
1260 DATA 
8.0 

12 70 DATA 
00. 248,0 
1280 DATA 
8,0 

1290 DATA 
248,0 

13 00 DATA 
8,0 

1310 DATA 
92,0 

1320 DATA 
200, 248 
1330 DATA 
200,0 
1340 DATA 
1350 DATA 
.120 

1360 DATA 
0,0 

1370 DATA 
,0 

1380 DATA 
68,0 

1390 DATA 
0,0 

1400 DATA 
12,0 

1410 DATA 
2,192 
1420 DATA 
4,24 

1430 DATA 
2.0 

1440 DATA 
. 0 

1450 DATA 
2,0 

1460 DATA 
,0 

14 70 DATA 
.0 

1480 DATA 

0,0 

1490 DATA 



1520 DATA 
,248,0 
1530 DATA 



112 ,80 . 64 ,120 . 24, 152 , 

248, 32 , 32 . 32, 96,96. 96 

72.72,72, 200 , 200, 200 , 

200,200,200.200,200,8 

196.196,212,212,212,4 

80,80.80.32,208.200.2 

136,136.136,80,48,48. 

120,72,16,224,192.200 

0,0.112,16.240,208,24 

128,128.128.240.200,2 

0.0.112,64,192,192,24 

16,16,112,80,208,208, 

0.0.112.80,240.192,24 

48 , BO .64 ,64 . 240 . 192 , 1 

0,240,144.224,64,248, 

64 . 64 .64 . 248. 200 , 200 , 

16,0,16,16,4 
16,0.16.16,2 

0 . 64 . 72 ,80 ,224 , 208. 20 

32,32,32.96,96,96,112 

0,0,128. 208 , 168 . 168 , 1 

0.0,64,112.200,200,20 

0,0,112, 200 , 200 . 200 , 1 

0,0,120.72,200,248,19 

0,0.240.144,144,248,2 

0,0, BO. 104. 192. 192. 19 

0,0,112,64,56.136.248 

32.32,112,32,32.96,11 

0,0.72,72.200,200,248 

0,0,200.200,200,80,32 

0,0,136.168.166,168,8 

0 , 0 ,80 , 80 , 32 , 208, 200 , 

0,0,72,72.46,46,48.0 
0 . 0 ,120 . 8, 112 ,96, 120 , 

120,72,72,216,232,200 

32,96.32,48,48,48,48, 

120 , 72 ,8 , 248. 192 .200 . 



1550 DATA 




16,16. 120,24,152, 




246, 0 






1740 


1560 DATA 




144. 144 , 248. 24,24 




.24.0 






1750 


157 0 DATA 


240 


128 , 128 , 248 .24,24 




.248,0 






1760 


1580 DATA 


112 


64, 64, 248, 200, 200 




,248,0 








1590 DATA 


224 


32 32.48.48,46,48 


92, 0 


, 0 






1780 


1600 DATA 


112 


80,80,248,152,152 


.0 


.248.0 






1790 


1610 DATA 


240 


144, 144 , 248 . 24 , 24 


96,0 


,248,0 






1B00 



O conjunto de leiras futuristas per- 
manece à disposição do usuário até que 
o micro seja desligado ou receba um co- 
mando SCREEN. 

O programa é composto de três laços 
FOR...NEXT e um grande número de 
linhas DATA, cada uma com oito bytes 
que definem o padrão dos símbolos. 

O primeiro laço — que vai da linha 
10 a 30 — modifica os padrões das le- 
tras maiúsculas (códigos ASCII de 65 a 
90). O segundo laço — linhas 40 a 60 
— cuida das minúsculas (códigos 97 a 
122) e o terceiro — linhas 70 a 90 — dos 
números (48 a 57). Não incluímos carac- 
teres acentuados para não estender mui- 
to as linhas DATA. Entretanto, se o lei- 
tor compreender bem o funcionamento 
do programa, não terá dificuldade em 
criá-los, completando assim o conjunto. 

O programa que explora a Tabela de 
Padrões poderá ser aplicado para que se 
conheça mais detalhadamente os carac- 
teres recém-criados. 

Em contraste com o traço de van- 
guarda desses símbolos artificiais, cria- 
mos um segundo conjunto, dessa vez em 
letras de forma. As próximas linhas de- 
verão ser acrescentadas ao programa an- 
terior, formando um maior, que será 
completado no final do artigo. 



1640 DATA 

o 

1650 DATA 
8.0 

1660 DATA 
0 

167 0 DATA 



1720 DATA 
.0 

1730 DATA 



.1 f! 1 0 

2,0 

1820 

0 

L838 
0 

1840 

0 

3. B F> (j 

.0 

186 0 

• D 

1870 
>0 

188 0 



1900 
1910 
1920 
1930 



1950 

4,0 

1960 
0 

1970 
2 

1980 
• D 

1990 
, 0 

;ooo 



120,36.36,56,36,68,24 

24 . 36 .64 ,64 . 64,68, 56, 

120,36,36,36,36,68.24 

24,36,32,56.64,68,56, 

60,72,16,16,60,144.96 

24.36,64,68.68.60,136 

68, 72, 72. 72, 120. 72, ]3 

1,8,16,224,0 
1 ,8 , 136 , 144. 9 

68,72.80,96,80.72,132 

32,64,64.64.64,68.248 



DATA 40.84.84.84,B4,B4,132 

DATA 68,68.100,84.76.68.13 

DATA 24,36.68,68,68,72,48. 

DATA 120,36,36,36,120,32,1 

DATA 24,36,68,68,116,72.52 

DATA 120.36,36,36,120,40,1 

DATA 24,36.64,56.4,136.112 

DATA 124.16,16.16,16,32,19 

DATA 72,72,72,72.72,72,52, 

DATA 76,72.72.72,72.80.32, 

DATA 68.84.84,84,84.84.40. 

DATA 68,36.40.16,40,72,132 

DATA 68,36,36,36.24,16,224 

DATA 60,68,8.124,32.68.248 

DATA 0,0,56,72,136,136,116 

DATA 32,64,64,120,68.66,24 

DATA 0,0,24,36,64.64.188.0 

DATA 4,4,28,36,68.68,168.0 

DATA 0,0.56.68,72.48.220.0 

DATA 8.20,32,32,32.252,32, 

DATA 0.0,60.68.68,184.8,11 

DATA 32,32,40,52,36,100.16 

DATA 16,0,16,16,16.48,204. 

DATA 8.0,24,40,72.140.8.11 

DATA 16,32,36.40,48,40.196 

DATA 16.40,40,40.40,16,236 

DATA 0,0,40.84.84.84.132.0 
DATA 0,0.88.100,68.68,132, 

DATA 0,0.28.36,92.68.184.0 
DATA 0.0.56.36,36.252.32.3 

DATA 0.0,56,68,68,188,4.4 
DATA 0.0,32.60,36.68,132.0 
DATA 0,32,48.40.36,68,152, 

DATA 36,16,124,16,16,48.20 



!(><)() 

2100 
2110 

2120 



DATA 
DATA 
DATA 
DATA 
DATA 



0 , 0.66 ,68,68. 68 . 188 ,0 
0,0.76,72,72,80.160,0 
0 , 0, 196. 84.84 , 84, 40 , 0 
0,0.68,40,16.40,196.0 
0 , 0 , 36, 36. 36 , 252 ,8,11 

i 0,0,124,4,56,64.252,0 
i 24, 36. 76,84 .100 , 72 , 46 

l 8.24,8,16,16,32,112.0 
l 56 ,6B , 36, 8 .48 , 1 00 , 88, 



miiiiiiiHH 
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2190 DATA 60 , 32 . 64 , 120 . 4 . 4 . 120 , 
O 

2200 DATA 12,16,32.120,68.68,56 



2230 DATA 24,36.68.68.56,8.112, 
O 

O programa utilizado é o mesmo, 
com alterações apenas nas linhas DA- 
TA. O comando RESTORE 1620 faz 
com que o comando READ inicie a lei- 
tura a partir da linha DATA 1620. 



MODIFICANDO 0 VAL0R-BASE 



A VRAM tem 16384 bytes de com- 
primento, dos quais utilizamos apenas 
3008 quando estamos no modo 
SCREEN 0 (2048 para a Tabela de Pa- 
drões e 960 para a de nomes). Esse es- 
paço ocioso pode ser aproveitado para 
armazenar conjuntos de caracteres e có- 
pias da tela. O segredo do processo con- 



siste na atribuição de novos valores pa 
ra as instruções BASE(0) e BASE{2). 

As linhas seguintes devem ser adicio 
nadas aos dois programas anteriores 
formando, assim, um terceiro, É neces- 
sário apagar as linhas 5 a 100 com DE- 
LETE 5-100. Além disso, o programa 
precisa ser gravado antes de ser testado, 
a fim de permitir correçôes posteriores, 
no caso de ter ocorrido qualquer erro de 



10 SCREEN 3:SCREEN 0 : KEY OFF 

20 FOR 1=0 TO 2047 

30 A-VPEEK(BASE(2)+I) 

40 VPOKE 4096+1, A 

50 VPOKE 6144 + 1 , A 

60 NEXT 

100 FOR 1=65*8 TO 91*B-1 
110 READ A-UPOKE 4096+T.A 
120 NEXT 

130 FOR 1=97*8 TO 123*8-1 
140 READ AiVPORE 4096+1 , A 
150 NEXT 

160 FOR 1=48*8 TO 58*8-1 
170 READ A; VPOKE 4096+1. A 
180 NEXT 

200 FOR 1=65*8 TO 91*8-1 
210 READ A:VPOKE 6144+1 . A 
220 NEXT 

230 FOR 1=97*8 TO 123*8-1 



240 READ A : VPOKE 6)44+1. A 
250 NEXT 

260 FOR 1=48*8 TO 57*8-1 
270 READ A:VPOKE 6144+1, A 
280 NEXT 

300 J=0:G0SUB 360 

310 FOR J=8192 TO 16300 STEP 10 

24 

320 BASE (0) =J 

330 CS03UB 360 

340 NEXT J 

350 GOTO 420 

360 FOR 1=0 TO 959 

365 IF I>439 AND K560 THEN VPO 

KE BASE(0)+I.32:NEXT 

370 VPOKE BASE(0)+I,194+J/1024 

380 NEXT : A5= " Esta Tela Se Inic 

ia Ero"+STRS ( J) 

390 FOR 1-1 TO LEN (AS) 

400 VPOKE BASE(0)+486+I.ASC(MID 

S (AS.I.l) ) 

410 NEXT : RETURN 

420 BASE(0)=0:BASE[2)=2048 

430 KS=INKEY3-IF KS = "" THEN 430 

440 IF KS-CHR$(31) AND BASE(0)> 

8192 THEN BASE (0) =BASE (0 ) -1024 : 

GOTO 430 

450 IF K$=CHRS(31> AND BASE[0)= 
B192 THEN BASE (0) -0 :GOTO 430 
460 IF KS-CHR$(30) AND BASE<0)> 
0 AND BASE (0) <150Q0 THEN BASE(0 
)-BASE(0)+1024:GOTO 430 
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470 IF KS-CHBSOO) AND BASE (0) - 
0 THEN BASE (0) -8192 : GOTO 430 
480 IF K$=CHR9(29) AND BASE(2)> 
2048 THEN BASE [2 ) -BASE (2) -2048 : 
GOTO 43C 

490 IF KS-CHRS128) AND BASEÍ2K 
6144 THEN BASE { 2 ) -BASE (2) +2048 : 
GOTO 4 30 

500 IF KS^HOS [27) THEN BA.1E (0) 

•0:BASEÍ2)=2048:END 

510 GOTO 430 

O objelivo desse programa é mostrar 
como usar toda a área da VRAM mes- 
mo em SCREEN 0. Ao ser executado, 
o programa gasta um longo período len- 
do as linhas DATA do final da listagem. 
A seguir observamos que o vídeo é 
preenchido sucessivas vezes com carac- 
teres diversos. Uma mensagem aparece 
no centro de cada tela, mas é apagada 
antes que possa ser lida. Isso acontece 
porque o programa está criando, na par- 
te ociosa da VRAM, "telas secundá- 
rias" que, de certa forma, coexistem 
com as demais telas. Elas podem ser re- 
cuperadas logo após a parada do pro- 
grama através das teclas do cursor. 

O programa também já tem prontas 
três copias da Tabela de Padrões, cada 
qual com um tipo de caractere, o que 
nos permite mudar o aspecto das letras 
recorrendo às teclas do cursor. 

Para interromper o programa, use a 
tecla < ESC > . Se o programa for inter- 
rompido dessa maneira, ou porque 
ocorreu alguma mensagem de erro, e ele 
estiver em uma tela diferente da origi- 
nal, o cursor de texto não retornará à 
teia e o programa parecerá estar blo- 
queado. Para fazer o micro voltar ao 
normal, digite às cegas (nada aparecerá 
no vídeo) o comando abaixo: SCREEN 0 
SCREEN 0 

e pressione a tecla <ENTER>. 



COMO FUNCIONA 



Na linha 10, selecionamos o modo de 
textos e apagamos o rodapé da tela. O 
laço FOR...NEXT entre as linhas 20 e 
60 cria duas cópias da Tabela de Pa- 
drões, que começa normalmente em 
2048. As outras duas cópias terão ende- 
reços iniciais 4096 e 6144, respectiva- 
mente. Os laços seguintes obtêm nas li- 
nhas DATA os padrões que serão mo- 
dificados. As cópias da tabela original 
sào necessárias, porque apenas as letras 
e os números são redefinidos, excluindo- 
se, portanto, os demais símbolos. 

As linhas 100 a 180 criam as letras fu- 
turistas na tabela que começa em 4096, 
enquanto as linhas 200 a 280 produzem 
as letras de fórma, utilizando a tabela 



iniciada em 6144. Essas tinhas se pare- 
cem muito com as primeiras do progra- 
ma responsável pela mudança do con- 
junto de caracteres. 

As telas secundárias são obtidas pe- 
las linhas 300 a 420. A variável J deter- 
mina o endereço inicial da tela produzi- 
da pela sub-rotina da linha 360. Assim, 
a primeira tela começando em 0 é cria- 
da pela linha 300. 

A sub-rotina iniciada a partir da li- 
nha 360 preenche as diferentes telas com 
vários caracteres gráficos usando o co- 
mando VPOKE na linha 370. Como o 
código do caractere depende da variá- 
vel J, ele resultará diferente a cada no- 
va tela. Além disso, na linha 380 surge 
uma mensagem que identifica a tela 
através de seu endereço inicial. O laço 
das linhas 390 a 410, usando o coman- 
do VPOKE, imprime a mensagem. Es- 
ta se destaca por meio de um espaço cla- 
ro criado pela linha 365. 

A sub-rotina da linha 360 é chama- 
da pela primeira vez na linha 300, para 
criar a tela original. A posição da tela 
pode ser mudada através da repetição da 
linha 320 para diferentes valores da va- 
riável J. Nessa linha, a variável BASE(0) 
e, portanto, o endereço inicial da Tabe- 
la de Nomes, assume o valor J. Para ca- 
da nova tela, a sub-rotina 360 é chama- 
da outra vez pela linha 330. Depois de 
produzidas iodas as telas secundárias, o 
programa prossegue na linha 420, onde 
os valores de BASE(O) e de BASE(2) são 
restituídos ao normal. 

A porção do programa que abrange 
as linhas 430 a 510 torna possível a exi- 
bição instantânea de cada uma das te- 
las criadas, escritas com qualquer dos 
três conjuntos de caracteres. Esta mu- 
dança é obtida peia atribuição de um no- 
vo valor a uma variável BASE. As linhas 
440 e 450 permitem "avançar" dentro 
da VRAM através da tecla "seta para 
baixo". Novas telas vão sendo mostra- 
das instantaneamente, à medida que se 
altera o valor de BASE(0). Por outro la- 
do, as linhas 460 e 470 possibilitam "re- 
troceder" dentro da VRAM. São neces- 
sárias duas linhas para cada movimen- 
to, devido ao grande intervalo entre a 
tela original (endereço inicial 0) e as se- 
cundárias. Este espaço é ocupado pelas 
Tabelas de Padrões. 

Com as linhas 480 e 490 podemos 
mudar instantaneamente o conjunto de 
caracteres, alterando o valor de BA- 
SE(2), endereço inicial da Tabela de Pa- 
drões. Para isso. o programa detecta as 
teclas "seta para a direita" e "seta pa- 
ra a esquerda". 

A linha 500 possibilita terminar o 
programa sem maiores problemas atra- 
vés da tecla <ESC>. Essa linha resti- 



tui BASE(O) c BASE(2) aos seus valo- 
res iniciais antes de encerrar. 

Este programa poderia ser mais ilus- 
trativo se preenchêssemos cada leia se- 
cundária com um texto, de modo que 
parecessem páginas de um livro. Trata- 
se, entretanto, dc uma tarefa difícil cm 
razão da enurme quantidade de linhas 
necessárias. 



ALGUMAS LIMITAÇÕES 



Interrompido o programa, ainda é 
possível obter uma mudança automáti- 
ca do conjunto de caracteres digitando: 

BASE (2) =4096 

OU 

BASE (2) -6144 

Para recuperar o conjunto original, 
digite o seguinte: 
BASE (2) -2048 
OU 

SCREEN D 

Ao fazer isto, o usuário notará algo 
estranho no cursor: normalmente quan- 
do o sobrepomos a um caractere na te- 
la, esse caractere se inverte. Por exem- 
plo: se era claro sobre fundo escuro, tor- 
na-se escuro, sobre fundo claro. Quan- 
do mudamos a posição da Tabela dc Pa- 
drões, entretanto, o cursor permanece 
como um espaço em branco, que apaga 
o caractere subjacente e desaparece na 
porção vazia da tela. 

A inversão do caractere sob o cursor 
é realizada na Tabela de Padrões, pelo 
sistema operacional do MSX. Isto se dá 
através das posições 2040 a 2047 da 
VRAM. Quando mudamos a BASE<2>, 
o processo não é mais visível. 

Comandos como PR1NT, TAB e 
LOCATE só funcionam quando a BA- 
SE(0) tem valor 0, ou seja, só imprimem 
na Tabela de Nomes em sua posição ori- 
ginal. Portanto, apenas por intermédio 
de VPOKE é possível imprimir nas le- 
ias secundárias; todas as mensagens de 
erro são impressas na Tabela de Nomes 
original, mesmo que uma tela secundá- 
ria esteja sendo mostrada no vídeo. 

Além de tudo isso, existem algumas 
limitações nos valores da instrução BA- 
SE. O endereço inicial de uma tabela dc 
nomes — BASE(0) no caso de SCREEN 
0 — deverá ser múltiplo de 1024. Da 
mesma forma, o endereço inicial de uma 
tabela de padrões — BASEÍ2) em 
SCREEN 0 — terá que ser múltiplo de 
2048. Voltaremos a este assunto opor- 
tunamente, quando explicarmos os re- 
gistros do chip de vídeo-VDP. 
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O MÉTODO TRADICIONAL 



COMO USAR PAPEL E CANETA 
TIRE AS MEDIDAS 



DESENHOS E ESCALA 



O GIRO DAS PEÇAS 



Deixe para o micro o trabalho "pesado"' 
do planejamento de um ambiente. 
Com este projeto computadorizado, 
você pode distribuir seus móveis com 
o simples toque de algumas teclas. 



Conseguir uma melhor disposição 
dos móveis num ambiente nem sempre 
é algo fácil, e certamente é uma tarefa 



cansativa. Normalmente, optamos por 
arrastar a mobília de um lado para ou- 
tro, até encontrarmos a melhor posição 
para as diferentes peças. O desânimo 
aparece quando constatamos que nem 
tudo se encaixa nos espaços disponíveis. 

Um método mais simples consiste em 
fazer um planejamento prévio, dese- 
nhando cada móvel, com precisão, pa- 
ra em seguida adequá-los ao ambiente 
(obviamente é mais simples movimentar 
um retângulo que arrastar um sofá). 



Apresentamos aqui. entretanto, uma 
terceira alternativa ainda mais fácil e 
moderna, uliiizando seu microcomputa- 
dor pessoal. O vídeo gráfico pode subs- 
tituir o trabalho do papel e da caneta, 
com a grande vantagem de permitir fá- 
ceis correções. Além disso, os detalhes 
da mobília podem ser armazenados na 
memória do computador, eliminando a 
necessidade de redesenhar uma peça ca- 
da vez que quisermos movê-la. 

O projeto computadorizado é seme- 
lhante ao projeto feito em papel. A pri- 
meira etapa consiste em se medir, de for- 
ma precisa, o local onde a mobília será 
colocada, já que em alguns ambientes 
poucos cemímelros representam uma di- 
ferença significativa. 

De posse de todos os dados, incluin- 
do posições de porias e janelas, deve-se 
desenhar o ambiente (evidentemente em 
escala reduzida). O próximo passo é me- 
dir os móveis envolvidos no projeto e re- 
produzi-los na mesma escala usada pa- 
ra o desenho anterior. Dessa forma, se- 
rá fácil manipular as peças e saber com 
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exatidào, por exemplo, qual a melhor 
posição para o piano na sala ou se a ge- 
ladeira caberá em um determinado can- 
to da cozinha. 

Apresentamos aqui apenas metade 
do programa, que é composto de sete 
opções. O restante virá no próximo 
artigo. 

As sete opções oferecidas no menu 
principal são as seguintes: 

Opção I - Reproduz o ambiente: to- 
mando por base sua maior medida, dc- 
senha-o em escala que caiba na tela do 
micro. As dimensões devem ser indica- 
das em metros, junto com suas respec- 
tivas posições (Cima, Baixo, Esquerda, 
Direita). Na representação das paredes, 
consideraremos duas distâncias e duas 
direções, permitindo, assim, o desenho 
na diagonal. Na opção 1, especifica- 
mos também a posição das portas e 
janelas. 

Opção 2 - Possibilita a movimentação 
das peças da mobília já definidas no 
programa. São móveis de cozinha — tal- 
vez o ambiente mais difícil de ser pla- 
nejado — e incluem armário, fogão, 
máquina de lavar louça, pia e geladei- 
ra, todos com medidas padronizadas. 
Qualquer alteração desejada deverá ser 
feita através da opção 3, O mesmo de- 
senho de uma peça poderá ser colocado 
em diferentes lugares. Dessa forma, é 
possível, por exemplo, dispor quatro ca- 
deiras iguais ao redor de uma mesa, po- 
sicionando a mesma definição da peça 
nos lugares escolhidos. Tudo que temos 
a fazer é selecionar o móvel acionando 
algumas teclas. 

Opção 3 - Permite redefinir as peças já 
contidas no programa e incluir, no má- 
ximo, outras cinco, desde que não te 
nham mais que dez lados — o que é su 
fidente para desenhar qualquer móvel 
As novas peças serão desenhadas auto 
maticamente, tomando como base a es- 
cala da reprodução do ambiente. 
Opção 4 - Permite salvar nosso projeto 
(opção um) e seu conteúdo (opções 2 e 
3) em disco ou fita. 
Opção 5 - Carrega um projeio e seu 
conteúdo de uma fita ou disco. 
Opção 6 - Cuida da impressão. Como 
apenas o Spectrum é capaz de imprimir 
a cópia do projeto diretamente, esta op- 
ção ficará incompleta para os demais 
micros. Ela pode ser usada para chamar 
uma rotina que despeje o conteúdo da 
tela na impressora ou um outro progra- 
ma em BASIC que faça a mesma tare- 
fa. Em um próximo artigo, aprendere- 
mos como criar essa rotina e obter có- 
pias impressas de nossos projetos. 
Opção 7 - E incumbida de terminar e 
I sair do programa. 



A segunda parte deste programa tra- 
rá uma explicação mais detalhada de ca- 
da opção, além de conter a outra meta- 
de da listagem do programa. Mas aten- 
ção: é necessário digitar as duas partes 
para que o programa rode com seguran- 
ça; portanto, grave a primeira antes de 
digitar a segunda. 



u 



DESENHAR LA 



DESENHAR MO 



GRAVAR PROJ 
CARREGAR PR 



IMPRIMIR PR 



SAÍDA" 



10 PCLEAR 8 : CLEAR 2000 

20 DEF FNA(XM) -1 . 9*SC*XM 

30 DIM 0SÍ9) ,S(10) 

40 OS (0) -"DD100 ;DC5Q ; DE100 ;DB50 

; BD8 ; BC 4 ; DD40 ; DC 34 ; DE40 ;DB34 ; " 
50 OS(1)="DD50;DC60;DE50;DB60;B 
DIO ; BC10 :DD10 ;DC10 ;DE10 ; DB10 ;BD 
20 jDDIO ; DC1Q ;DE10 ; DB10 ; BC20 ;DC1 
0;DD10;DB10;DE10;BE10;DE10;DC10 

;DD10;DB10rBE20;BC15:DD50;" 

60 OS (2) ="DD100 : DC60 ; DE100 ;DB60 

70 O$(3)="DD30;DC30;DE30;DB30;D 
C20;DD30; " 

80 OS (4) -"DD60 ;DC60 ;DE60 ; DB60 ; " 
90 CLS 

100 PRINT @96.TAB(6)"1: PLANEJA 
H AMBIENTE" 
110 PRINT TAB16) 
YOUT" 

120 PRINT TAB (6) 
BILIA" 

130 PRINT TAB (6) 
ETO" 

140 PRINT TAB (6) 
OJETO" 

150 PRINT TAB (6) 
OJETO" 

160 PRINT TAB (6) 
170 PRINT 8422 , "FACA A OPCAO' 
INPUT N 

180 IF N<1 OR N>7 TBEN 90 

190 IF N=2 AND F1=0 THEN CLS : PR 

INT"VOCE DEVE PRIMEIRO SELECION 

AR OPCAO l":SOUND 1,20: GOTO 9 

0 

200 IF N-l THEN Fl-1 

210 ON N GOTO 350,1120.930,1700 

,1750.1790,230 

220 GOTO 90 

230 CLS : PCLS : END 

240 RF"0:COLOR 0 

250 LINE(200.0)-(255,191) .PSET. 
B 

260 DRAW"BM206.10;S4;A0;NR4D6R4Í 

BR2U6D3R4D3U6BR2D6R4U6NL4BR2D6[Íj 

4U6NL4BR2NR4D3fi4D3NL4BR2NR4U3NRk 

2U3R4BR4BD2DBD2D" 

270 IF RF-1 THEN RETURN 

280 DRAU"BM203,30;D6R2NU3R2U6BR 

6R4D6L4U6BR10D6R4U3L4R3U3L3BR10 

NR4D3R4D3NL4BR2U6R4D3L4BR6U3NR4 

D6R4" 

290 DRAW"BM218.43;D6U3NR2U3R4BF 

6NR4D6R4" 

300 RETURN 

310 RF-1: COLOR 0,1: LINE (201,1)- 
(254, 190) ,PRESET,BF:GOSUB 250 
320 DRAWBM208 , 30 ; ND6R4D3L4BR10 
BU3D6R3E1U4H1L3BR10;ND6R4D3L4R1 
F3BR6U6R4L4D3R2" 



330 RETURN 

340 DRAWBM213.70;D4F1R2E1U4H1L 
2G1BU1BR8BD3R3BR5U3R4D3NL4D3BR6 
UBU2U2R2U2L4D2" : RETURN 
350 CLS 

360 PRINT "COMPRIMENTO MÁXIMO DO 

CÔMODO (M) " 
370 INPUT LE 

380 IF LEMOO OR LEO THEN 350 
390 SC=100/LE 

400 PMODE 4,1: COLOR 0 , 1 : PCLS : SC 

REEN 1.0 

410 XM-0:YM-LE 

420 GOSUB 240 

430 XX-FNA (XM) : YY-FNA (YM) : IF PP 
OINT(XX,YY)-l THEN PSETIXX.YY.O 
) ELSE PSETÍXX.YY.l) 
440 IS-INKEYS:IF IS-"" THEN 430 
450 OX-XM:OY-YM 

460 IF IS-" " THEN COLOR 0:GOTO 
530 

470 IF IS-"B" THEN COLOR 1 :GOTO 
530 

480 IF IS-"C" THEN 400 

490 IF IS-"F" THEN FOR K-l TO 4 
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:PC0PY K TO K+4 ; NEXT : GOTO 90 
500 IF IS-"W" THEN 710 
510 IF I$-"0" THEN 800 
520 GOTO 430 
530 CLS 

540 FOR A=l TO 2 

550 PRINT" DIREÇÃO" ; A ; " C/B/E/D 
" : :INPUT DS(A) 

560 IP D5ÍA)-"" THfCN (MMI 

570 rniNT "DISTANCIA" ,h;: INPUT 

D{A) 

580 IF INSTR{l."CB£D".DS(A))-0 
THEN 550 
590 NEXT 

600 SCREEN 1.0: FOR A-l TO 2 

610 IF DStA)""" THEN 670 

620 IF DS(A)-"E" THEN XM-XM-DIA 

) 



630 IF DS!A)- 

) 

640 IF DS [A) ■ 

) 

650 IF DS(A>- 
) 

660 NEXT A 



THEN XM-XM+D(A 
THEN YM=YM"D(A 
THEN YM-YM+D (A 



670 IF XM<0 OR XM>LE OP YM<0 OR 
Y>LE THEN SOUND 1 , 2 : XM-OX : YM=0 
Y:GOTO 430 

680 Xl-FNA(OX) :Yl-FNA(OY) :X2-FN 
A{XM) :Y2-FNA{YM) 
690 LINE(X1,Y1)-(X2,Y2) , PSET 
700 GOTO 430 

710 CLS: INPUT" DIREÇÃO C/B/E/D"; 
DS 

720 INPUT "DISTANCIA- ;D 
730 Xl-FNA(OX) :Y1-FNA(0Y) 
740 POKE 178,2 

750 IF DS-"E" THEN XM-XM-D:X2-F 
NA(XM) : LINE (XI, YD - (X2 , Yl+3) , PS 
ET.BF 

760 IF DS="D" THEN XH-XM+D:X2=F 
NAfXM) :LINE(Xl.Yl)-(X2.Yl+3) , PS 
ET , BF 

770 IF DS-"C" THEN YM=YM-D : Y2-F 
NA(YM) : LINE (XI , Yl ) - (Xl + 3 , Yl) .PS 
ET.BF 

780 IF DS="B" THEN YM-YM+D:Y2=F 
NA(YM) :LINE(X1,Y1)-(X1+3,Y2) , PS 
ET , BF 

790 SCREEN 1,0: GOTO 430 



800 CLS: INPUT"DIRECAO C/B/E/D"; 
D3(l) 

610 INPUT"DISTANCIA" ;D(1) 

820 DS (2) -"" : COLOR 1:G0T0 600 

830 CLS 

840 INPUT"DEFINIR ITEM NUMERO 
[0-9) "iH 

850 IF N<0 OH N>9 THEN 830 
860 OS (N) -"" 

870 PRINT"USE <ESPACO> PARA LIN 

HA":PRINT"USE 'B - PARA LINHA VA 

ZIA":FOR D=l TO 1000:NEXT 

880 PMODE 4.1:COLOR 0,1:PCLS:SC 

REEN 1,0 

890 X=75:Y=145 

900 DRAU"BH75 . 150 ; R100NG3NH3 ; BM 

70. 145;U100NF3NG3" 

910 IF PPOINT(X.Y)«0 THEN PSET( 

X,Y,1) ELSE PSET (X,Y.0) 

920 IS=INKEYS:IF I$= H " THEN 910 

930 0X=X:CY»Y 

940 IF IS-"C" THEN 830 

950 IF IS-"F" THEN 90 

960 IF IS = " " THEN COLOR 0 

970 IF ISO" " THENCOLOR 1 
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980 IF IS-" " THEN OS(N)-OS(N)* 

-D- ELSE OS<N)=OS(N)+"B" 

990 CLS: INPUT "DIREÇÃO C/B/E/D" 

;D9 

1000 IF INSTR (1 , "CBED" ,D$) -0 TH 
EN 990 

1010 INPUT"DISTANCIA (CM)";D 
1020 IF D<-0 OR D>200 THEN 1010 
1030 SCBEEN 1,0 
1040 IF DS-"E" THEN X-X-D/2 

1050 IF DS-"D" THEN X-X+D/2 
1060 IF DS-"C" THEN Y'Y-D/2 
1070 IF DS="B" THEN Y-Y+D/2 
1080 IF X<75 OH X>175 OR Y<45 O 
R Y>145 THEN SOUND 1 , 3 : X-OX : Y-0 
Y:GOTO 910 

1090 LINEfOX.OY)-(X.Y) . PSET 
UOO OS <N) =0$ (N) +DS+STRS [D) + " ; " 
1110 GOTO 910 

1120 FOR K=l TO 4:PCOPY K+4 TO 
K:NEXT:CLS 

1130 PMODE 4,1:SCREEN 1.0 

1140 GOSUB 310 

1150 X-126:Y-96:RT-0 

1160 IF X<3 THEN X=3 

1170 IF Y<3 THEN Y-3 

1180 GET(X-3. Y-3) - (X+3.Y+3) ,S,G 

1190 DRAW"CO:BM"+STRS{X)+" , "+ST 

RS (Y) +"NU3ND3NL3NR3" 

1200 IS-INKEYSrIF IS-"" THEN 12 

00 



5 POKE 23658, B 
10 BORDER 0: PAPER 0: INK 4: 
CLS 

12 GOSUB 8000 

20 GOSUB 7000: PRINT INVERSE 
1 j AT 2.23:"[1]AMB";AT 3.23;"[ 
2]PLAN";AT 4 , 23 ; " [ 3 ]MOB" ;AT 5 
,23;"[4]GRAV";AT 6 . 2 3 ; " [ 5 1CAR 
R" ; AT 7.23;"(6]IMPR";AT 8.23; 
* [ 7 ] SAÍDA" 

30 LET K3="1234567" : GOSUB 
7040: GOSUB 7000: IF Z=55 
THEN STOP 

40 GOSUB .1000* (Z-49) +1000 : 

GOTO 20 
1000 LET NF=1: GOSUB 6080 
10OS PLOT 0,0: LET X=0: LET Y=0 
1010 PRINT PAPES 2; TNK 6 ; AT 2 
1,22; "MAXI«0=" ;KAX 

1015 PRINT INVERSE 1 ; AT 2,22;" 
[ J ) JANELA" ; AT 3 . 22 ; " [ P 1 PORTA" ; A 
T 4 , 22 ; " ( B ] BRANCO" ; AT 5.22;"[ ] 
DESENHA" : AT 6 , 72 : " I S ]SAIDA" ; AT 
7,22i"" 

1016 LET KS = ".1PBS ": GOSUB 7040 
; INK 3*<Z-74)+2M7>80)+7*(Z-32 
) 

1020 IF Z = 83 THEN INK 4: RETUR 
N 

1075 GOSUB 7010: LET DX=X+D* ( (D 
5= "D") *SC) -D* ( (DS="E" ) *SC) : LET 
DY=Y+D* ( (DS-"C" ) "SC) -D" { (DS="B 
")*SO : GOSUB 7010 
1030 LET DX=DX+D* ( (DS="D") *SC) - 
DM(DS = "E")*SC) : LET DY=DY+D* ( ( 
DS="C") *SC) -D* ( ÍD3="B") *SC) 
1032 IF DXM75 OR DX<0 OR DY>1/ 
5 OR DY<0 THEN PRINT FLAKH l; 
AT 7.23; "ERRO" : PAUSE 100: GOTO 



1015 

1035 DRAW DX-X.DY-Y: LET X=PEEK 
23677: LET Y=PF.EK 73678: LET X 
S-STRS (X/SC) : LET YS=STRS (Y/S 
C) 

1037 IF LEN XS<3 THEN LET XS=F 
St TO 3-LEN X$)+XS 

1038 IF LEN YS<3 THEN LET YS-F 
S C TO 3-LEN YS) +YS 

1039 LET XS"XS( TO 3): LET YS=Y 
St TO 3): PRINT TNK 7;AT 10.24 
;"DX-";XS:AT 11.24; "DY»" ; YS 

1040 GOTO 1016 

2000 IF NF-0 THEN RE TU RN 
2005 FOR N=l TO 10: LET QS="["+ 
STRS N+"]"+OS(N): PRINT INVERS 
E 1;AT N*2.24+4-[.EN QS;tJS: NEXT 



N 

2010 LET R=0: GOSUB 6060: LET C 
U-2 

2020 PRINT INVERSE 1 ; AT CU, 29; 
CHRS 144: FOR N=l TO 10: NEXT N 
: PRINT INVERSE 1 ; AT CU, 29;" " 
2030 LET KS-TNKEYS : LET CU=CU-2 
* t ( (KS="7")*{CU>2) ) )+2* ( ( (KS="6 
")* (CU<20) ) ) 

2040 IF KSO"S" THEN GOTO 2020 
2050 LFT OB-CU/2: LET OX = 85 : LE 
T OY-85 

2057 LET F-1 : GOSUB 6010 

2060 GOSUB 7000: PRINT AT 5,24: 

FLASH l;"OBJ=";OS(OB) ; FLASH 0 
; AT 7,22; INVERSE L ; " I 5-8 JMOVE" 
;AT 8 , 22 ; " l C | CO LOCA" ; AT 9,22;"[ 
H 1HORARIO" ; AT )!). 22 : " | A IANTHORA 
" ; AT 11.2Z;"lS].SAtDA" 
2O70 LET KS = "Sh78CAHS" : C.OSUB 7 
040: IF 2>B3 THEN LET R = ()t LET 

F-l: GOSUB 6010: GOTO 0060 
20BQ LET F-l: GOSUB 6010: LET O 
X=OX+2* ( (Z'56) « [OX< L75) ) -2« t <Z = 
53)*(OX>D): LET OY-OY + 2* ( tZ-55 
) * (OY<175) ) -2* ( (Z-541 * tOY>0) ) 
2085 IF Z-72 OR Z-65 THEN GOSU 
B 6020 

2090 GOSUB 6010 

2100 IF Z-67 THEN LET F=0 : GOS 
UB 6010: GOSUB 7000: GOTO 2000 
2110 GOTO 2070 

3000 PRINT AT 2 , 24 ; " PHO JETO" 

3012 INPUT " ENTRE FIGURA A DEFI 
NIR ";OB: IF OB< .1 OR OB>10 THEN 

GOTO 3012 

3013 INPUT "DIGITE NUMERO DÊ La 
DOS (1-15) ? "iStOB): IF S(OB)< 
1 OR S(OB)>15 THEN GOTO 3013 

3014 INPUT "CÓDIGO DE DUAS LETR 
AS ?":OS(OB) 

3016 LET R=0: GOSUB 6060: LET O 
X=80 : LET OY=80 

3017 FOR S = l TO S(OB)*2 STEP 2 
3020 FOR N=l TO 2: GOSUB 7010: 
LET D=D/125: LET O {OB , S) =0 (OB , S 
) + ( (D* (-1* (DS»"E")+<DS-"D") ) ) ) : 

LET 0<OB.S+l)=OtOB,S+l)+(lD*(- 
1MDS = "B") + (DS = "C"))>) 
3030 NEXT N 
3040 NEXT S 

3050 LET F=l: GOSUB 6010: INPUT 

"ESTA CORRETO (S/N) ?";SS: IF 
SS="N" THEN GOSUB 6010: FOR N= 
1 TO S(OB)*2+l: LET O(OB,N)=0: 
NEXT N : GOTO 3012 



3060 GOSUB 6010: RETURN 
4000 GOSUB 6200 

4015 IF Z=83 THEN SAVE ESSCREE 

NS : RETURN 

4020 SAVE ES DATA 0() 

4030 SAVE ES DATA S() 

4040 SAVE ES DATA OS O 

4050 RETURN 

5000 GOSUB 6200 

5010 IF 2=83 THEN LOAD ESSCREE 
NS : RETURN 
5020 LOAD ES DATA 0{) 
5030 LOAD ES DATA S{) 
5040 LOAD ES DATA OS O 
5050 RETURN 
6000 COPY : RETURN 
60L0 OVER F: INK 7: PLOT OX.OY: 
FOR N=l TO (S(OB)*2) STEP 2: D 
RAW 0<OB.N)*CY-0(OB.N+1)»CX,0(0 
B,N)*CX+0(OB,N+l)*CY: NEXT N 
6014 OVER 0: INK 4: RETURN 
6020 LET R=R+(2* <Z=65) )-{2«{Z-7 
2)]: IF H>360 THEN LET R=0 
6030 IF EKO THEN LET R-360-R 
6060 LET A=R«(PI/180) : l.ET CY = S 
CCOS A: LET CX-SC*SIN A: RETUR 
N 

6080 INPUT " ENTRE MAX T MA DIMENS 
AO ? " ; MAX 

6090 LET 8C-3 75/MAX 
hl 00 RETURN 

6200 PRINT INVERSE 1 ; AT 10.23; 
"[TJTEIA" ;AT 11 .23; "[DJDADOS- : 
LET KS="TD": GOSUB 7040: INPUT 
"ENTRE NOME DO ARQUIVO"; ES: RET 
URN 

7000 FOR N=0 TO 21: PRINT PAPE 
R 4 s AT N.22;" *! NEXT 

N: PRINT AT 0,25;"HENU": RETURN 



5 SCREEN 2,0:COLOR 1,15,15 

10 KEY OFF iGOTO 2000 

20 DEF FNA(XM)-1.9*SC*XM 

30 DIM 0St9) ,S(10) 

40 OStO)="DD100;DC50;DE100;DB50 

; BD8 ; BC8 ; DD40 ; DC34 ; DE40 ; DB34 ; " 

50 OS(1)="OD50;DC60;DE50;DB60;B 

D10;BC10;DD10;DC10;DE10;DB10;BD 

20;DD10;DC10;DE10;DB10;BC20;DC1 

0;DD10;DB10:DE10;BE10;DE10;DC10 

;DD10 ;DB10 ; BE 20 ; BC15 ; DD50 ; " 

60 OSÍ2)="DD100;DC60;DE100;DB60 

70 OS ( 3) «"DD 30 ; DC30 ; DE30 ; DB30 ; D 
C20 ;DD30 ; " 

80 OS (4 ) = "DD60 ; DC60 ; DE60 ;DB60 ; " 

85 CLS 

90 SCREEN 0 

100 LOCATE 8,5:PRINT"1: PLANEJA 
R AMBIENTE" 

110 LOCATE 8,6:PR1NT"2: DESENHA 
R LAYOUT" 

120 LOCATE 8,7: PRINT" 3: DESENHA 
R MOBÍLIA" 

130 LOCATE B,8:PRINT"4: GRAVAR 

PROJETO" 
140 LOCATE 8,9:PRINT"5: CARREGA 
R PROJETO" 

150 LOCATE 8,10:PRINT"6: IMPRIM 
IR PROJETO" 

160 LOCATE 8,11:PRINT"7: TERMIN 




31 APLICAÇÕES 31 



14:INPUT"SUA ESCOL 

180 IF N<1 OR N>7 THEN 170 

190 IF N=2 AND F1=0 THEN LOCATE 

5,ia-PRTNT"<e8colha primeiro a 

opção 1>" :GOT0 170 
200 IF N-l THEN Fl-l 
210 ON N GOTO 350,1120,830,1700 
,1750,1790,230 
220 GOTO 90 
230 CLS : END 
240 RF=0 

250 LINE{200,0)-(255.191) ,1.B 

260 DRAW" BM2 0 6 . 10 : S4 ; AO ; NR4D6R4 

BR2U6D3B4D3U6BR2D6R4U6NL4BR2D6R 

4U6NL4BR2NR4D3R4D3NL4BR2NR4U3NR 

2U3R4BR4BD2DBD2D" 

270 IF RF=1 THEN RETURN 

280 DRAU"BM203 , 30 ; D6R2NU3R2U6BR 

6R4D6L4U6BR10D6R4U3L4R3U3L3BR10 

NR4D3R4D3NL4BR2U6R4D3L4BR6U3NR4 

D6R4" 

290 DRAW"BM21B,43;D6U3NR2U3R4BR 

6NR4D6R4" 

300 RETURN 

310 RF-1:LINE(201,1)-{254.190) , 
15,BF:G0SUB 250 

320 DRAW"BM208,30;ND6R4D3L4BR10 
BU3D6R3E1U4H1L3BR10;ND6R4D3L4R1 
F3BB6U6R4L4D3R2" 
330 RETURN 

340 DRAW"BM213,70;D4F1R2E1U4H1L 
2G1BU1BR8BD3R3BR5U3R4D3NL4D3BR8 
UBU2U2R2U2L4D2" : RETURN 
350 CLS 

360 PRINT*COMPRIMENTO MÁXIMO DO 

AMBIENTE" 
370 INPUT"(em metros)";LE 
380 IF LE<3 OR L£>100 THEN 350 
390 SC-100/LE 
400 SCREEN 2 
410 XM-0:YM-LE 
420 GOSUB 240:A=USR(0) 
430 XX=FNA (XM) : YY=FNA (YM) : IF PO 
INT(XX,YY)01 THEN PSET (X». YY) , 
1 

440 IS=TNKEYS:IF IS-"" THEN 430 

450 OX=XM:OY»YM 

455 DS(1)--":DS<2)-"- 

460 IF IS-" " THEN CL = l:GOTO530 

470 IF IS-"B" THEN CL=15:GOTO 5 

30 

480 IF I$--C" THEN 400 

490 IF IS="F" THEN A*USR(0):GOT 

090 



00 

520 GOTO 430 

530 SCREEN 0 

540 FOR A=l TO 2 

550 PR I NT "Di r eção" ;A; " C/B/D/E" 

; : INPUT DS(A) 

560 IF DS(A)="" THEN 600 

570 PRINT-Diatancia" ;A; * (metro 

s} " ; : INPUT D (A) 

580 IF INSTR (1 , "CBDE" , DS !A) ) -0 

THEN550 

590 NEXT 

600 SCREEN 2 ; A=USR2 ! 0) : A=USR1 (0 

> 

605 FOR A-l TO 2 

610 IF DS(A)="" THEN 670 

620 IF DS(A)-"E" THEN XM-XM-D(A 

) 

630 IF DS(A)="D" THEN XM=XM+D(A 
) 

640 IF DS<À)-"C" THEN YM-YM-D (A 

650 IF DS(A)-"B*' THEN YM"YM+D (A 
) 

660 NEXT A 

670 IF XM<0 OR XM>LE OR YM<0 OR 
YM>LE THEN BEEP : XM=OX : YM-OY : GO 
TO 430 

680 Xl=FNA(OX) :Y1=FNA(0Y) :X2=FN 

A(XM) : Y2=FNA (YM) 

690 LINE(X1,Y1)-(X2,Y2) .CL 

695 A'USR(0) 

700 GOTO 430 

710 SCREEN 0:INPUT"Direção C/ 
B/D/E" ; DS 

720 INPUT"Distância ";D 

730 Xl-FNA(OX) :Yl=FNA(OY) 

735 SCREEN 2 : A=USR2 (0) : A=USR1 (0) 

750 IF DS-"E" THEN XM=XM-D:X2-F 

NA(XM) -LINE(X1,Y1+1)-(X2,Y1+1) , 

1 ; LINE (XI , Yl) - (X2 , Y2) ,1 

760 IF D$-"D" THEN XM=XM+D:X2=F 

NA(XM) :LINE(XI,Y1 + 1)-(X2.YH-1) , 

1:LINE(X[,Y1)-(X2.Y2) ,1 

770 IF D3="C" THEN YM=YM-D:Y2=F 

NA (YM) : LINE (X.l + 1 . Yl) - (XI + 1 , Y2) , 

1:LINE(XI,Y1)-!X2,Y2) ,1 

780 IF DS="B" THEN YM- YM+D : Y2-F 

NA ( YM) :LINE(X1-H.Y1)-(X1+L,Y2) , 

1:LINE(X1.Y1)-(X2,Y2) ,1 

790 A=USR(0) :GOTO 430 

800 CLS:INPUT"Direçáo C/B/D/E 

- :DS(11 

810 INPUT"Dist ^ncM " : D ( 1 ) 
820 D5 ( 2 ) =" " : GOTO 600 
830 CLS 

840 INPUT-DEF1NTR A PEÇA NUMERO 

(0-9) " :N 
850 IF N<0 OR N><> THEN B30 
B60 0$(N)="" 

870 SCREEN 2:RF = l:GOSUB 2511 
880 DRAU"BM218.43;NR4D3R4D3NL4B 
R2U6R4D1L4BR6U3NR4!i( : -H4 : BM21 0 . 56 
; D6R4U3L4H3U3L3BR J 5D6U3NB2U3M8 
R10NR4D6R4" 
890 X=/5:Y=145 

900 DRAW" BM7 5 , 1 50 : H 1 0 0NG3NH 3 ; PM 
70 , 145 ;U) 0ONF3NG3" 
910 IF POTNT(X.Y)<>] THEN PSET ( 
X , Y) ,1 

920 IS=INKEY$:JF 1$="" THEN 920 



925 A-USR3 (0) 

930 OX-X:OY-Y 

940 IF I8""C" THEN 8J0 

950 IF I$="F" THEN 90 

960 IF IS = " " THEN CL=1 

970 IF ISO" " THEN CL-15 

980 IF I5 = " " THEN OS (N) -OS (N) * 

"D" ELSE OS (N) "OS (N) + "B*' 

990 SCREEN0 : INPUT "Dl reção C/B 

/D/E" ; DS 

1000 IF INSTR (1 , "CBDE" . DS) =0 TH 
EN 990 

1010 INPUT"Distancia (cna)";D 
1020 IF D<=0 OR D>200 THEN 1010 
1030 SCREEN2:A-USR2(0) :A'USR4(0 
) 

1040 IF D$="E" THEN X-X-D/2 
1050 IF DS-"D" THEN X=X+D/2 
1060 IF DS="C" THEN Y-Y-D/2 
1070 IF DS""B" THEN Y-Y+D/2 
1080 IF X<75 OR X>175 OR Y<45 0 
R Y>145 THEN BEEP:X-OX:Y"OY: GOT 
O 910 

1090 LINE(OX,OY)-(X.Y) , CL 

1100 O$(N)=0S(N)+DS+MIDS(STRS(D 

) .2)+" i" 

1110 GOTO 910 

1120 SCREEN 2 

1130 A=USR2 (0) :A-USR1 (0) 

1140 GOSUB 310 

1150 X=128:Y=96:RT-0 

1160 IF X<3 THEN X-3 

1170 IF Y<3 THEN Y»3 

1190 PUTSPRITE0 , (X , Y ) ,1,0 

1200 IS=INKEYS:IF1S="" THEN 120 
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Neste artigo, você verá como 
aplicar o que aprendeu sobre dimensões 
fracionadas na simulação de imagens 
da natureza, como uma montanha 
ou um floco de neve. 



No artigo da página 1356. vimos co- 
mo obter imagens fascinantes por meio 
de programas recursivos muito simples. 
Essas imagens, também denominadas fi- 
guras fractais, são geradas matematica- 
mente na fronteira entre o que chama- 
mos de regular e irregular. 

Com a técnica fractal podemos con- 
seguir formas muito mais próximas das 
observadas na natureza que com os mo- 
delos construídos a partir da ciência tra- 
dicional. Mostraremos aqui como fazer 
simulações desse (ipo no seu micro. 

O primeiro programa desenha uma 
das formas mais simétricas da natureza: 
a forma hexagonal de um floco de neve. 



10 BORDER 0: PAPEH 0: INK 5: 
BRIGHT 1: CLS 

20 LET Mi- 2* ATN (l)/3: LET S2 
-2/SQ.R (3) 

30 LET XC=127: LET YC=9Q : LET 
S=120: LET C=2 
50 GOSUB 1000 
60 STOP 

1000 LET S-S/3: IF 5<1 THEN LE 
T S=S*3: RETURN 

1020 PLOT INVERSE 1; OVER 1 ; IN 
T <XC+S2"S*SIN (-AN) ) , (YC-S2*S* 
COS (-AN) ) : FOR K=0 TO 8*ATN (1 
)-AN STEP 2*AN 

1030 DRAW XC+2*S*SIN (K) -PEEK 2 
3677.YC-2*S*COS (K)-PEEK 23678 
1040 DRAW XC+S2*S*SIN (K+AN)-PE 
EK 23677. YC"S2*S*COS ( K + AN ) - P E E 
K 23678 
1050 NEXT K 

1060 LET C-OL: GOSUB 1000 
1070 LET YOYC-l . 36*S : GOSUB 10 
00 

1080 LET YC=YC+.68*S: LET XC = XC 

+1 . 19*S: GOSUB 1000 

1090 LET ÍC-fC+1 . 36*3: GOSUB 10 

00 

1100 LET YC=YC+.68*S: LET XOXC 

-1.19*3: GOSUB 1000 

1110 LET YC=YC-.68*S: LET XC=XC 

-1.19*8: gosub lono 

1120 LET YC=YC-1 . 36«S : GOSUB 10 

00 

1130 LET YC=YC+.6B*S: LET XC=XC 
+1.19*3: LET S=S*3: LET OC+1 : 
RETURN 



50 GOSUB 1000 
60 GOTO 60 

1000 S=S/3:IF S<1 THEN S=S*3:RE 
TURN 

1010 IF C-2 THEN COLOR 4 ELSE I 
F C=l THEN COLOR 2 ELSE COLOR C 
1020 DRAWBIT + STRS (INT (XC+S2*S* 
SIN (-AN) ) ) +" . "+STRS (INT (YC-S2*S 
•COS(-AN) ) ) :F0R K-0 TO 8*ATN[1) 
-AN STEP 2* AN 

1030 LINE - (XC+2*S-SIN(K) , YC-2* 
S*COS[K)) ,PSET 

1040 LINE - (XC+S2*S*SIN(K+AN) ,Y 

C-S2*S*COS (K+AN) ) , PSET 

1050 NEXT:PAINT(XC,YC) 

1060 C-C-l: GOSUB 1000 

1070 YC=YC-1.36*S:G0SUB 1000 

1080 YC-YC+.68*S:XC=XC+1-19*S;G 

OSUB 1000 

1090 YC=YC+1.36*S:GOSUB 1000 
1100 YC=YC+ .68*S: XC-XC-1 . 19*S:G 
OSUB 1000 

1110 YC=YC-.68"S:XC=XC-1.19*S:G 
OSUB 1000 

1120 YC-YC-1 . 36"S :GOSUB 1000 
1130 YC-YC+ . 68*5 :XC-XC+1 . 19*S:S 
=S*3:C=C+1:RETURN 



1130 YC = VC + .68 * S:XC - XC 
+ 1.19 * S:S - S * 3lC - C + li 
RETURN 



HE] 



10 PMODE 3,1: PCLS i SCREEN 1.0 
, 20 AN = 2*ATN(l)/3:S2-2/SQ.R(3) 
I 30 XC«127:YC-95:S»135:C-4 



10 HGR2 

20 AN - 2 * ATN (1) / 3:S2 - 2 

/ SQR (3) 
30 XC - 127:YC - 95 : S = 135:C - 

4 

50 GOSUB 1000 
60 GOTO 60 

1000 S=S/3:IFS<1 THEN S 

=3*3: RETURN 
1020 HPLOT INT (XC ♦ S2 * S * 

SIN { - AN)). INT (YC - S2 * 
S * COS ( - AN)): FOR K ■ 0 TO 

8 * ATN (1) - AN STEP 2 * AN 
1030 HPLOT TO XC + 2 * S * S 
IN (K) . YC - 2 * S * COS (K) 
1040 HPLOT TO XC + S2 * S * 
SIN (K + AN) , YC - S2 * S * COS 

(K + AN) 
1050 NEXT 

1060 C = C - 1: GOSUB 1000 
1070 YC - YC - 1.36 * S: GOSUB 
1000 

1080 YC = YC * .68 * S : XC = XC 

+ 1.19 * S : GOSUB 1000 

1090 YC = YC + 1.36 * S: GOSUB 

1000 

1100 YC « YC + .68 * S:XC - XC 

- 1.19 * S : GOSUB 1000 

1110 YC = YC - .68 * S:XC = XC 

- 1.19 * S: GOSUB 1000 

1120 YC - YC - 1.36 * S: GOSUB 
1000 



10 SCREEN 2 

20 AN=2*ATN{1)/3:S2=2/SQR[3) 
30 XC=127:YC=95:S=135:C=4 
50 GOSUB 1000 
60 GOTO 60 

1000 S-S/3:IF S<1 THEN S=S*3:RL 
TURN 

1010 1F C=2 THEN COLOR 8 ELSE I 
F C=l THEN COLOR ) 1 ELSE COLOR 
C 

1020 DRAW "BM"+STRS ( INT (XC+S2*S 
■SIN ( -AN) ) ) +" , "+STRS ( INT ( YC-S2* 
S*COS (-AN) ) ) : FOR K=0 TO 8*ATN O 
) -AN STEP 2*AN 

1030 LINE-(XC+2-S*SIN(K) . YC-2*S 
*COS<K) ) 

1040 LINE- (XC+S2*S*SIN (K+AN) . YC 

-S2*S*COS (K+AN) ) 

1050 NEXT:PATNT(XC,YC) 

1060 C=C-l:GOSUB 1000 

1070 YC=YC-1 . 36*S :GOSUB 1000 

1080 YC=YC+-68*S:XC=XC+1.19"S:G 

OSUB 1000 

1090 YC=YC+1 . 36*S-GOSUB 1000 
1100 YC = YC+ .6B*S : XC=XC-1 . 19*S :G 
OSUB 1000 

1110 YC=YC- .68*S :XC=XC-1 . 19*S:G 
OSUB 1000 

1120 YC=YC-1 . 36*S :GOSUB 1000 
1130 YC=YC+ -68*S :XC=XC+1 . 19*S: S 
*S*3:C=C+1:RETURN 

Esse programa é baseado na curva 
floco de neve, originalmente desenhada 
por Von Koch. A figura criada se asse- 
melha a um cristal de gelo em um floco 
de neve ou a uma ilha com litoral mui- 
to recortado. A linha 20 especifica um 
triângulo equilátero (seus ângulos me- 
dem 60 graus e os lados são iguais) com 
um fator de escala definido em S2. A li- 
nha 30 define as primeiras coordenadas 
X e Y do centro, um fator de escala ini- 
cial e a cor do primeiro desenho (exceto 
no Apple). A linha 50 chama a sub-ro- 
tina que desenha a estrela de seis pon- 
tas que compõe a figura. 



SIMETRIA E ASSIMETRIA 



Apesar da irregularidade do desenho, 
a simetria está presente na forma da es- 
trela. Como ocorre com frequência na 
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15 PRINT AT 6,2; INVERSE 1;' 
GERADOR DE MONTANHA FRACTAL " 
20 DIM C1200.2.2): LET F-l : 
LET G-2: LET C(l,l,2)>25: LET 

eu.i.D-o 

22 INPUT "DIGITE ' RESOLUÇÃO ' 
DA MONTANHA [16-100] ? 'iS 

23 IF S<16 OR S>10O THEN 
GOTO 22 

24 INPUT "DIGITE GRAU DE 'BUO 
OS IDADE ' U-51? _ iRG 

25 IF RG<1 OR BG>5 THEN GOTO 
24 

26 DEF FN B (X) -BG- ( (RND*X) * {2 
*RG) ) 

2 7 PAPER lr CLS 

30 LET L-2WS: LET H-L7 (SQB 

40 FOR K-l TO S+l: LET C(K,1, 
1)-C(1.1.1)+L*K-FN R(l): LET 
C(K.1,2)-C(K-1.1,2)-FN RU): 
NEXT K 

50 FOB J-l TO Sr FOR K-l TO S 

-J*l 

60 LET C(K.G,1)-FN R(1)+(C(K. 

F,1)+C{K+1.F, 1) ) 11 

70 LET C(K.G.2)=FN R[1)+H+(C( 

K,F.2)+CtK+J ,F,2))/2 

80 PLOT C(K.F.l) ,C[K,F,2) : 

DBAU C(K+1,F.1)-PEEK 23677, C[ 

K+1.F,2)-PEEK 23678 

90 DRAU C(K,G.1)-PEEK 23677.C 

(K,G . 2) -PEEK 23678: DRAU C(K. 

F.D-PEEK 23677, 0 ( K , F . 2) -PEEK 

23678 

100 NEXT K; LET F-3-F: LET G-3 
-F: NEXT J 

110 FOB Y-40 TO 0 STEP -.75 

120 PLOT 0,y 

130 FOR n-1 TO 100 

140 LET a=RND"10 

150 LET b«5-RND«10 

160 IF a+PEEK 23677>255 THEN 

LET n-100: DRAU 255-PEEK 23677 

,b: GOTO 190 

170 IF (PEEK 23678) +b<0 THEN 
GOTO 150 
180 DBAU a.b 
190 NEXT n 
200 NEXT y 

210 FOR n=l)SB "a" TO USH "a" + 7 
: BEAD a: POKE d, a: NEXT m 
220 DATA 16,56.84.16,56.84.146 

,16 

230 FOR n-1 TO 80 

MO PRINT AT 17 + INT CRNDM), 

BND-31; BRIGHT li PAPER 4; 

INVERSE 1;CHRS 144: 

250 NEXT n 

260 PBINT II: INVERSE 1;AT 0,4 
i" RE5-";S;" BUGOS IDADE"" ; RG 

270 GOTO 270 



D 




0) +L*K-FNR(0) :C(K.0,1)-C(K-1.0, 

1) -FNR(O) : NEXT 

50 FOB J-l TO S:FOR K=0 TO S-J 
60 C{K,C,0)-FNB(0)+(C<K.F.O)+C( 
K+1.F.0H/2 

70 C(K,G,1)«FNB(0>-H+(C(K,F.1)+ 
C(K+l,F.l))/2 

80 LINE [C{K,F,0) .C(K.F.l) )-{C( 
K + l.F.O) ,C(K+1,F,D) ,PSET 
90 LINE -(C(K.G.O) .CIK.G.D) ,PS 
ET:LINE-(C(K,F.O) ,C(K.F,1)) , PSE 



10 PMODE 4 , 1 : PCLS : SCP.EEN 1,1 
20 DIM C(200.1.1) :F-0:G-1:C(0.0 
,1)-150:C(0, 0,01-10 
30 S-80 : L-230/S : H*"L/SQ.R (3) :DEFF 
NB(X)-3-BND(0)*6 
I 40 FOR K-l TO S:C(K,0,0)-C{0.0. 



10 HGR2 

20 DIM C(200.1,1):F - 0:0 - 1: 
C(0,0.1) - 150:C(0,0,0) - 10 
30 S - B0:L - 230 / S:H - L / 
SQR (3): DEF FN H£X) - 3 - RN 
D (1) * 6 

40 FOB K - 1 TO S:C(K,0.0) - C 
(0,0,0) + L * K - FN R(0):C(K, 
0,1) - C(K - 1 ,0,1) - FN B(0J : 
NEXT 

50 FOR J - 1 TO S: FOR K - 0 T 
O S - J 

60 C(K.G.O) - FN RIO) + <C(K,F 

,0) + C(K + 1,F,0)1 / 2 

70 C(K.G.l) - FN R (0) - H + (C 

<K,F,1) + C(K + l.F. 1) ) / 2 

80 HPLOT C(K.F.O) ,C(K,F,1) TO 

C(K + l.F.O) ,C(K + 1,F,1) 

90 HPLOT TO C(K.G.O) .CtK.G.l) 

: HPLOT TO C(K.F.O) ,C(K,F,1) 

100 NEXT :F-1-F:G-1-F: 

NEXT 
110 GOTO 110 



10 SCREEN 2 

20 DIM C(200. 1.1) :F-0:G-1:C(0.0 

,1)»150:C(0,0,0)-10 

30 S-80 : L-230/S : H-L/SQB ( 3) : DEFF 

NR(X)=3-BND(1)"6 

40 FOB K-l TO S:C(K,0.0)-C(0,0. 

0) +L«K-FNR(0) :C<K.0.1)-C(K-1,0. 

1) -FNB (0) : NEXT 

50 FOR J-l TO S:FOR K-0 TO S-J 
60 C(K,G,0)-FNR(0)+(C(K.F,0)+C( 
K+l,F.0))/2 

70 C(K,G,1)-FNR(0)-H+ÍC(K,F.1)+ 
C(K+l,F,l))/2 

80 LINE(C(K,F.O) ,C(K,F.l) ) -<C(K 

+ 1 ,F,0) ,C(K+1 .F.l) ) 

90 LINE-(C<K,G,0) ,C(K,G,1)> :LIN 

E-(C{K,F.O) ,C(K,F,1)) 

100 NEXT:F-1-F:G-1-F:NEXT 

110 GOTO 110 

A íinha 30 define o faror de escala 
dos triângulos e especifica o comprimen- 
to e a altura de um lado. A linha 40 
preenche duas matrizes com as coorde- 
nadas iniciais de cada triângulo. Obser- 
ve que há um fator aleatório — portan- 
to, os valores irão variar em um peque- 
no intervalo a cada execução do progra- 
ma. A linha 50 inicializa dois laços: um 
para desenhar os triângulos horizontal- 
mente na tela, e outro para colocá-los 
mais acima. 

O vértice de cada triângulo é especi- 
ficado nas linhas 60 (coordenada X) e 
70 (coordenada Y). A tinha 80 move o 
cursor para o canto esquerdo do triân- 
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guio e desenha sua base. No programa 
para o Speetrum, os PEEK sublraidos 
das coordenadas asseguram que os pon- 
tos não caiam fora da leia, o que pro- 
vocaria uma interrupção do programa 
ao se tentar executar o DRAW. Na li- 
nha 90, o DRAW é diredonado para o 
vértice do triângulo e depois para o can- 
to esquerdo (o início). A linha 100 com- 
pleta o primeiro laço. Este desenha uma 
fileira de triângulos e, após redefinir al- 
gumas variáveis, de maneira a deslocar 
a fileira um pouco mais para cima, re- 
começa a construção da montanha. Na 
versão para o Spectrum, o programa 
completa a figura desenhando "'árvo- 
res" na base da montanha. 



Modificando os valores de algumas 
variáveis, você poderá obter muitas ima- 
gens diferentes. Mas, lembre-se, essa va- 
riação atinge apenas o tamanho, a po- 
sição e outros detalhes, mas não a for- 
ma geral da figura. 

O próximo programa permite que vo- 
cê introduza uma forma inicial, cons- 
truindo, a partir dela, uma figura frac- 
(al. O grande número dc sub-rotinas re- 
cursivas pode ser um problema no Ap- 
ple — esse micro só admite que uma 
sub-rotina seja chamada por ela mesma 
24 vezes. Por isso deve-se ter cuidado ao 
escolher o nível de recursão. 



10 POKE 23658.8: LET F=0: LET 

AS-"": LET CL-1 

20 DIM XU00): DIM Y(IQO): 

DIH T(30) : DIM U(30) : DIM V( 

60) : DIM W{60) : DIM J (100) 

25 BORDE R D: PAPER 7: INK 0: 

CLS 

30 GOSUB L40 
40 GOSUB 350 

50 INPUT "No DE NÍVEIS DE REC 

URSAO " ; NR : IF ABS (INT (NR) ) 

<1 THEN COTO 50 

60 LET F-l: LET N-0 : CLS 

70 PLOT INVERSE 1; OVER 1; 

INT (127+X(P)) ,INT (85+YIP)) 

30 GOSUB 500; IF P>-2 THEN 
! GOTO 80 

90 LET A$=INKEYS: IF AS""" 

THEN GOTO 90 <JH^H 
100 PR I NT |1;"S PARA SAIR , GUA 
LQUER OUTRA P/ CONTINUAR" 
110 LET AS- INKEYS - IF AS*"" 

THEN GOTO 110 
170 IF ASO-S" THEN GOTO 25 
130 CLS i STOP 
140 IF F-0 TH EH GOTO 170 
150 PR INT "MESMA FORMA INICIAL 
(S/N) 7 '■; 

160 LET AS=INKEYS : IF ASO"S" 
AND AâO-N" THEN GOTO 160 



165 PRINT A3 

170 IF F-0 OR AS="N" TtiEN 
GOSUB 230 

ião FOR K-2 TO cy+i 
190 LET P-K-l 

200 LET X(P)=T(K): LET Y(P)=U( 
K) 

210 NEXT K 

220 RETURN 

230 INPUT "No DE VÉRTICES ";VT 
240 FOR L-2 TO VT+1 
250 INPUT "VÉRTICE ";(L-1);"=" 
• X, Y 

260 LET T(L)-X*B5: LET U(L)=y» 
B5 

270 IF L-2 THEN PLOT INT (127 
+ T ( L) ) , TNT (85+U (L) ) 
275 IF L<>2 THEN DRAW 1Z7+T(L 
)-PEEK 23677. 85 + tl ( L) -PEEK 

23678 

2f)0 NEXT L 

290 PRINT "CURVA FECHADA (S/N) 

300 LET AS=INKEY$: IF ASO"N* 
AND AS<>"S" THEN GOTO 300 

305 PRINT AS 

310 TF AS="N" THEN LET CV=VT- 
PAUSE 0 : RETURN 

370 LET CV-VT+1: LET T(CV+1)=T 

(2) : LET U(CV41)=>U(2) 

330 DRAW 127+T(CV)-PEEK 23677. 

H5+U(CV)-PEEK 23678 

340 RETURN 

350 CLS : IF F*0 THEN GOTO 
380 

360 PRINT "MESMO GERADOR (S/N) 

37o'lET AS=INKEYS: TF ASO"S" 
AND AS<> M N M THEN GOTO 370 
375 PRINT A$ 

380 IF F=0 OR AS="N" THEN 
GOSUB 4 00 
390 RETURN 

400 INPUT "No DE VÉRTICES DO G 
ERADOR NAO INCLUINDO AS FXTR 
EMTDADES (0.0) E (1,0) ";GN 
420 PLOT INVERSE 1: OVER L;B5 



450 IF ABS t INT |X))>1 OR ABS 
1 1 NT (Y))M THEN GOTO 440 
460 LET V(M)=X: LET U (M) -Y : 
LET X=X*85+85: LET Y-85+Y*8S: 
DRAW X-PEEK 23677, Y-PEEK 23678 
4 70 NEXT M 

480 DRAW 175- PEEK 23677.85- 

PEEK 7367R: PAUSE 0 
490 RETURN 

500 IF NR=N THEN GOSUB 520 
505 IF NRON THEN GOSUB 570 
510 RETURN 
520 FOR W=l TO GN+l 
^Bm.E^*=P-1 'ji jâ^H 
540 IF WSS X(P)>127 OR ABS Y!P 
) >fl5 THEN GOTO 560 
550 DRAW 127+X (P) -PEEK 23677, 
35+YÍPIPEEK 23678 
560 NEXT U- RETURN 
5/0 LET N--N + 1 L -Jtt^tBm 
580 IF N=l THEN LET JM-CV-I 
5B5 IF NOl THEN LET JM=GN + 1 



590 FOR E-) TO JM 
595 IF P-l THEN LET E=JM : 
NEXT E: RETURN 
600 LET TX=X(P) : LET TY=Y(P) 
610 LET BX-X(P-l): LET BY-Y(P- 

620 LET DX=TX-BX: LET DY=TY-BY 

630 FOR F=2 TO GN+1 

640 LET X(P)=DX»V(F)-DY*W(F)+ 

650 LET Y(P)=DY*V(F)+DX*W(F)^ 

B¥ 

660 LET p'P*.l 
6/0 NEXT F 

6ff0 LET X(P)-TX: LET Y(P)»TY 
f.'j0 LET J(CL)*E: LET Ct. = CL + l : 
GOSUB 500: LET CL*CL-1 : LET E- 
J(CL) 

700 NEXT E 
710 LET N-N-l 
720 RETURN 



10 DIM X(50) . Y (50) ,XT (50) , YTI10 

) ,XG(20) ,YG(20) .J(S0) 

20 PMODE 4.1:COLOR 0,1:PCLS:CLS 

30 GOSUB 140 

40 GOSUB 350 

50 INPUT"NO.DE NÍVEIS DE RECURS 
AO - " ; NR : NR= INT (NR ) : IF NR<1 THE 
N 50 

60 F-l ;N-0 : PCLS: SCREEN 1,0 

70 LINE "(12 7+X (P) ,96-Y(P) ) . PRE 

SET 

BO GOSUB 500: IF P>0 THEN 80 
90 AS=INKEYS:IF AS = "" THEN 90 
100 CLS:PRINT"S PARA SAIR, QUAL 
QUER OUTRA TECLA PARA CONTI 

NUAR" 

110 AS-TNKEYS : IF AS = "" THEN 110 
1 20 IF ASO"S" THEN 20 
130 CLS:END 
140 IF F=0 THEN 170 
150 PRINT"MESMA FORMA INICIAL 
S/N) ?" ; 

160 AS = INKEYS:IF ASO"S" AND AS 
<>"N" THEN 160 ELSE PRINT AT AS 
170 IF F-0 OR AS-"N" GOSUB 230 
180 FOR K-l TO CV 
190 P-K-l 

200 X(P)-XTfK) : Y (P)=YT[K) 
210 NEXT 
220 RETURN 

230 INPUT"N0.DE VÉRTICES NA FOR 

ME INICIAL " ; VT : VT-INT (VT) : IF V 

T<1 THEN 230 

240 FOR L-l TO VT 

250 PRINT" VÉRTICE " ; L ; ; INPUT" - 

";X.Y:IF ABS (X) >1 OR ARS(YI>1 
THEN 250 ., j^, 
260 XT(L)=X*95:YT(L)~Y*95 
270 IF L-=l THEN LINE -(127+XTf.L 
) ■ 96- YT ( L ) ) . PRESET ELSE LINE -( 
127+XT(L) ,96-YT{L) ) ,PSET 
280 NEXT 

290 PRINT-CURVA FECHADA (S/N)?"; 
300 AS=INKEYS:IF AS<>"N" AND AS 
<>"S" THEN 300 ELSE PRINT AS 
310 IF AS="N" THENCV-VT:GOSUB 7 
30 : RETURN 

320 CV=VT-U tXT(CV) =XT(1) lYT (CV) 
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330 LINE - í 1 2 7 + XT (CV) , 96- YT (CV) ) 
,PSET:GOSUB 730 
340 RETURN 

350 PCLS:IF F=0 THEN 380 

360 PPINT"MESMO GERADOR {S/N) ? 

370 AS-INKEY3:IF ASO"S" AND AS 
<>"N- THEN 370 ELSE PRINT AS 
3B0 IF F = 0 OR A5="N" GOSUB 400 
390 RETURN 

400 'pRINT"N0 . DE VÉRTICES NO GER 
ADOR" 

410 INPUT"NAO INCLUINDO AS EXTR 
EK IDADES (0,0) E (1,0) - ";GN 
:GN=INT(GN) :IF GN<1 THEN 410 
420 DRAU"BM80,96" 
430 FOR M=l TO GN 

440 PRINT "VÉRTICE ";M;"DO GERA 
DOR " ; :INPUT "- " ; X , Y 
450 IF ABS{X)>1 OR ABS(Y)>I THE 
N 440 

460 XG (M)=X:YG(M)-Y: X"X"95+80 : Y 
-96-Y*95:LINE-(X,Y) , PSET 
4 70 NEXT 

480 LINE - (175, 96) , PSET: GOSUB 73 
0 

490 RETURN 

500 IF NR=N GOSUB 520 ELSE GOSU 
B 570 

510 RETURN 

520 FOR L=l TO GN+1 

530 P-P-l 

540 IF ABS(X(P) )>127 OR ABS(Y(P 
))>95 THEN 560 

550 LINE- (127 + X (P) , 96-Y (P) ) , PSE 
T 

560 NEXT: RETURN 
570 N-N+l 

580 IF N'l THEN JM-CV-1 ELSE JM 
-GN+1 

590 FOR J-l TO JM 

600 TX=X(P) :TY=Y{P) 

610 BX=X(P-1) :BY-Y(P-1) 

620 DX=TX-BX:DY=TY-BY 

630 FOR E=l TO GN 

640 X(P) -DX"XC(E) -DY*YG(E) +BX 

650 Y(P)-DY*XG[E)+DX*YG(E)+BY 

660 P=P+^J\ * 

670 NEXT 

630 X(P)»TX:Y(P)-TY 

690 J (CL) = J : CL=CL+1 : GOSUB 500:C 

L-Cl-1 iJ«J (CL) 

700 NEXT J 

710 N=N-1 

720 RETURN 

730 AS=INKEYS: SCREEN 1.0:K=10Q0 
740 K-K-1:IF K>0 AND INKEYS""" 
THEN 740 
750 RETURN 



5 HOME 

10 DIM X (50) ,Y (50) .XT(IO) . YT(1 
0) ,XG(20) .YC(20) . J(50) 
30 GOSUB 140 
40 GOSUB 350 

50 TEXT : HOME : INPUT "QUANTO 
S NÍVEIS DE RECURSAO " : NR : NR - 

INT (NR) : IF NR < 1 THEN 50 
60 F - : ■ N -■ 0 : HGR2 

,70 HCOLOR= 3: HPLOT 127 + X(P) 

I .96 - YIP) 



80 GOSUB 500: IF P > 0 THEN 80 
90 GET AS 

100 TEXT : HOME : PRINT "<S> P 
ARA SAIR E QUALQUER OUTRA PARA 
CON-TINUAR" 
110 GET AS 

120 IF AS < > "S" THEN 30 

130 HOME : END 

140 IF F = 0 THEN 170 

150 TEXT : HOME : PRINT "MESMA 

FORMA INICIAL? (S/N)"; 
160 GET AS: IF AS < > "S" AND 

AS < > "N" THEN 160 
165 PRINT AS 

170 IF F - O OR AS = "N" THEN 

GOSUB 2 30 
180 FOR K = 1 TO CV 

EVe* "V ~ 1 a <¥ V ™ 

200 X(P) = XT(K):Y(P) = YT(K) 
210 NEXT 
220 RETURN 

230 INPUT "QTOS. VÉRTICES NA F 
ORMA INICIAL " ; VT : VT = INT (VT 
) : IF VT < 1 THEN 230 
240 FOR L = 1 TO VT 
250 PRINT "VÉRTICE "jL:: INPUT 
" - " :X,Y: IF ABS (X) > 1 OR 

ABS < Y) > 1 THEN 250 
260 XT(L) = X ' 95:YT(L) = Y * 
95 



280 GET AS: IF AS < > "N" AND 

AS < > "S" THEN 280 
285 PRINT AS: FOR T - 1 TO 300 
: NEXT : HGR2 
290 FOR L - 1 TO VT 
300 IF L = 1 THEN HCOLOR= 3: 
HPLOT 127 + XT(L),96 - YT(L) 
302 IF L < > 1 THEN HCOLOR- 
3: HPLOT TO 127 + XT(L),96 - Y 
T(L) 

307 NEXT 

310 IF AS - "N" THEN CV - VT : 
GOSUB 7 30: RETURN 
320 CV - VT + 1 :XT (CV) - XT (1) : 
YT(CV) = YT(1) 

330 HPLOT TO 127 + XT(CV) ,96 
- YT(CV) : GOSUB 730 
34 0 RETURN 

350 IF F = 0 THEN 380 

360 TEXT : HOME : PRINT "MESMO 

GERADOR? (S/N) " ; 
370 GET AS: IF AS < > "S" AND 

AS < > "N" THEN 370 
375 PRINT AS 

380 IF F = 0 OR AS - "N" THEN 

GOSUB 400 
390 RETURN 

400 TEXT : HOME : INPUT "QUANT 
OS VÉRTICES NO GERADOR NAO INCL 
UIN-DO AS EXTREMIDADES (0,0) E 

I GN Mg^*M|Jfl 
410 GN = INT (GN) : IF GN ^ 1 T 
HEN 400 

430 FOR M = 1 TO GN 

440 PRINT "VÉRTICE ";M;" DO GE 

RADOR" : : INPUT " - " ; XG (M) . YG <M 

) 

450 IF ABS IXG(M)) > 1 OR AB 
S (YG (M) ) > 1 THEN 440 
455 NEXT 



457 HGR2 : BCOLOR= 3: HPLOT 80 

458 FOR M = 1 TO GN 

460 X = XG(M) * 95 + 80:Y = 96 
- YG (M) * 95: HPLOT TO X , Y 

4 70 NEXT 

480 HPLOT TO 175,96: GOSUB 73 
0 

490 RETURN 

500 IF NR - N THEN GOSUB 520 

505 IF NR < > N THEN GOSUB 5 

70 

510 RETURN 

520 FOR L = 1 TO GN + 1 

530 P-P-l 

640 IF ABS (X(P)) > 127 OR A 

BS (Y(P)) > 95 THEN 560 

550 HPLOT TO 127 + X(P),96 - 

Y(P) 

560 NEXT : RETURN 

570 N * H + 1 

5B0 IF N - 1 THEN JM = CV - 1 

585 IF N < > 1 THEN JM = GN + 

590 FOR J = 1 TO JM 

600 TX = X(P) :TY - Y(P) 

610 BX - X(P - 1):BY - Y(P - 1) 

620 DX ■ TX - BX : DY ■ TY - BY 
630 FOR E - 1 TO GN 
640 X(P) = DX * XG{E) - DY * YG 
(E) + BX 

650 Y{P) =■ DY * XG(E) + DX * YG 

(E) +■ BY 

660 P - P + 1 

670 NEXT E 

680 X(P) - TX:Y(P) - TY 

690 J(CL) ■ J:CL = CL + 1 ; GOSU 

B 500:CL - CL - 1:J = J (CL) 

700 NEXT J 

710 N - N - 1 

730 FOR T = 1 TO 1000: NEXT 
740 RETURN 



5 CLS 

10 DIM X<50) ,Y(50) ,XT(10) ,YT(1(> 
) ,XG(20) ,YG(20) ,J(50) 
20 SCREEN 0 
30 GOSUB 1.40 
40 GOSUB 350 

50 SCREEN 0: INPUT "QUANTOS NÍVE 

IS DE RECURSAO " ; NR T NR= INT (NR) : 

IF NR<1 THEN 50 

60 F=l : N=0 : SCREEN 2 

70 LINE-(127+X(P) ,96-Y(P)) ,4 

80 GOSUB 500 :IF P>0 THEN BO 

90 AS=INKEYS:IF AS="" THEN 90 

100 SCREEN 0:PRINT"<S> PARA SAI 

R E QUALQUER OUTRA PARA CONTINU 

AR" 

110 AS=TNKE¥S-IF AS="" THEN IH 

120 IF AS<>"S" THEN 20 

130 CLS: END 

140 IF F=0 THEN 170 

150 SCREEN 0 : PRINT"MEKMA FORMA 

INICIAL? (S/N) " ; 

160 AS=INKEYS:IF AS<>"5" AND AS 
<>"N" THEN L60 ELSE PR TNT AS 
170 IF F=0 OR A3="N" THEN GOSUB 
230 

180 FOR K-l TO CV 
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190 P = K-1 

200 X[P)=XT(K) :Y<P)=YT(K) 
210 NEXT 
220 BETUBN 

230 INPUT "QTOS. VÉRTICES NA FO 
RKA INICIAL" ;VT :VT=INT (VT! : TF V 
T<1 THEN 230 
240 FOR L»l TO VT 

250 PR TNT "VÉRTICE ":Li:INPUT" 
- ":X,Y:IF ABS(X)>1 0R ABS (Y) >1 

THEN 250 " 
260 XT(L)=X*95:YT(L)=Y*95 
265 NEXT 

270 PRINT"C1IRVA FECHADA (S/N) ? 

2B0 AS=TNKEYS ' IFAS<>"N" AND AS< 
>-S" THEN 280 ELSE PHTNT AS : FOR 

T-l TO 300: NEXT 
290 SCREEN 2 : FOR L=J TO VT 
300 tF L-l THEN LINE - t J 27+XT ( L 
) .96-YTÍL) ) ,4 ELSE LINE -U27+X 
T(L) . 96 - YT ( L ) ) , II 
305 NEXT 

310 IF A$="N" THEN CV-VT:GOSUB 
7 30 r RETUfttí 

320 CV-VT+1 :XT(CV) -XT ( 1 ) :YT(CV) 
=YT{1) 

330 LINE -Í127+XT{CV) ,96-YT(CV) 

) .11 :G0SUB 730 

340 RETURN 

350 IF F=0 THEN 380 

360 SCREEN 0 : PR INT"MESMO GERADO 

H? (3/N) " ; 

370 AS=INKEYS:IF AS<>"S" AND AS 
<>"N" THEN 370 ELSE PRINT AS 
380 IF F=0 OR AS="N" THEN GOSUB 

400 
390 RETURN 

400 INPUT"QUANTOS VÉRTICES NO G 
ERADOR NAO INCLUINDO AS EXTREMI 
DADES (0,0) E (1.0)";GN 



410 GN= INT (GN) : IF GN<1 THEN 400 
4 30 FOR M=l TO GN 

440 PR INT" VÉRTICE ";M;" DO GERA 
DOR"; ■INPUT" - " ; XG (Ml . YG (MJ 
450 IF ABS(X)>1 OR ABS(Y)>1 THE 
N 440 
455 NEXT 

457 SCREEN 2 : PSET (80 , 96) ,11 

458 FOR M=l TO GN 

460 X=XG (M) "95+8 0 :Y= 96- YG (M) "95 
■ LINE- (X.Y) , U 
4 70 NEXT 

4B0 LINE- (1 75.96) . 11 : GOSUB 730 
490 RETURN 

500 IF NR=N THEN GOSUB 520 ELSE 

GOSUB 5 70 
510 RETURN 
520 FOR L=l TO CN+1 
530 P = P-1 

540 IF ABS (X { P) ) >1 27 OR ABS(Y(P 
) )>95 THEN 560 

550 LINE- (127+X (P) . 96-Y (P) ) , 11 
560 NEXT : RETURN 
570 N=N+1 

580 IF N«] THEN JM=CV-1 ELSE JM 
=GN+1 

590 FOR J=l TO JM 

600 TX=X(P) :TY=Y(P) 

610 BX=X(P-1) :BY=Y(P-1) 

620 DX=TX-BX:DY=TY-BY 

630 FOR E-l TO GN 

640 X(P) =DX*XC (E) -DY*YG (E) + BX 

650 X (P) =DY*XG (E) +T)X*YG (E) +BY 

660 P=P+1 

670 NEXT 

680 X (P) =TX: Y (P) =TY 

690 J(CL)=J:CL=CL + l:GOStJB 500:C 

L=CL-1 : J»J(Ct) 

700 NEXT J 

710 N-N-l 

720 RE TU RN 



730 AS=INKEY5:K=1000 

740 K=K-J:IF K>0 AND f NKEYS=" " 

THEN 740 

750 RETURN 

Quando você executa o programa, a 
linha 230 pede o número de vértices do 
desenho inicial que irá gerar a figura 
fractat. Convém traçar essa figura pre- 
viamente em uma folha de papel. Mar- 
que dois pomos representando o inicio 
e o fim da linha e una-os por meio de 
pequenas relas. Conte o numero de can- 
tos c forneça es.se dado ao computador. 
Não exagere no número de relas: 
lembre-se que você terá que especifi- 
car as coordenadas de cada vértice (li- 
nha 250), Estas devem ter valores com- 
preendidos entre -lei. 

O laço entre as linhas 240 c 280 (240 
e 305 nas versões para o MSX e o Ap- 
ple) permite que você introduza as 
coordenadas e desenhe a forma inicial, 
determinando inclusive se sua figura se- 
rá fechada ou aberta (linha 290). 

Em seguida (linhas 400 a 490), o com- 
putador solicita ao usuário a definição 
da figura que substituirá cada linha re- 
la do desenho inicial — essa figura é ge- 
ralmente chamada de gerador. Como 
você fez para a forma inicial, desenhe 
d figura e passe a informação para o 
computador. 

Finalmente, você deverá especificar 
o número de níveis de recursão. Quan- 
do esse valor é digitado, a linha 80 cha- 
ma a sub-rotina que verifica se O pro- 
grama está rodando pela primeira vez. 
Em caso afirmativo, o programa ê des- 
viado para a rotina principal {linha 570 
à 720), que desenha a figura (racial. Se 
o programa já estava sendo rodado, o 
computador dá ao usuário a chance de 
redefinir o gerador. 



TESTE 



Para experimentar o programa, digiie 
o valor 3 para o número de vértices da 
forma inicial. Em seguida, introduza as 
coordenadas 0.5 c -0.2 para o vértice 1; 
0 e 0.4 para o vértice 2; 0.5 e -0.2 para 
o vértice 3. Ao responder N à pergunta 
"CURVA FECHADA?", aparecerá na 
tela um triângulo sem base. Como foi 
feito para a forma inicial, entre 3 para 
o número de vértices do gerador e defi- 
na as coordenadas: 0.2 e 0 para o vérti- 
ce 1; 0.4 e 0.8 para o vértice 2; 0.6 e 0 
para o vértice 3. Esses dados definem a 
imagem de um triângulo sem base sobre 
uma linha. Por fim, introduza o valor 
5 para o nível de recursão (3 para o Ap- 
ple) e observe a geração da figura 
fractal. 
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A manipulação dos bits individuais de um 
byte de memória por meio de comandos 
do BASIC parece uma tarefa impossível. 
Mas não é: aprenda os truques de 
programação necessários para isso. 



O byte é a unidade básica de memória 
usada em microcomputadores. Os diver- 
sos comandos da linguagem BASIC tra- 
tam o byte como a unidade mínima de in- 
formação: os caracteres individuais de 
uma cadeia alfanumérica, por exemplo, 
podem ser isolados e processados indivi- 
dualmente com comandos do tipo MID$, 
LEFT$, KM, HIV LEFTSS, CHRS, ASC 
etc Cada caractere ocupa um byte. Os va- 
lores numéricos, por sua vez, em geral 
ocupam dois ou mais bytes, dependen- 
do de sua precisão (sobre a armazenagem 
de números, veja o artigo da página 894). 
Usando os comandos VARPTR, PEEK 
e POKE, temos acesso individual aos 
bytes onde variáveis, vídeo, teclado etc. 
estão armazenados. 



Existe, porém, uma unidade de infor- 
mação menor que o byte. Essa unidade 
è o bit (binary digit, ou dígito binário, 
em inglês), que corresponde aos dígitos 
0 e I que todo computador digital usa 
como base de representação numérica. 
Cada byte tem oito bits, numerados de 
0 (o bit menos significativo) a 7 (o bit 
mais significativo). 

Muitas vezes, surge a necessidade de 
manipular diretamente os bits da memó- 
ria. Para isso, convém utilizar uma ro- 
lina em linguagem de máquina, que tem 
eomandos específicos para o acesso e a 
manipulação de bits individuais e é mais . 
rápida que qualquer rotina em lingua- 
gem de alto nível. 

Entretanto, poucos sabem que é per- 
feitamente possível realizar manipula- 
ções dtretas de bits com os comandos já 
existentes no BASIC. Não é tão rápido 
nem tão direto quanto em linguagem de 
máquina, mas funciona bem. 

Neste artigo, você aprenderá vários 
truques que permitem a manipulação de 
bits em quase todos os microcomputa- 
dores. Os comandos do BASIC mais re- 
levantes para esse fim são o CHRS, o 
ASC (ou CODE, no ZX-81) e os opera- 
dores lógicos AND, NOT e OR. 

Com as funções CHRS e POKE, po- 
demos criar bytes com uma determina- 
da configuração de bits. CHRS é 
I utilizada no trabalho com variáveis sim- 



bólicas dentro de um programa em BA- 
SIC; POKE nos dá acesso direto às 
locações absolutas da memória RAM. 

CHR$(1), por exemplo, define um 
byte com o bit menos significativo igua- 
lado a I, e todos os outros igualados a 
0: 0000001 em binário. CHRS(2) gera 
um byte com os dois bits menos signifi- 
cativos igualados a I: 0000001 1. 
CHRS<3> define o byte 00000010 e as- 
sim por diante. Com o auxílio de uma 
tabela de correspondência entre núme- 
ros decimais de 0 a 255 e os binários 
equivalentes, pode-se produzir qualquer 
padrão de bits ligados e desligados. 

Para converter o padrão de bits em 
um número decimal, devemos conside- 
rar cada bit como o índice de uma po- 
tência de 2 e somar o resultado. Supo- 
nhamos um byte com os bits 0, 3 e 4 



00001101 

O número decimal correspondente é: 
2* + 2 3 + 2 o m 16 + 8 + 1 = 25 

Eis algumas expressões úteis para li- 
gar ou desligar só o bit B de um byte ar- 
mazenado em um caractere BS: 



Para ligar: 
BS c CHRS(CODE{BS) OR 2**B) 

Para desligar: 

BS=CHR$(CODE(BS) AND NOT 2«*B) 



Para ligar: 

BS-CHRS(ASC(BS) OR 2**B) 

Para desligar: 

BS-CHRS(ASCtBS) AND NOT 2**B) 



Para desligar: 

BS=CHRS CASC(BS) AND NOT 2TBI) 

Para ligar: 

B$=CHRS(ASC(BS) OR 2"BÍ) 



BS-CHRS {ASC (BS) AND NOT 2~BÍ) 

Observe que, com exceção dos mi- 
cros da linha Sinclair, que não têm va- 
riáveis inteiras, usamos a notação B% 
para indicar que esse valor deve ser in- 
teiro. Isso ajuda a evitar erros de cál- 
culo, caso B seja um bil real de preci- 
são simples. 

Para tornar o bit B de um byte igual 
a I , usamos o operador lógico OR. Su- 
ponhamos que você queira igualar a 1 
o bit número 7 (o mais significativo) de 
um byte igual a 0000101 1. Teremos, en- 
tão, a operação, em decimal: 

25 OR 2 7 = 25 OR 128 

o que, em binário, dá: 
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Para ligar: 
BS-CHRS (ASC (BS) OR 2TBI) 



Note que OR tem o efeito de operar 
individualmente sobre cada par de bits 
na mesma posição, nos operandos, de 
acordo com o seguinte esquema: 

0 OR 0 - 0 

1 OR 0 = 1 
0 OR 1 - 1 



Para colocar 0 em um bil qualquer 
do byte BS, usamos a operação AND 
NOT. De fato: 

0 AND NOT 0-0 AND 1=0 

1 AND NOT 0-1 AND 1-1 

0 AND NOT 1-0 AND 0-0 

1 AND NOT 1-1 AND 0-0 

pois a operação NOT transforma um bit 
0 em I e vice-versa, equivalendo, por- 
tanto, a uma inversão do bit. 

Se você quisesse transformar o biná- 
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APLICAÇÕES 



rio 10001011 em 00001011, igualando o 
bit 7 a 0, teria: 



que e a mesma coisa que: 



00001011 



Pode ser que, em vez de trabalhar 
com bytes armazenados em caracteres li- 
terais, você queira manipular os bits in- 
dividuais de um número inteiro — que, 
na maioria dos micros, é armazenado 
em dois bytes contíguos, em um lotai de 
dezesseis bits. Nesse caso, use as expres- 
sões apresentadas a seguir. Mas lembre- 
se de que alguns computadores, como 
o ZX-81, podem armazenar de forma 
diferente um número inteiro. 
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Para ligar: 
[t - I» OR 27Bt 



It AND NOT 21Bt 



It - It OS 9192* 

A expressão AND NOT desliga o 
B-ésimo bit de I^o. 

Os micros ZX-81 e Spectrum não po- 
dem utilizar essas expressões, já que não 
têm variáveis inteiras. Todos os outros. 



COMBINAÇÃO DE BITS 



Para ligar: 

It - It OR 2"Bt 

Para desligar: 

II - It AND NOT 2"Bt 

Essas expressões funcionam com um 
conjunto de dezesseis bits — ou seja, se 
quisermos ligar o bit 13 do byte \°ltt, fa- 
remos a operação: 



É possível ligar uma combinação de 
bits em uma variável literal ou inteira. 
Para isso, usa-se uma expressão de so- 
ma dos expoentes de 2 correspondentes 
a cada bit a ser ligado, combinados por 
operações OR. Para ligar os bits 3 e 5 
do byte em TS, faça: 



TS - CHRSt<2**3) OR (2**5) ) 

QD 

TS - CHRS{(Zt3) OR (2T5)) 
TS - CHR5((2-3) OR (2"5) ) 



Da mesma forma que podemos ligar 
ou desligar bits individuais em lingua- 
gem BASIC, é bastante fácil examinar 
o valor desses bits, através de uma ex- 
pressão simples: 



R - CODE (BS) AND 2**B 



R - ASC {BS> AND 2**B 

QQ 

Rt - ASC IBS) AND 2TB* 
OU 

Rt - II AND 2TBI 



MSJ El 



Rt - ASC(BS) AND 2'Bt 



Rt - It AND I~Bt 



A operação AND isola apenas o va- 
lor do bit mascarado pelo byte igual a 
2 B . Por exemplo: qual é o valor do bit 
número 6 do byte 0100101 1? 



01000000 



que equivale a 89 AND 64, cujo resul- 
tado é 64 em decimal. 

Como o número resultante dessa ope- 
ração é maior do que 0, o resultado é 
verdadeiro. Se fosse igual a 0, leríamos 
então um resultado falso. 

Para transformar o resultado R em 
valor 1 , fazemos: 

Rt - ABS[Rt>(2 1 Bí - II) 

Em nosso exemplo, isso daria: 
ABS [64>63) = 1 

Se R°7o fosse 0, teríamos: 
ABS (0>63) - 0 

Eis aqui um programa para testar to- 
dos os bits de um byte de entrada: 



110 PRINT "ENTRE UM NUMERO EN- 
TRE 0 E 255) 
120 INPUT N 
130 LET NS-CHRSCN) 
140 FOR 1-0 TO 7 
150 PRINT "BIT "íli" - "j 
160 LET C-ASCÍNS) AND 2**1 
170 IF C THEN PRINT "SIM" 
180 IF NOT C THEN PRINT "NAO" 
190 NEXT I 



O programa para o ZX-81 é o mes- 
mo do Spectrum, com esta alteração: 



160 LET C=CODE(N3) AND 2**1 
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DD 



110 PHINT "ENTRE UM NUMERO EN- 
TRE 0 E 255) 
120 INPUT Nt 
130 NS=CHRS INI) 
140 FOR 11=0 TO 7 
150 PRINT "BIT ";It;" - 
160 Ci'ASC(NSl AND 2 711 
170 IF C* THEN PRINT "SIM" 
160 IF NOT Cl THEN PRINT "NAO" 
190 NEXT H 



O programa para o MSX e o Apple 
é igual ao anterior, com a modificação: 



160 Cl-ASC(NS) AND 2"IÍ 



Alé agora, vimos como manipular os 
bits de um único byte ou conjunto de 
dois bytes. Como uma cadeia alfanumé- 
rica contém até 255 caracteres, podemos 
manipular um conjunto muito maior de 
bits (um máximo de 8 x 255, ou 2040 
bits). Esse conjunto é chamado de ca- 
deia de mapeamento de bits (bit- 
mapsrring), e tem muitas aplicações em 
jogos, bancos de dados e outros progra- 
mas de carátcr profissional. 

Por exemplo, é possível armazenar 
em uma cadeia desse tipo condições 
sim/não ou verdadeiro/falso. Se um bit 
em determinada posição dessa cadeia es- 
tiver ligado, temos uma condição sim, 
ou verdadeira; se estiver desligado, uma 
condição não. ou falsa. 

O comprimento da cadeia depende- 
rá do número de condições tflag bits ou 
bits indicadores) que queremos incluir. 
Se o número de condições for N, o nú- 
mero de bytes da cadeia será: 
L = INT (N/B) +1 

Para inicializar um mapa MS, zera- 
mos todos os bits: 



45 CLS 

50 INPUT "NUMERO DE BITS NA CAD 
EIA *;n 

60 IF n>255 THEN GOTO 50 
70 FOR 1-1 TO INT(n/8)+l 
80 LET mS-mS+CHRS<0) 
90 NEXT i 



DD^i 



50 INPUT "NUMERO DE BITS NA CAD 
EIA ";N 

60 IF N>255 THEN 50 

70 MS^STRINGSIINTtN/SJ+l.O) 

Para ligar, desligar e testar um bit 
qualquer do conjunto total de N, preci- 
saremos de algumas funções poderosas: 
FNLS. FNDS e FNTS. 

Essas funções são bastante comple- 
xas, mas muito rápidas. Procure anali- 
sá-las passo a passo para entender o que 
elas executam: 



20 DEF FNLS(B)-mS(TO INTÍb/8)) 
+CHRS(ASC(niS(INTÍb/8)+l)) OR 2 
**{b-INT<b/8)*S))+pS(INT(b/8)+2 
TO) 

30 DEF FND$(b)-ioS(TO INT(b/8)) 
+CHR5(ASC(n)$(INT(B/8)+l)) AND 
NOT 2**(b-INT(b/8)*8))+mS(INT 
b/B)+2 TO) 

40 DEF FNT(b)-ABS((A5C(m$(INT 
(b/8)+l)) AND 2**{b-INT(b/8)* 
8) )<>0) 



DD 



20 DEF FNLS (B) =LEFT3 (MS , INT (B/8 
) ) +CHR3 (ASC (MID3 (MS . INT (B/8) +1 . 
1)) OR 2T (B-INTÍB/8) *8) ) +MID$ (M 
S.INT(B/8)+2) 

30 DEF FNDS (B) «LEFTS (MS , INT (B/8 
) ) +CHRS (ASC (MIDS (MS . INT (B/8) +1 . 
D) AND NOT 2T{B-INT(B/8)*8))+M 
IDS (MS. INT (B/8) +2) 
40 DEF FNT (B) "ABS ( (ASC (MIDS (MS . 
INT(B/8)+l)) AND 2 T (B-INT (B/8) * 

aiioo) 

Por fim, acrescentamos o restante do 
programa de demonstração das funções 
de manipulação e consulta de bits: 
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200 PRINT " PROGRAMA DE DEM0NSTR 

ACAO DE MAPAS DE BITS" 

210 INPUT "(DIGA (D) ESLIGA (T) 

ESTA (F)IM ";OP$ 

230 IF OPS-"F" THEN STOP 

240 INPUT "NUMERO DO BIT {0 A " 

|M| ") " ;B 

260 IF B>N THEN GOTO 240 

270 IF 0PS-"L" THEN M$-FNLS (B) 

280 IF OPS-*D" THEN MS "FNDS (B) 

290 IF OPS-"T" THEN PRINT "BIT 

";B," • " ; FNT (B) 

310 GOTO 210 



Você não terá dificuldade em encon- 
trar aplicações para os truques explica- 
dos neste artigo. 




Qual é a vantagem de empregar ca- 
deias alfanuméricas, em vez de conjun- 
tos numéricos, para armazenar grupos 
de bits? 

Como vimos no artigo Armazena- 
gem tíe Programas Ipágina 1001), aca- 
deia alfanumérica é armazenada na me- 
mória do microcomputador na forma de 
uma sequência contígua de bytes, ca- 
da qual ocupado por um caractere O 
primeiro byte da seqúéocia sempre in- 
dica □ número de caracteres da variá- 
vel literal \string). Esse número é "lido" 
por intermédio da função LEN, não ha- 
vendo, no BASIC (como ocorre em ou 
tras liguagensl, um byte encarregado 
de indicar ao interpretador onde termi- 

A vantagem de empregar cadeias al- 
fanuméricas decorre rustamente desse 
sistema de armazenagem usado pelo 
interpretador BASIC. 

A disposição sequencial dos bytes 
na memória facilita enormemente a 
programação de rotinas de acesso aos 
bits individuais de uma longa cadeia. 
Um string de trinta bytes, por exemplo, 
equivale a uma cadeia ininterrupta de 
240 bits, que podem ser lidos ou mo- 
dificados um a um. ou em grupos que 
se sobreponham aos limites entre 
bytes. Isso é muito mais difícil de ser 
feito quando a variável contém elemen- 
tos separados, como é o caso dos con- 
juntos numéricos. 



No desenvolvimento de jogos, por 
exemplo, a possibilidade de manipular 
bits amplia bastante as alternativas do 
programador. Entre outras coisas, vo- 
cê poderá modificar os gráficos impres- 
sos no video alterando diretamente as 
locuções de memória. 

Os recursos dc programação aqui 
examinados também serão úteis quan- 
do for necessário comprimir texto, em 
função de limilaçòes da memória. Na sé- 
rie de artigos sobre o assunto, que ini- 
ciamos na página 1332, apresentamos 
diversos algoritmos interessantes para a 
redução do espaço ocupado por um tex- 
to em até 50%. A maioria desses algo- 
ritmos procura colocar dois ou mais có- 
digos de caracteres em um único byte. 
Como exercício, tente implementar o su- 
percompressor baseado na estatística dc 
pares dc letras em um texto (veja os ar- 
tigos mencionados). 
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Processamento de textos é uma solução 

quase mágica, que a 
tecnologia deu a muitos dos problemas 
que têm atribulado os escritores, 
desde a invenção da escrita. 



É quase impossível produzir um tex- 
to perfeito logo na primeira tentativa. 



Em geral, cometemos erros ou, mais 
corriqueiramente, mudamos de ideia so- 
bre o que desejamos transmitir. Como 
se sabe, a correção e modificação de tex- 
tos já escritos toma tempo, e o resulta- 
do final acaba todo rabiscado. Pior, se 
houver muitas alterações, é preciso re- 
bater ou reescrever todo o documento, 
e novos erros podem aparecer. Quem já 
experimentou escrever conhece bem es- 
se torturante processo. 



O processamento de textos por com- 
putador apresenta a vantagem imedia- 
ta de facilitar a execução de alterações, 
cornando desnecessária a cansativa ta- I 
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refade "passar a limpo" o trabalho fei- 
to, Isso resulta em tremenda economia 
de tempo, o que é de utilidade mesmo 
para aqueles que não escrevem por ne- 
cessidade ou profissão. 

Já publicamos em INPUT, no arti- 
go da página 576, um programa que co- 
loca à disposição do usuário os recur- 
sos básicos de edição de texto. Se você 
tem interesse em adquirir um processa- 
dor mais potente, convém conhecer mais 
detalhadamente suas possibilidades. 



n texto significa simples- 
mente digitá-lo no teclado de um com- 
putador e armazená-lo na memória. 
Portanto, usando um software adequa- 
do, você poderá fazer modificações e 
correçôes com rapidez e eficiência, e em 
seguida proceder à impressão. Se o tex- 
to for armazenado em fita ou disquete, 
será possível carregá-lo novamente, 
sempre que necessário, para outras mo- 
dificações. 

Como vimos no artigo já menciona- 
do, com um programa elementar de pro- 
cessamento de texto, o usuário efetua as 
alterações "passeando" um cursor (ge- 
ralmente um pequeno retângulo ilumi- 
nado) sobre a tela, até a parte a ser mo- 
dificada. Escreve então sobre o texto 
que ali se encontra. Este é apagado da 
memória e substituído pelo novo texto 
— sem rabiscos e sem complicações. 

Inserir letras, palavras ou frases no 
meio de um parágrafo também é uma 
operação simples. Para realizá-la, recor- 
re-se à função de inserção dos proces- 
sadores de texto. Por meio dela, podem- 
se introduzir alguns espaços em bran- 
co e depois escrever sobre eles. O pro- 
cesso mais comum, porém, é simples- 
mente escrever o que se quer inserir, dei- 
xando por conta do programa rearran- 
jar automaticamente o restante do tex- 
to, para dar lugar ao novo. 

Estes são apenas dois dos numerosos 
recursos disponíveis em um processador 
de texto. A potência e sofisticação des- 
se software ficam evidentes quando se 
consideram os diversos "truques eletrô- 
nicos" de que é capaz para auxiliar 
quem está escrevendo. 

As funções de inserção e modificação 
de textos são chamadas recursos de edi- 
ção. Entre estes incluem-se também a 
busca e a substituição de caracteres no 
texto. A função de busca permite a lo- 
calização automática de uma sequência 
específica de caracteres — uma palavra, 
ou mesmo uma frase — em uma oarle 
ou em todo o texto. Suponhamos que, 
I tendo digitado um texto muito longo. 



queiramos fazer uma modificação em 
certo parágrafo. Não nos lembramos 
onde ele está: sabemos apenas que con- 
tém as palavras espiral inflacionária. A 
função de busca nos ajudará a descobri- 
las rapidamente. 

A função de substituição è mais po- 
derosa ainda. Ela efetua a busca de uma 
sequência determinada de caracteres por 
todo o texto, substituindo-a sempre que 
a encontrar por uma segunda sequên- 
cia. Isso é útil quando grafamos incor- 
retamente uma palavra qualquer em vá- 
rios pontos do texto, ou quando 
queremos trocar uma expressão 
empregada com frequência por 
outra de significado mais pre- 
ciso. Com a função de subs- 
tituição, podemos também 
recorrer a abreviaturas c 
códigos na digitação d< 
um texto. Por exemplo, 
se vamos escrever diver- 
sas vezes programa 
amistoso para o usuá- 
rio no texto, bastará 
digitar um asterisco, 
ou qualquer outro 
símbolo, em cada 
um dos pontos em 
que a frase deve apa- 
recer, usando poste- 
riormente a funçãode 
substituição. 



HABILIDADES ESPECIAIS 



Com o processador de 
texto, não é preciso ser um 
datílógrafo habilidoso para 
conseguir bons resultados. 
Mesmo que você só consiga da- 
tilografar com dois dedos, observa- 
rá um aumento considerável na sua ve- 
locidade de trabalho, pois poderá avan- 
çar "a todo vapor", sem se preocupar 
com erros ou efeitos estéticos. 

Se sua ortografia deixa a desejar, 
procure utilizar um processador de tex- 
to dotado de corretor ortográfico (spell- 
checker, em inglês). Ele percorre o seu 
texto "olhando" cada palavra, e com- 
parando-a com um dicionário interno 
padrão (armazenado em disco). Pala- 
vras não reconhecidas — por terem er- 
ro ortográfico, ou, simplesmente, por 
não constarem do dicionário — são as- 
sinaladas. Neste ponto, dependendo do 
programa, você tem três opções: deixar 
a palavra indicada como está, corrigi- 
la manualmente, ou permitir que o pro- 
grama a substitua pela versão correta 
(muitos programas mostram uma lista 
das palavras que poderiam substituir a 
versão assinalada no texto). 



Os processadores de texto mais po- 
tentes dispõem de uma série de recursos 
adicionais, que permitem executar o que 
chamamos de formatação do texto. A 
formatação tem por objetivo produzir 
um texto final arranjado segundo certo 
padrão estético, independente da manei- 
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ra como foi digitado. Os recursos de for- 
matação usualmente permitem especifi- 
car o espaçamento entre linhas, o nume 
ro de linhas por página, o número de to- 
ques por linha, o tamanho da folha 
de vai ser impresso o texto, a numera- 
ção das páginas, cabeçalho etc. A fun- 
ção mais importante da formatação, po 
rém (e a mais difícil de se realizar ma- 
nualmente), é a justificação das margens 
— ou seja, a definição do alinhamento 
lateral das palavras. A seção de forma- 
tação dos processadores de texto reali- 
za essa tarefa automaticamente. Muitos 
deles chegam à sofisticação de separar 
as sílabas das palavras, ao final de uma 



linha, conforme as regras do idioma. 

Quanto à formatação, existem três ti- 
pos de processadores de texto. Todos 
eles se encarregam das mudanças de li- 
nha, permitindo ao usuário datilografar 
o texto de um parágrafo continuamen- 
te. Em geral, a tecla < ENTER > pre- 
cisa ser pressionada apenas ao final de 
um parágrafo. 

No primeiro tipo de processador de 
texto, quando uma palavra que está sen- 
do datilografada não cabe na linha, o 
cursor passa para a linha seguinte do ví- 
deo, sem se preocupar em dividi-la se- 
gundo as regras gramaticais. O texto fi- 
ca difícil de ser lido na tela. 





Nessa situação, o segundo tipo de 
processador de texto transporta a pala- 
vra inteira para a linha de baixo (méto- 
do denominado word-wrap, em inglês). 
A leitura no vídeo torna-se bem mais fá- 
cil, mas a margem esquerda do texto fi- 
ca irregular, o que no Brasil recebe o no- 
me de margem americana. 

O terceiro tipo de processador ajus- 
ta a margem esquerda na tela, de modo 
a proporcionar um alinhamento. Como 
já mencionamos, alguns sistemas che- 
gam a hifenar automaticamente as pa- 
lavras que se dividem ao final da linha, 
o que melhora consideravelmente a apa- 
rência do texto. Esse processador é de- 
nominado W YSWYG (do inglês What 
You See What You Gel). Com ele, o 
usuário tem oportunidade de acompa- 
nhar na tela — à medida que vai escre- 
vendo — a produção do texto final. 

O tamanho do texto, evidentemente, 
não é limitado ao tamanho da tela. A 
maioria dos processadores de texto per- 
mite "rolar" um texto para cima ou pa- 
ra baixo, ou, ainda, para a esquerda ou 
para a direita, de modo que a tela fun- 
cione como uma "janela" que mostra 
parte do texto. Nos micros pessoais, a 
janela tem, em geral, vinte linhas por 
quarenta colunas. 



Os processadores de texto oferecem 
diversas opções de realce de seções do 
texto, como negrito, texto inverso (ca- 
racteres brancos sobre fundo ne- 
gro, na impressão), letras de ta- 
manhos ou formatos diferentes 
(itálico, dupla largura etc). Es- 
ses realces podem aparecer na te- 
la e na impressora, ou apenas na 
impressora. Nesse caso, caracte- 
res especiais de demarcação as- 
sinalam, na tela, o lugar onde se 
inicia e termina uma função de 
realce. 



COMANDOS OE CONTROLE 



Os programas mais simples de 
processamento são os editores de 
texto, com as funções básicas de in- 
serção e modificação. Um editor se 
transforma em um processador de pa- 
lavras com o acréscimo de diversas ou- 
tras funções, que podem ser utilizadas 
pelo usuário no momento em que neces- 
sitar. A maneira de ativar essas funções 
varia de programa para programa, e é 
um elemento importante na ergonomia 
(facilidade de uso) do processador. 
As diretivas de controle dos recursos I 




do programa são entradas pelo teclado, 
num processo tão fácil quanto o da en- 
trada de texto. Os comandos funcionais 
consistem normalmente de teclas espe- 
ciais, ou sequências de teclas. Entre as 
mais comuns, incluem-se as de retroces- 
so, as de controle dos cursores, <EN- 
TER> etc. Bons comandos de edição 
são essenciais para facilitar o uso 
do programa. Em alguns casos, 
as sequências de comando são 
muito complicadas e difíceis 

torna o programa pou- 
co conveniente para o 
usuário ocasional. 
Além desses, o 
programa possui 
comandos de 
controle de for- 
matação cujo 
efeito só se ob- 
serva, em geral, 
no momento da 
impressão. Nos 
programas 
WYSWYG, eles 
são "embutidos" 
no texto, sob a 
forma de caracteres 
invisíveis de contro- 
le O video responde 
a esses comandos 
de maneira bem se- 
melhante ao que uma 
impressora responderia; 
isso possibilita que o usuá- 
rio tenha uma visão prévia 
de como o documento ficará 
quando pronto. 

Nos demais programas, os co- 
mandos de formatação são co- 
locados explicitamente no texto, 
precedidos por sinais especiais. 
Por exemplo, um comando como: 



ntroduzido no meio de um texto, indi- 
processador que, naquele local, 
a margem esquerda deve ser modifica- 
da para vinte colunas. 



Outro recurso de programas 
mais sofisticados de processa- 
mento de texto é a mala direta 
— a impressão de cartas múlti- 
plas, endereçadas de forma per- 
sonalizada a várias pessoas (ve- 
o artigo da página 17). 
Uma das maneiras mais simples de 
fazer isso consiste em escrever uma car- 
ta padronizada, com o auxilio do pro- 



IHHIIIIIIIIIII 



cessador de texto, e depois armazená-la 
em fita ou disco, 

Para enviar essa carta a diferentes 
destinatários, bastará carregar o texto 
da mesma na memória e, utilizando as 
funções de edição, inserir nome, ende- 
reço e outros dados nos pontos apro- 
priados, imprimindo-a a seguir. 

Uma alternativa mais elaborada é o 
uso de um outro arquivo de textos — de- 
nominado máscara — contendo, por 
exemplo, o nome e o endereço de todas 
as pessoas para as quais se quer man- 
dar uma carta. No texto da carta, por 
sua vez, íntroduzem-se caracteres espe- 
ciais, que assinalam onde devem entrar 
os dados da máscara. Ao se fazer a im- 
pressão, o programa produzirá uma car- 
ta para cada destinatário, automatica- 
mente, colocando os dados nos pontos 
certos do texto. 

Um sistema de produção de cartas 
múltiplas tem variadas aplicações tanto 
domésticas (o envio de cartões de Natal 
personalizados, por exemplo), quanto 
profissionais (propaganda de um produ- 
to ou serviço, cartas circulares, corres- 
pondências para orçamentos e assim por 
diante). 



ESCOLHA DO HARDWARE 



Teoricamente, qualquer microcom- 
putador pode ser usado para processa- 
mento de texto, desde que haja um pro- 
grama adequado para ele (na série de ar- 
tigos iniciada na página 576, apresenta- 
mos um programa completo de proces- 
samento de texto para a maioria das li- 
nhas cobertas por INPUT). É óbvio, po- 
rém, que não tem sentido fazer proces- 
samento de texto se não se conta com 
uma impressora. Além disso, convém 
lembrar que, na prática, existem algu- 
mas limitações impostas pelo hardware. 

Para começar, há a questão do tecla- 
do. A maioria dos micros compatíveis 
com o ZX-81, por exemplo, possui um 
teclado inadequado para datilografia rá- 
pida de textos, não dispondo de letras 
minúsculas, nem de sinais de acentua- 
ção. Portanto, ao processar textos com 
essas máquinas, não se pode esperar um 
resultado de bom nível. 

A linha Spectrum original (TK-90X, 
no Brasil) também tem um teclado so- 
frível, embora ofereça a alternativa de 
usar letras minúsculas e algum tipo de 
acentuação. O modelo TK-95 e os tecla- 
dos semi profissionais acessórios, que 
podem ser comprados para o Spectrum, 
melhoram bastante a situação. 

Os computadores que possuem tecla- 
do semelhante ao de uma máquina de 
escrever — como o Apple, o TK-2000, 



o TRS^SO, o TRS-Color II e o MSX — 
são mais adequados quanto a esse aspec- 
to. Há, porém, uma grande variação de 
qualidade entre os diferentes modelos. 
Deve-se levar em conta, por exemplo, 
que só os micros da linha MSX incluem 
a acentuação original da língua portu- 
guesa, por terem adotado o padrão 
BRASCI1 (ASCII brasileiro). 

Outro elemento importante na esco- 
lha do hardware para processamento de 
texto é o vídeo. Nos computadores do- 
mésticos mais comuns, este em geral se 
limita a 32 ou 40 colunas (excepcional- 
mente 64, como nos micros TRS-80). 
Esse formato possibilita, entre outras 
coisas, o uso de televisores como saída 
de vídeo. Mas é restritivo para um tra- 
balho mais intenso com processadores 
de texto, principalmente os do tipo 
WYSWYG, que imprimem uma folha 
de sessenta a setenta toques. 

Em alguns micros, como o MSX e o 
Apple, é possível ampliar o formato de 
vídeo com software ou hardware de ex- 
pansão. Nesse caso, porém, não se re- 
comenda utilizar aparelhos de TV, pois 
a imagem perde a nitidez. Para quem 
pretende trabalhar por muito tempo 
com um processador, a nitidez de texto 
e a estabilidade no vídeo são fundamen- 
tais — e essas qualidades só são obtidas 
com monitores profissionais (veja o ar- 
tigo da página 851). 



O tamanho da memória disponível 
também deve ser considerado na selecão 
de um bom hardware para processamen- 
to de texto. A memória RAM não che- 
ga a ser um impedimento, dependendo 
do software escolhido. Alguns proces- 
sadores só operam com o texto inteira- 
mente contido na memória. Se ele for 
demasiado grande, é preciso dividi-lo 
em seções menores, que são gravadas em 
fita ou vídeo, o que costuma ser bastan- 
te cansativo. Uma maior capacidade da 
RAM ajuda muilo, portanto. 

Os processadores mais avançados tra- 
balham à base de paginação, ou memó- 
ria virtual — isto é, gravam e lêem es- 
sas seções do texto em disco, periodica- 
mente. São, contudo, bem mais exigen- 
tes em termos de hardware. 

A memória auxiliar é outro item im- 
portante. Para quem utiliza pouco o 
processador e lida apenas com textos pe- 
quenos (cartas, digamos), um gravador 
cassete é perfeitamente aceitável para ar- 
mazenamento de textos. Para uso mais 
intenso, entretanto, é praticamente in- 
dispensável o acionador de disquetes. 
Além de maior capacidade e velocida- 



de, ele assegura uma taxa de erros baixa. 

O emprego de memória virtual e en- 
cadeamento de arquivos (seções separa- 
das de um texto, que podem ser reuni- 
das em qualquer ordem) é necessário 
quando o texto é limitado apenas pela 
capacidade da memória auxiliar. Po- 
rém, quando os textos são muito gran- 
des, essa solução dificulta o trabalho e 
impede a utilização de funções globais 
de edição (busca, substituição etc.) 



Em artigos anteriores (páginas 521 e 
648), examinamos os diversos tipos de 
impressora, suas características e as van- 
tagens que cada modelo oferece em re- 
lação ao processamento de texto. Por is- 
so, retomaremos aqui apenas os aspec- 
tos mais importantes. 

A impressora desempenha um papel 
fundamental na qualidade do texto im- 
presso (o produto final). Para trabalhos 
que não requerem uma apresentação 
perfeita, ou para a obtenção de cópias 
de "rascunho", uma impressora matri- 
cial é perfeitamente adequada. Algumas 
delas podem produzir impressões em 
qualidade caria (dupla densidade de im- 
pressão), com uma aparência bastante 
semelhante à de um texto datilografa- 
do. Se queremos conseguir o máximo de 
qualidade, porém, devemos usar uma 
impressora do tipo margarida. 

Seja qual for o seu objetivo, não se 
esqueça de verificar se a impressora é 
compatível com o software de proces- 
samento, sobretudo quanto à capacida- 
de para realce de texto, mudança de fon- 
tes, acentuação etc. 



QUEM PRECISA DE UM PROCESSADOR? 



O processamento de textos por com- 
putador oferece enormes vantagens pa- 
ra escritores, jornalistas, professores, 
cientistas ou quaisquer outros profissio- 
nais cujas funções incluam a elaboração 
de documentos, relatórios e cartas. Se 
você está em uma dessas categorias e 
ainda não tem um processador, franca- 
mente, não sabemos como pôde passar 
sem ele, até agora! 

Se você é estudante, provavelmente 
seu grau de utilização não é tão inten- 
so, mas o computador ajuda muito na 
execução de trabalhos escolares. 

De qualquer modo, mesmo que você 
não se enquadre em nenhum dos casos 
mencionados, um computador é bem 
vantajoso em relação a uma máquina de 
escrever, embora o preço não seja mui- 
to diferente (se a máquina for elétrica). I 
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DESENHO 



Desenhe os móveis que irão compor o 
ambiente a ser planejado. Depois que 
todas as peças se encaixarem em seus 
respectivos lugares, restará salvar 
o projeto em fita ou disco. 



Este é o segundo e último artigo sobre 
o projeto arquitetõnico computadoriza- 
do. Aqui eslão os complementos das lis- 
tagens para cada um dos micros, acres- 
cidas de instruções detalhadas referen- 
tes às três primeiras opções do menu. As 
outras quatro serão idênticas para as três 
versões. 



As opções são as seguintes: 

- opção 1, desenha o ambiente; 

• opção 2. posiciona a mobília; 

- opção 3. cria mobília própria; 

• opção 4, grava o projeto; 

- opção 5, carrega; 

- opção 6, imprime; 

- opção 7, sai do programa. 

A primeira informação que devemos 
fornecer ao programa é a maior medi- 
da (em metros) do ambiente considera- 
do. Digite os dados e tecle < ENTER > . 
Depois disso, aparecerá um segundo me- 
nu contendo as seguintes opções: 
<ESPAÇO> desenha uma linha; 
< J> desenha uma janela; 
<P> desenha uma porta; 
<B> movimenta sem desenhar; 
<S> volta ao menu principal. 

Ao selecionarmos qualquer opção, à 
excecão da < S > , seremos perguntados 
sobre a direção e o comprimento da re- 
la a ser feita. As questões serão repeti- 
das, de forma a permitir que tracemos 
linhas na diagonal, por exemplo, dizen- 
do o quanto para cima ou para a direi- 
ta queremos a reta. Se desejarmos traçá- 
la simplesmente na horizontal ou na ver- 
tical, bastará que forneçamos valores 
nulos. Repetiremos o processo até con- 
cluir o desenho do ambiente e, em se- 
guida, teclaremos <S> para retornar 
ao menu principal. Com um pouco de 
prática, desenvolveremos nossos proje- 
tos em questão de minutos. 

Na opção 2, usaremos as teclas 6 e 
7 para selecionar o móvel a ser posicio- 
nado. Teclando < S > , a peça aparece- 
rá no centro da tela. Poderemos movi- 
mentá-la para cima, para baixo, para a 
direita e para a esquerda acionando as 
teclas 5, 6, 7 e 8. Para girar o móvel no 
sentido horário, pressionaremos a tecla 
H; no sentido inverso, A. 
• Na criação da mobília, na opção 3, 



utilizaremos o mesmo processo da op- 
ção 1 (desenho do ambiente), com a di- 
ferença de que agora o objelo não apa- 
recerá na tela até que sejam fornecidas 
todas as suas dimensões. Indagados so- 
bre o número de lados da peça (1 a 15) 
e sobre seu código, daremos um nome 
de dois dígitos à mobília, de modo a po- 
dermos identificá-la mais tarde. 

A opção 4 grava tanto a tela como 
os dados correspondentes às peças da 
mobília. Usaremos depois a opção 5 pa- 
ra carregar na memória um projeto gra- 
vado anteriormente. A opção 6 — de 
impressão — funcionará somente com 
a impressora conectada. 
7010 INPUT "DIGITE DIREÇÃO (C. 
B.E.D) ?";D3 

7020 INPUT "DIGITE DISTANCIA ?" 
;D: RETURN 

7040 LET 2-CODE INKEYS : FOR K=l 
TO t.EN KS: IF CODE (KS(K))-Z T 
HEN LET K=LEN KS - GOTO 7060 
7050 NEXT K: GOTO 7040 
7060 NEXT K: RETURN 
8000 DIM SUO): LET NF = 0: LET F 
S-"000": LET MAX-5: LET R-0: LE 
T SC=175/MAX: GOSUB 6060 
8010 DIM 0(10,30): DIM 03(10,2) 
8020 FOR N=l TO 5: FOR K=l TO 8 
: READ 0{N,K>: NEXT K: NEXT N 
8030 FOR N=l TO 10: READ 0$ <N) : 
NEXT N 

8032 FOR N=UBR "A" TO USR "A"+7 
: READ A: POKE N.A: NEXT N 
8035 FOR N=l TO ]0: READ S (N) - 
NEXT N 
8040 RETURN 

8090 DATA .5, 0,0,-. 5. -.5,0.0. .5 
8100 DATA .75, 0.0, -.«.,-.75.0,0, 
. 5 

SUO DATA .5. 0,0, -.75. -.5, 0.0, , 
75 

8120 DATA .5. 0,0, -.5. -.5. 0,0. .5 
8130 DATA .5, 0,0, -.5, -.5, 0.0, .5 
8150 DATA -AR"."F0","LL"."PI"." 
GE". "XX". "XX", "XX". "XX", "XX" 
8160 DATA 16,32,64.255,64,32.16 
.0 

8170 DATA 4.4,4,4,4,0.0,0,0.0 



Ao rodarmos o programa, veremos 
um menu com as seguintes opções: 

- opção 1, desenha o ambiente; 

- opção 2, posiciona a mobília; 

- opção 3, cria novas peças; 

- opção 4, grava o projeto; 
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COMPLETE O DESENHO 



DO AMBIENTE 



CRIE NOVAS PEÇAS PA RA 



SUA MOBÍLIA 



GRAVE O PROJETO 



GIRE SEUS MÓVEIS 



APAGUE E REDESENHE 



PROGRAMA TERMINADO 



miiiin 
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- opção 5, carrega; 

- opção 6, imprime; 

- opção 7, sai do programa. 

Se escolhermos a opção 1 , seremos 
perguntados sobre a maior medida do 
ambiente. Com essa informação, o mi- 
cro colocará o desenho em escala, de 
modo que ele caiba na tela. 

Tecle a barra.de espaço para iniciar 
o desenho do ambiente. Há outras op- 
ções dentro da opção 1, a saber: 
<ESPAÇO> para desenhar; 
<B> para mover sem desenhar; 
<W> para desenhar janelas; 
<0> para desenhar portas; 
<C> para limpar a tela; 
<F> para voltar ao menu inicial. 

Ao escolher uma das opções (à exce- 
ção da < C > e da < F > ), o usuário se- 
rá indagado sobre a direção e o compri- 
mento da reta desejada. Essas pergun- 
tas serão feitas várias vezes, a fim de 
oferecer dados ao computador. 

Suponhamos que queremos traçar 
uma reta inclinada, por exemplo. Basi- 



camente, teremos que fornecer ao mi- 
cro duas informações, ou seja, o quan- 
to ela deverá se deslocar para cima ou 
para baixo e o quanto deverá ir para a 
direita ou a esquerda. A repetição das 
questões nos permite, portanto, montar 
coordenadas bidirecionais para a nossa 
reta e traçá-la na diagonal. 

Para obter retas horizontais ou ver- 
ticais (unidirecionais), bastará teclar 

< ENTER > , quando a pergunta for re- 
petida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opção 2 mantém na tela o desenho 
do ambiente executado na primeira op- 
ção e acrescenta um cursor em forma de 
cruz que será movimentado ponto a 
ponto através das teclas das setas. Para 
movê-lo mais rapidamente, tecle 

< SHIFT > + seta, até alcançar a posi- 
ção desejada — aquela em que o móvel 
será colocado. Em seguida, acione a te- 
cla P. Feito isso, escolha a peça a ser po- 
sicionada. As peças são numeradas de 
0 a 9; caberá ao usuário criar as cinco 



últimas, já que as iniciais são automati- 
camente definidas (mas podem ser alte- 
radas) no programa: O-pia, 1-fogão, 
2-mesa, 3-geladeira e 4-armário. Para 
apagar um móvel, posicione o cursor no 
vértice que o gerou, tecle D e selecione 
o número desse móvel. Deveremos nos 
certificar de que o cursor esteja exata- 
mente no vértice que o gerou; caso con- 
trário, a peça não será totalmente eli- 
minada. 

Se quisermos girar um móvel para 
adequá-lo a um canto qualquer do am- 
biente, basta acionar a tecla R seguido 
do ângulo de giro do móvel — expresso 
em graus. Todos os objetos serão dese- 
nhados com essa angulação até que se 
tecle novamente R; só que desta vez se- 
guido de 0. A opção < F> possibilita 
retornar ao meu principal. 

A opção 3 permite definir novas pe- 
ças ou modificar as cinco já existentes. 
As medidas, fornecidas em centímetros, 
não deverão ultrapassar os 200 cm. O 
primeiro passo consiste em escolher um 
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número de 0 a 9 para armazenagem da 
peça que, em seguida, será desenhada 
pelo mesmo processo utilizado na opção 
I (desenho do ambiente). Tecle <C> 
para recomeçar o desenho e < F > para 
retornar ao menu inicial. 

A opção 4 armazena nosso projeto 
(que deve receber um nome aqui) em fi- 
ta ou disco. A opção 5 carrega na me- 
mória do micro um projeto previamen- 
te gravado em fita ou disco. 

A opção de impressão está incomple- 
ta, pois necessita de uma rotina que des- 
peje o conteúdo da tela na impressora. 
Retomaremos este assunto em um pró- 
ximo artigo, que nos habilitará a elabo- 
rar tal rotina. 

J210 0X-X:0Y-Y 

1220 IF IS-CHR$(8) AND X>0 THEN 
X-X-l 

1230 IF IS-CHBS (9) AND X<185 TH 
EN X-X+l 

1240 IF IS-CHBS £94) AND Y>0 THE 
N Y-Y-l 

1250 IF IS-CHRS(IO) AND Y<185 T 
HEN Y-Y+l 

1260 IF IS-CHRSI21) AND X>7 THE 
N X-X-8 

1270 IF IS-CHRS193) AND X<177 T 
HEN X-X+8 

1280 IF IS-CHRS<95) AND Y>7 THE 
N Y-Y-8 

1290 IF IS-CHRSÍ91) AND Y<177 T 
HEN Y-Y+8 

1300 PUT(OX-3.0Y-3)-(OX+3,OY+3) 
.S.PSET 

1310 IF IS="P" THEN 1360 
1320 IF I$=-D- THEN 1430 
1330 IF IS-"R" THEN 1500 
1340 IF IS= - F" THEN FOR K-l TO 
4:PC0PY K TO K+4 : NEXT : GOTO 90 
1350 GOTO 1160 
1360 SOUND 190.1 



1370 COLOR 0:G0SUB 340 

1380 I9-INKEY$:IF IS<"0" OR I$> 

"9" THEN 1380 

1390 COLOR 1:G0SUB 340 

1400 N-VAL(IS) 

1410 COLOR 0,1:AS-OS(N) :GOSUB 1 
540 

1420 GOTO 1160 

1430 SOUND 200, 1 

1440 COLOR 0:GOSUB 340 

1450 IS-INKEYS--IF IS<"0" OR IS> 

"9" THEN 1450 

1460 COLOR 1:G0SUB 340 

1470 N-VAL(IS) 

1480 COLOR 1.1:AS-0S(N) :GOSUB 1 
540 

1490 GOTO 1160 

1500 CLS:PRINT'ANGULO DE ROTACA 

O (0-360) ':INPUT RT 

1510 IF RT<0 OR RT>360 THEN 150 

0 

1520 RT-(RT/180)*3.141 

1530 SCREEN 1,0: GOTO 1160 

1540 IF A$-"" THEN RETURN 

1550 P=1:X1-X:Y1=Y 

1560 BS-MIDS(AS,P,1) 

1570 DS-MIDS(A$,P+1,1) 

1580 D-VAL(MIDS(A$.P+2.INSTR(P, 

AS.";")-(P+2))) 

1590 P-INSTRÍP.AS,";")-»-! 

1600 D-D/100:D2-FNA(D) :OX-X:OY- 

Y 

1610 IF D$-"D" THEN XA-D2"COS (R 

T) :YA— D2*SIN(RT) 

1620 IF D$-"E" THEN XA— D2"COS ( 

RT) :YA-D2*SIN(RT) 

1630 IF DS-"B" THEN XA-D2*SIN(R 

T) :YA-D2*C0S(RT) 

1640 IF DS-"C" THEN XA — D2*SIN( 

RT) :YA— D2*COS(RT) 

1650 XA-INT<XA+.5) : YA-INT (YA+ . 5 

) 

1660 X-X+XA.Y-Y+YA 

1670 IF BS-"D" THEN LINE(OX.OY) 

-(X,Y) ,PSET 

1680 IF P<LEN<A$) THEN 1560 



1690 X-Xl : Y"Y1 : RETURN 

1700 CLS:LINE INPUT"NOME DO ARQ 

UIVO:-.FS 

1710 SG-PEEK(188)»256 
1720 CLS:PRINT-SALVANDO:";FS 
1730 CSAUEM FS . SG , SG+6143 , 35252 
1740 GOTO 90 

1750 CLS:LINE INPUT "NOME DO AR 
QUIUO:";FS 

1760 PRINT"ACIONE O GRAVADOR E 
ESPERE" 

17 70 CLOADM F3 
1780 GOTO 90 

1790 REM ***********■•*•«•***** 

1791 REM * * 

1792 REM ■ ROTINA PARA * 

1793 REM * DESPEJAR A TELA * 

1794 REM * NA IMPRESSORA * 

1795 REM * * 

1796 REM *******•«•*«****«««•** 

1797 GOTO 90 



Ao rodarmos o programa, veremos 
na tela um menu com sete opções: 

- opção I, desenha o ambiente; 

- opção 2, posiciona a mobília; 

- opção 3, cria novas peças; 

- opção 4, grava o projeto; 

- opção 5, carrega; 

- opção 6, imprime; 

- opção 7, sai do programa. 

Devemos primeiro escolher entre as 
opções 1 , 3 ou 5 . Ao decidirmos pela 1 , 
seremos perguntados sobre a maior me- 
dida (em metros) do ambiente, informa- 
ção que permitirá ao micro colocar o de- 
senho em uma escala que o faça caber 
na tela. Tecle a barra de espaço para ini- 
ciar o desenho do ambiente. 



Há outras opções dentro da opção I : 

< ESPAÇO > para desenhar; 
<B> para mover sem desenhar; 
<W> para desenhar janelas; 
<0> para desenhar portas; 
<C> para limpar a tela; 

<F> para voltar ao menu inicial. 

Ao escolher uma das opções (à exce- 
ção da < C > e da < F > ), o usuário se- 
rá perguntado sobre a direção e o com- 
primento da reta desejada. Essas per- 
guntas serão feitas várias vezes a fim de 
oferecer dados ao computador. 

Suponhamos que queremos traçar 
uma reta inclinada, por exemplo. Basi- 
camente, teremos que fornecer ao mi- 
cro duas informações, ou seja, o quan- 
to ela deverá se deslocar para cima ou 
para baixo e o quanto deverá ir para a 
direita ou a esquerda. A repetição das 
questões permite, portanto, montar 
coordenadas bidirecionais para nossa re- 
ta e traçá-la na diagonal. 

Para desenhar retas horizontais ou 
verticais (unidirecionais), basta teclar 

< ENTER > quando a pergunta for re- 
petida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opção 2 só poderá ser iniciada de- 
pois da opção 1. Ela mantém na tela o 
desenho do ambiente executado na pri- 
meira opção e acrescenta um cursor em 
forma de seta que será movimentado 
ponto a ponto através das teclas das se- 
tas. Para movê-lo mais rapidamente, 
usamos as teclas I-cima, M-baixo, K- 
direita e J-esquerda, até que o cursor al- 
cance a posição desejada — aquela em 
que a peça será colocada. Então acio- 
namos a tecla P. Feito isso, determina- 
mos a peça a ser posicionada. As peças 
são numeradas de 0 a 9; caberá ao usuá- 
rio criar as cinco últimas peças, já que 
as iniciais são automaticamente defini- 
das (mas podem ser al(eradas) no pro- 
grama: 0-pia, l-fogào, 2-mesa, 3-gela- 
deira e 4-armário. Para apagar um mó- 
vel, posicione o cursor no vértice que o 
gerou, tecle D e selecione o número cor- 
respondente a esse móvel. Deveremos 
nos certificar de que o cursor esteja exa- 
tamente no vértice que o gerou; caso 
contrário, a peça não será totalmente 
eliminada. 

Se quisermos girar um móvel para 
fazè-lo caber em algum canto do am- 
biente, basta acionar R seguido do ângu- 
lo de giro do móvel, expresso em graus. 
Todos os objetos serão desenhados com 
essa angulação, até que se tecle nova- 
mente R, seguido de 0. A opção <F> 
permite retornar ao menu principal. 

A opção 3 possibilita definir novas 
peças ou modificar as cinco já existen- 
tes. As medidas, fornecidas em centíme- 
tros, não deverão ultrapassar os 200 cm. 



O primeiro passo consiste em escolher 
um número de 0 a 9 para armazenagem 
da peça que, em seguida, será desenha- 
da pelo mesmo processo utilizado na op- 
ção 1 (desenho do ambiente). Tecle 
<C> para recomeçar o desenho, e 
<F> para retornar ao menu inicial. 

A opção 4 armazena nosso projeto 
(que aqui deve receber um nome) em fi- 
ta. A opção 5 carrega na memória do 
micro um projeto gravado em fita. Es- 
tas duas opções podem ser alteradas pa- 
ra trabalhar com disco, bastando fazer 
as seguintes modificações: Troque o 
"CAS:" que vem logo após os coman- 
dos BSAVE e BLOAD por "A:" (linhas 
1720 e 1770), respectivamente. 

A opção de impressão está incomple- 
ta, pois necessita de uma rolina que des- 
peje o conteúdo da tela na impressora. 
Retomaremos esse assunto em um pró- 
ximo artigo, que nos habilitará a elabo- 
rar tal rotina. 
1210 0X-X:OY-Y 

1220 IF IS-CHRSI29) AND X>0 THE 
N X-X-l 

1230 IF I$-CHRS(28)AND X<185THE 
N X=X+1 

1240 IF IS=CHBS(30> AND Y>0 THE 
N Y-Y-l 

1250 IF IS-CHB3(31)AND Y<1B5THE 
N Y-Y+l 

1260 IF IS=CHRS(74) AND X>7 THE 

n x-x-e 

1270 IF IS=CHRS[75)AND X<177THE 
N X-X+8 

12B0 IF IS-CHR${73) AND Y>7 THE 
N Y-Y-8 

1290 IF IS"CHBS{77)AND Y<177THE 
N Y-Y+8 

1310 IF IS="P" THEN CL=l:GOTO 1 
360 

1320 IF IS""D" THEN CL= 15 : GOTOl 
430 

1330 IF IS-"R" THEN A=USfi(0):GO 
TO 1500 

1340 IF IS="F" THEN A=USfl(0}:GO 
TO 90 

1350 GOTO 1160 
1360 BEEP 
1370 GOSUB 340 

13B0 I$=INKEY$:IF tS<"0" OR IS> 

"9" THEN 1380 

1390 COLOR 0:GOSUB 340 

1400 COLOR 1:N-VAL(IS) 

1410 AS-OS(N) :GOSUB 1540 

1420 GOTO 1160 

1430 BEEP 

1440 GOSUB 340 

1450 IS"INKEYS:IF IS<"0" OR IS> 

"9" THEN 1450 

1460 COLOR 0:GOSUB 340 

1470 N-VAL(IS) 

1480 AS-OS(N) :GOSUB 1540 

1490 GOTO 1160 

1500 SCREEN0:PRTNT"ANGULO DE RO 

TACÃO (0-360) ";: INPUT RT 

1510 IF RT<0 OR RT>360 THEN 150 

0 

1520 RT=(RT/180)*3.141:SCREEN 2 



1530 A=USR2 (0) :A*USR1 (0) :GOTO 1 
160 

1540 IF AS-"" THEN HETURN 

1550 P-1:X1-X:Y1-Y 

1560 BS=MIDS(AS.P.l) 

1570 DS-MTDS(A3.P+1.1) 

1580 D-VAL(MIDS(AS,P+2.INSTR(P. 

AS.";")-<P+2)>> 

1590 P-INSTR(P,A$.";")+1 

1600 D-D/100:D2-FNA(D> :OX«X:OY- 

Y 

1610 IF DS-"D" THEN XA-D2*COS (R 
T) :YA— D2*SIN(RT) 
1620 IF D3-"E" THEN XA--D2*COS( 
RT) :YA=D2"SIN(RT) 

1630 IF DS-"B" THEN XA-D2*SIN(R 
T) :YA-D2*COS(RT) 

1640 IF D$-"C" THEN XA— D2*SIN< 

RT) :YA— D2*COS(RT) 

1650 XA-INTÍXA+.5) : YA-INT ( YA+ . 5 

) 

1660 X-X+XA:Y-Y+YA 

1670 IFBS--D" THENLINE(OX.OY)-< 

X , Y) , CL 

1675 COLOR 1 

1680 IF P<LEN(A$> THEN 1560 

1690 X-X1:Y«Y1:RETURN 

1700 LOCATE 5, 18: LINE INPUT"NOM 

E DO PROJETO : " : FS 

1710 LOCATE 5,20:PRINT"GRAVANDO 

"+FS+" ..." 
1720 BSAVE "CAS:" + FS,i.HD100,».HE 
900 

1730 GOTO 90 

1750 LOCATE 5.20:LINE INPUT"NOM 

E DO PROJETO: " ;F3 

1760 LOCATE 5,22: PRINT"CABREGAN 

DO "+FS+".--" 

1770 BLOAD "CAS:"+F$ 

1780 Fl-l:GOTO 90 

1790 REM ******************** 

1791 REM • * 

1792 REM * rotina para * 

1793 REM • despejar a tela ■ 

1794 REM * na impressora * 

1795 REM * " 

1796 REM ******************** 

1797 GOTO 90 

2000 CLEAR ZDO.S.HAO0O 

2010 DEFUSR-S.HA000 

2015 DEFUSR1-S.HA0OD 

2020 DEFUSR2-IHA01A 

2025 DEFUSR3-Í.HA026 

2030 DEFUSR4=S-HA033 

2040 FOR R-0 TO 63 : READ A 

2050 POKE (&.HA000+R) ,A:NEXT 

2060 DATA S.H21,D0,00,S.H11.00.Í.H 

Dl , 01 , 00 , 24. mCD,l.H59 , 00 . LHC9 

2070 DATA S.H21 , 00 , &.HD1 , S.H1 1 , 00 , 

00,01.00,24, R.HCD, S.H5C . 00 . 8.HC9 

2080 DATA 1.H21 , 00 . LH20 , 62 , 00 . 01 

T Q0,24,K.HCD,S.H56,00.LHC9 

2090 DATA Í.H21.00.00.Í.HU.S.HFF. 

HHB8 .01,00,24, LHCD. kH59 . 00 , S-HC9 

2100 DATA S.H21.1HFF,S.HB8,S.H11.0 

0,00,01.00,24,S.HCD,SH5C.0O,kHC9 

2110 POKEUHA01E) .31 

2120 SPS="" : F0RI=1T08:READAS 

2130 SPS=SPS + CHRS (VAL ("S.H"+AS) ) 

2140 NEXT:SPRITES(0)-SPS 

2150 GOTO 20 

2160 DATA E0 , CO .AO .90 . 08, 00 ,00, 
00 



GRAMACAOB 
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EM PERSPECTIVA 



■ 


PERSPECTIVA 


■ 


PONTO DE FUGA E 


PONTO DE VISTA 


■ 


DIMINUIÇÃO DE TAMANHO 


■ 


TÉCNICA DE SOMBREAMENTO 





Traga seu desenho para a magia do 
mundo tridimensional. Isso é possível 
graças aos recursos de seu micro 
aliados aos princípios da perspectiva 
e das técnicas de sombreamento. 

A maioria das pessoas sabe da impor- 
tância do uso da perspectiva em qual- 
quer figura, e, por isso, costuma incluí- 
la até nos mais simples esboços. Sur- 
preendentemente, a idéia de perspecti- 
va não é tão clara como parece; assim, 
os artistas mais antigos não tinham a 
menor idéia sobre o que fazer para dar 
profundidade às suas telas. Apenas a 
partir do Renascimento, quando os pin- 
tores começaram a dar um tom realista 
as representações, é que os princípios de 



perspectiva foram formulados. Essas re- 
gras são as mesmas usadas pelos artis- 
tas contemporâneos e aplicadas aos de- 
senhos feitos no computador. 

Para o desenvolvimento dessa técni- 
ca, foram necessários vários séculos, o 
que não significa que suas noções bási- 
cas sejam de difícil compreensão. Na 
realidade, a idéia fundamental é a se- 
guinte: todas as linhas horizontais per- 
manecem nessa posição, enquanto as 
verticais se inclinam "para dentro" da 
figura, convergindo para o denomina- 
do ponlo de fuga. (Esse assunto já foi 
abordado no artigo Programação de 
gráficos em 3-D, página 693.) 

Apenas as linhas paralelas, perpen- 
diculares à figura, se dirigem para o 
ponto de fuga principal. As demais 
afluem para seus próprios pontos de fu- 



ga, situados em uma mesma linha, no 
horizonte imaginário do desenho. 

Esses princípios, quando aplicados a 
figuras reais, podem se tornar um pou- 
co mais complicados; em desenhos sim- 
ples, entretanto, proporcionam a sensa- 
ção de profundidade exigida. O leitor já 
deve ter visto, na televisão ou no cine- 
ma, asironaves voando para o espaço a 
partir do imenso hangar da nave-màe. 
Nesse caso, a sensação de profundida- 
de é dada pelo chão e pelo teto quadri- 
culados do hangar, que parecem se pro- 
jetar em direção ao espaço. 



FEIXES DE RETA EM PERSPECTIVA 



Os feixes de retas perpendiculares são 
muito usados para se obter a visão de 



IIIIIIIIIHIH "^aHHHHHIIIIIIIIIII 



um objeto em perspectiva. O primeiro 
programa, mostrado a seguir, desenha 
duas superfícies quadriculadas — o te- 
to e o chão do hangar — tendo o usuá- 
rio do micro como observador, olhan- 
do para o infinito. 



10 BORDER D- PAPER 0: INK 7 
20 CLS : INPUT "PROXIMIDADE D 
0 CHAO *;V 

40 FOR K=-126 TO 127 STEP 6 
50 LET Y=174: LET X=K+V*K: IF 
ABS (X)>127+(X<1) THEN LET X 
= SGN (X)*127-(X<1) : LET Y = 100 
+(X-K)«74/(V*K> 

60 PLOT 127-K.1O0: DRAW 127-X 
-PEEK 23677. Y-PEEK 2367B 
70 PLOT 127-K.74: DRAW X27-X- 
PEEK 23677. 174-Y-PEEK 23678 
80 NEXT K 

90 LET F-V(l/6): LET Y-F 
100 LET Y=Y*F: IF Y>77 THEN 
GOTO 140 

110 PLOT 0,97+Y: DRAW 25b . 0 
120 PLOT 0,77-Y: DRAW 255,0 
130 GOTO 100 

140 IF INKEYS=" " THEN GOTO 

140 
150 GOTO 20 



0 ';V 

30 PCLS:SCREEN 1.1 

40 FOR K— 126 TO 127 STEP 6 

50 Y«191 i X»K+V*K : I F ABS(X)>127- 

(X<1) THEN X"SGN (X)"127+(X<1) :Y 

=111+ (X-K) *B0/ (U-K) 

60 tXN£(127-K,lll] (127-X, Y), PS 

ET 

70 LINE(127-K,80) - (127 -X.191 -Y) 
. PSET 
80 NEXT 

90 F-VT (1/6) :Y-F 

100 Y-Y*F:IF Y>83 THEN 140 

110 LINE (0,108+Y) -(255, 108+Y) ,P 

SET 

120 LINE(0,B4-Y)- (255,84-Y) ,PSE 



[EEl 

10 TEXT 
20 HOME : 
0 CHAO - ; V 
30 HGR2 
40 FOR K i 



INPUT "PROXIMIDADE D 



126 TO 127 STEP 




Um cenário quadriculado cm perspectiva é um bom recurso 
para conferir profundidade a seu desenho. 



11 + (X - K) * 80 / (V * K> 

60 HPLOT 127 - K.lll TO 127 - 

X.Y 

70 HPLOT 127 - K.BO TO 127 - X 
,191 - Y 
80 NEXT 

90 F ■ V " (1 / 61 li • V 

100 Y = Y * F: IF Y > 83 THEN t 

40 

110 HPLOT 0,108 + Y TO 255,106 
+ Y 

120 HPLOT 0.84 - Y TO 255.84 - 



50 Y • 191 : X ' 
BS (XJ > 127 - 
I SGN (X) * i: 



30 SCREEN 2 

40 FOR K — 126 TO 127 STEP 6 

50 Y=191:X=K+V*KíIF ABS(X)>127- 

<X<1) THEN X=SGN<X>*127+(X<1> :Y 

-I11+(X-K)*B0/(V*K) 

60 LINE(127-K,1U)-(127-X.Y) 

70 LINEU27-K, 80)- (127-X, 191-Y) 

80 NEXT 

90 F=V (1/6) :Y = F 
100 Y'Y«F:IF Y>83 THEN 140 
110 LINE (0, 108+Y) - (255 , 1.08+Y) 
120 LINE(0,84-Y}-(255,84-Y) 
130 GOTO 100 

140 IF INKEYS=" " THEN 140 ELSE 

.20 

Alterando o valor inicial, obtèm-se 
efeitos diferentes, como a sensação de 
estar flutuando entre as duas superfícies. 
Atribuindo um valor baixo para V (2, 
por exemplo), as linhas inferiores se in- 
clinarão para os pontos de fuga situa- 
dos em um horizonte acima da metade 
do vídeo. Inversamente, as linhas supe- 
riores convergirão para um horizonte 



abaixo da metade do vídeo. Se, por ou- 
tro lado, digitarmos o valor 10, o cená- 
rio apresentará modificações profundas, 
com o observador em uma posição bem 
mais próxima do chão. 

Inicialmente, o programa desenha as 
retas frontais voliadas para o horizon- 
te, entre as linhas 40 e 80, e as retas que 
vão de lado a lado da tela, entre as li- 
nhas 90 e 130. A variável K dá a coor- 
denada X do início de cada linha, que 
é, então, multiplicada por V para che- 
gar à coordenada X da sua extremida- 
de final. A condição IF...THEN, na li- 
nha 50, apenas evita que o desenho ul- 
trapasse os limites da tela. Em alguns 
computadores, isto é dispensável, ape- 
sar de acelerar a execução do programa. 

As linhas restantes serão traçadas pe- 
la próxima parte do programa. A dis- 
tância entre elas torna-se cada vez me- 
nor à medida que "se afastam" da te- 
la, um efeilo controlado por sucessivas 
multiplicações da coordenada Y por 
VT1/6. O valor 1/6 foi escolhido para 
dar um resultado mais realista; isto, po- 
rém, não impede que o usuário experi- 
mente outros valores. 



A DIMINUIÇÃO DE TAMANHO 



Os princípios da perspectiva aplicam- 
se aos objetos bem como aos feixes de 
retas. Vistos a distância, todos os ele- 
mentos de um desenho parecem meno- 
res e mais próximos uns dos outros. Is- 
so se verifica, por exemplo, quando ob- 
servamos os topos e as bases de uma sé- 
rie de árvores iguais enfileiradas colo' 
cadas sobre duas retas que convergem 
para um mesmo ponto de fuga. 

Obtém-se esse efeito porque o cére- 
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A medida que nos afastamos dos objetos. eles parecem menores São necessários princípios e lécnicas especiais para 
e mais próximos entre si, como mostra a figura acima. se obler um bom sombreamento cm esferas. 



bro humano relaciona o tamanho de um 
objeto conhecido com a distância em 
que ele se encontra. Ao vermos dois ob- 
jeios idênticos na forma, mas um com 
a metade do tamanho do outro, dedu- 
ziremos que o menor está duas vezes 
mais longe que o primeiro. Portanto, ao 
desenharmos alguns objetos em tama- 
nho decrescente no vídeo de um micro, 
teremos a impressão de que eles estarão 
"entrando na tela". 

Analisando a distância entre os ob- 
jetos de uma figura, concluiremos que 
ela se comporta do mesmo modo. Os 
objetos parecem mais próximos entre si 
à medida que se afastam do observador. 

Existe uma relação matemática entre 
a distância e o tamanho, isto é, o tama- 
nho apresenta uma variação inversa- 
mente proporcional á distância. Assim, 
se aumentarmos a distância entre o obje- 
to e o observador, o tamanho do objeto 
diminuirá. E por essa razão que no pri- 
meiro programa a separação entre as li- 
nhas horizontais está elevada a 1/6. O 
número 6 foi escolhido apenas para se 
garantir um espaçamento mais condi- 
zente com a realidade; se o substituir- 
mos por qualquer outro, veremos que o 
desenho nào perderá sua profundidade. 

O próximo programa mostra como 
desenhar uma vista em perspectiva de 
uma estrada delimitada por postes: 




10 BORDER 0: PAPER 0: INK 7: 
CLS 

15 DEF FN Y(X)-{ (174-VP) /100) 
•<X-128)+VP 

16 DEF FN B(X)»({20-VP)/100)« 
(X-128) +VP 

17 DEF FN S(T)-SF/SQR ( (FW/2) 



"2+(T*PH)'2) 
20 PRINT 1 ' ' 

30 INPUT "DISTANCIA ENTRE POS 
TES ";P 

40 INPUT "LARGURA DA ESTRADA 
";RW 

50 INPUT "ALTURA DOS POSTES " 
iPH 

60 INPUT "ALTURA DO OBSERVADO 
R " ; RH 

70 CLS 

BO LET 8F-1: LET SF-160/FN S( 

0) 

90 LET VP-]60/PH*RH+100: LET 

X-228: FOR T=l TO 15 
100 LET X-X-l: IF FN S{TKFN Y 
(X)-FN B(X) THEN GOTO 100 
110 PLOT X.FN B{X>: DRAW X- 
PEEK 23677, FN Y (X) -PEEK 23678: 
LET XJMFN Y(X)-FN B (X) ) /10 : 
LET YJ-FN Y(X)-XJ 
120 PLOT X-XJ.FN Y(X): DRAU X- 
XJ-PEEK 23677. YJ-PEEK 23678: 
DRAW X+XJ-PEEK 23677 , YJ-PEEK 
23678: DRAW X+XJ-PEEK 23677, FN 
Y(X)-PEEK 23678 
130 PLOT 255-X.FN B(X>: DRAW 
255-X-PEEK 23677, FN Y(X)-PEEK 
23678 

140 PLOT 255-X-XJ.FN Y (X) : 
DRAW 255-X-XJ-PEEK 23677, YJ- 
PEEK 23678: DBAW 255-X+XJ-PEEK 
23677 , YJ-PEEK 23678: DRAW 255- 
X+XJ-PEEK 23677, FN Y (X) -PEEK 
2367B 

150 NEXT T 
160 GOTO 160 

El 

10 PMODE 4,1:PCLS:CLS 

20 DEFFNYT{X)M(900-VP)/500)»(X 

-640)+VP:DEFFNYB(X)-( (100-VPJ/5 

00) * CX-640) í-UP : DEFFNS (T) =SF/SQH 

( (RU/2) T2+(T"PH) 12) 

30 INPUT"DISTANCIA ENTRE OS POS 

TES" ; P 



40 INPUT "LARGURA DA ESTRADA" ; RW 
50 INPUT "ALTURA DOS POSTES"; PH 
60 INPUT"ALTURA DO OBSERVADOR"; 
RH 

70 SCREEN 1 , 1 

80 SF-1:SF=800/FNS{0) 

90 VP=8007PH*RH*100:X=1140:FOR 

T-l TO 15 

100 X-X-4:IF FNSITXFNYT(X)-FNY 
B{X) THEN 100 

110 LINE(X/5,191-FNYB{X)/5)-(X/ 
5. 191-FNYT(X)/5) , PSET.XJ* (FNYT ( 
X)-FNYB(X) ) /10:YJ-FNYT<X)-XJ 
120 LINE((X-XJ)/5.191-FNYT(X)/5 
) - ( {X-XJ) /5,191-YJ/S) ,PSET:LINE 

- ( (X+XJ) /5. 191-YJ/5) . PSET: LINE- 
( tX+XJ) 75 , 191 -FNYT (X) /5) . PSET 
130 LINE(255-X/5,191-FNYB(X)/5> 

- (255-X75, 191-FNYT[X)/5) , PSET 
140 LINE(255-(X+XJ)/5,191-FNYT( 
X)/5)-(255-{X+XJ)/5,191-YJ/5) ,P 
SET : LINE - (255- (X-XJ) /5 , 191-YJ/ 
5) , PSET: LINE- (255- (X-XJ) 75. 191- 
YJ/5) , PSET : LINE- [255- (X-XJ) 75,1 
91-FNYT(X)/5) ,PSET 

150 NEXT 

160 IF INKEYS=" " THEN 160 ELSE 
RUN 



10 TEXT : HOME 

20 DEF FN YT(X) - ((900 - VP) 
/ 500) * (X - 640) + VP: DEF 

FN YB(X) - ((100 - VP) / 500) • 
(X - 640) + VP: DEF FN S (T) - 
SF / SQR ( (RW / 2) ' 2 + [T • 
PH) " 2) 

30 INPUT "DISTANCIA ENTRE OS P 

OSTES "iP 

40 INPUT "LARGURA DA ESTRADA " 

;RW 

50 INPUT "ALTURA DOS POSTES "; 
PH 

60 INPUT "ALTURA DO OBSERVADOR 
" ; RH 

70 HCOLOR» .1: HGR3 



80 SF - l.SF ■- 800 / FN 3(0) 

90 VP - 800 / PH ■ HH + 100:X - 
1140- FOR T =■ 1 TO 15 

100 X - X - 4: IF FN S(T) < F 
N YT(X) - FN YB(X) THEN 100 
510 HPLOT X / 5,191 - FN YB(X 
) / 5 TO X / 5.191 - FN YT(X) 
/ 5:XJ - ( FN YT(X) - FN YB<X) 
) / 10:YJ - FN YT(X) - XJ 
120 HPLOT (X - XJ) / 5,191 - 
FN YT!X) / 5 TO (X - XJ) / 5,19 
1 - YJ / 5: HPLOT TO (X + XJ) 
/ 5,191 - YJ / 5: HPLOT TO (X 
+ XJ) / 5,191 - FN YT(X) / 5 
130 HPLOT 255 - X / 5,191 - F 
N YB(X) / 5 TO 255 - X / 5,191 
- FN YT(X) / 5 

140 HPLOT 255 - (X + XJ) / 5.1 

91 - FN YT(X) / 5 TO 255 - (X 
+ XJ) / 5,191 - YJ / 5: HPLOT 
TO 255 - (X - XJ) / 5,191 - YJ 
/ 5: HPLOT TO 255 - (X - XJ) / 

5,191 - FN YT(X) / 5 
150 NEXT 
160 GET AS: RUN 



10 SCREEN 0 

20 DEFFNYT(X)-((900-VP)/500)MX 

-640) +VP ; DEFFNYB (X) - ( (100-VP) /5 

00)MX-640)+VP:DEFFNS<T)-SF/30jR 

( (RU/2) "2+(T*PH) -Z) 

30 INPUT-DIST ANCIÃ ENTRE OS POS 

TES ";P 

40 INPUT" LARGURA DA ESTRADA " ; R 

■ 

50 INPUT "ALTURA DOS POSTES * ; PH 
60 INPUT-ALTURA DO OBSERVADOR ■ 

; RH 

70 SCREEN 2 

80 SF-l:SF-800/FNS(0) 

90 VP=B0O/PH*RH+100:X-114Q:FOR 

T=l TO 15 

100 X=X-4:IF FNS (T) <FNYT{X) -FNY 
B(X) THEN 100 

110 LINE (X/5,191-FNYB(X)/5)-(X 

/5, 191-FNYT(X) /5) :XJ- (FNYT(X)-F 

NYB (X) ) /] 0 : YJ-FNYT (X) -XJ 

120 LINE (<X~XJ)/5,191-FNYT<X)/ 

5>-( (X-X,l)/5,191-YJ/5) : LINE- ( (X 

+XJ) /5 , 191 -Y J/5) : LINE- ( (X+XJ) /5 

,191-FNYT(X)/5) 

130 LINE {255-X/5,191-FNYB(X)/5 
) - (255-X/5 , 191-FNYT (X) /5) 
140 LINE (255-(X+XJ)/5,191-FNYT 
(X)/5)- (255- (X+XJJ/5, 191-YJ/5) i 
LINE- (255-(X-XJ)/5. 191-YJ/5) :LI 
NE- (255-ÍX-XJ) /5, 191-FNYT (X) /5) 
150 NEXT 

160 TF INKEY5-" " THEN 160 ELSE 
RUN 

Este programa permite ao usuário de- 
finir exatamente o cenário da estrada 
antes de desenhá-lo em perspectiva. 

Para facilitar os cálculos, ele oferece 
três funções: FNS(T) calcula a altura de 
cada poste; FNYT(X) e FNYB(X) dão 
as coordenadas Y da extremidade infe- 
rior e superior dos postes para qualquer 
I posição X. Podemos imaginar o traba- 



lho dessas duas funções como sendo o 
de traçar duas retas que afluem para um 
determinado ponto de fuga, entre as 
quais serão colocados os postes. 

Na parte principal do programa, a li- 
nha 80 calcula o fator de escala, SF, que 
constrói um poste tomando por base a 
altura do anteriormente desenhado. A 
variável VP define o valor da coordena- 
da Y do ponto de fuga, que, por sua vez, 
depende da altura do observador e da 
altura dos postes. A coordenada X está 
sempre no centro da tela. 

Quinze postes são desenhados em ca- 
da lado da estrada pelo laço entre as li- 
nhas 90 e 1 50. Os da margem direita são 
os primeiros a serem erguidos. 

Inicialmente, a linha 100, começan- 
do a partir da extremidade direita da te- 
la, decresce o valor da posição X, até 
que a altura do poste, calculada por 
FNS(T), se encaixe exatamente entre as 
linhas criadas por FNYT e FNYB. Fei- 
to isso, a primeira parte da linha 1 10 de- 
senha o poste, enquanto a porção res- 
tante manipula as variáveis XJ e YJ, que 
são fatores de escala para a construção 
da parte superior (suporte dos fios). A 
linha 120 é responsável por essa última 
tarefa. 



Além da perspectiva, existem outras 
técnicas capazes de dar tridimensiona- 
lidade aos gráficos. A mais comum de- 
las é o sombreamento. Infelizmente, a 
falta de variação de tons das cores cons- 
titui um grande problema quando ten- 
tamos aplicar essa técnica aos compu- 
tadores domésticos. Com isso, torna-se 
extremamente difícil criar o sombrea- 
mento necessário para um desenho em 
três dimensões. 

Já os computadores maiores, ofere- 
cendo uma rica gama de tonalidades, fa- 
zem dessa tarefa algo bem mais fácil. 



PLANETAS PONTILHADOS 



É possível acrescentar sombras a uma 
figura qualquer colorindo apenas alguns 
pontos em sua região mais escura e a 
maioria deles nas partes mais claras. 
Portanto, o número de pontos acesos 
em uma certa área do objeto é que irá 
determinar a claridade. 

Com a variação gradual da densida- 
de nas diferentes regiões, poderemos 
criar o efeito de sombreamento. O pró- 
ximo programa utiliza essa técnica pa- 
ra desenhar um grupo de esferas. Elas 
se parecem tanto com planetas girando 
no espaço que o programa chega a con- 




cluir um fundo estrelado e a desenhar 
um anel ao redor de algumas delas. 



10 BRIGHT 0: BORDE R 0: PAPER 
0: INX 7: CL8 

20 FOR 1-1 TO 100: PLOT RND* 

255,RND*175: NEXT I 

25 LET F-0: FOR T-l TO 3 

30 LET CL-RND*5+2 

40 LET XC-RND*195+30: LET YC- 

RND*115+30 

50 LET S-RND*30 

60 FOR K— S TO S 

70 IF INT (K)-0 AND F-0 THEN 

PLOT INVERSE 1; OVER 1;XC-L* 

2.YC: DRAW INK CL:LM.0: LET 

F-l 

80 LET X-SQR (S"S-K«X) 

90 LET X2-2*X 
100 FOR L--X TO X 
110 PLOT INK CL; INVERSE LlSC 
+L.YC+K: IF RND*X2-X<L THEN 
PLOT INK CL;XC+L,XC+K 
120 NEXT L 
130 NEXT K 
140 NEXT T 
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150 PAUSE 0 



10 PMODE 3,1:PCLS3:SCREEN 1,0 
20 FOR K-l TO 100:PSET(RND(256) 
-l.RND(192)-l,2) : NEXT 
25 FOR T-l TO 8 

30 XC-RND(195)+30:YC-RND(131)+3 

0 

40 CL-RND(3) :CL-CL- (CL-3) 
50 S-RND(25)+5 
60 FOR K--S TO S 

70 IF K-l AND RND(4)-1 THEN CIR 
CLE(XC.YC) , S«1.5.RND(4) ,0 
BO X-SQR(S"S-K*K) 
90 X2-2*X 

100 FOR L—X TO X STEP 2 

110 IF RND(X2)-X<L THEN COLOR C 

L ELSE COLOR 3 

120 PSET(XC+L,YC-K) 

130 NEXT L.K 

140 NEXT T 

150 GOTO 150 



20 FOR K - 1 TO 100: HPLOT IN 
T (279 » Et ND (1) + 1). INT (19 
1 * RND (1) + 1) : NEXT K 
25 FOR T-l TO 8 
30 XC - INT ( RND (1) * 195 + 
30):YC - INT ( RND (1) » 131 + 
30) 

40 CL - INT ( RND (0) * 3 + 1) 
:CL - CL - (CL - 3) 
50 S - INT ( RND (1) 



25 



60 FOR K - - S TO S 

70 IF K - 1 AND INT ( RND (1) 

•4 + 1) =1 THEN GOSttB 160 
80 X - SOB ■ (S * S - K • K) 
90 X2 - 2 * X 

100 FOR L - - X TO X STEP 2 
110 IF INT ( RND (0) * X2 + 1 
) - X < L THEN HCOLOR= CL: GOT 
O 120 
115 

1?0 
130 
!40 
150 
160 



.YC - 



HCOLOR- 3 
HPLOT XC +■ 
NEXT L.K 
NEXT T 
GOTO 150 

FOR A • 0 TO 6.28 STEP 



10 HCOLOR- 3: HGR2 



10 COLOR 15.1,l:SCREfcN 2 
20 FOR K-l TO 100:PSET(INT(RND( 
1) *256) , INT {RND ( 1 ) "192) ) : NEXT 
25 FOR T-l TO 8 

30 XC=INT(RND(-TIME)*195)+30:YC 

-INT (RND (-TIME) «131) +30 

40 CL-INT(RND(1) *3) :CL*CL- (CL-3 

) 

50 S-INT(RND(l)*25)+5 
60 FOR K=-S TO S 

70 IF K-] AND INT(RND{1)*4)-1 T 
HEN CIRCLE (XC, YC) ,8*1.5,9,0, ..2 

5 

BO X-SQR (S*S-K*K) 
90 X2-2*X 

100 FOR L--X TO X STEP 2 

110 IF INT(RNDU)«X2)-X<L THEN 

COLOR CL ELSE COLOR 3 

120 PS ET (XC-L , YC-K) 

130 NEXT L.K 

140 NEXT T 

150 GOTO 150 

O cenário de estrelas é feito pela li- 
nha 20, que acende aleatoriamente 100 
pontos na leia. Oito esferas serão dese- 
nhadas (nos micros da linha Spectrum 
apenas três) pelo laço entre as linhas 25 
e 140. A linha 30 escolhe uma posição 
casual para o centro de cada esfera, e 
as linhas seguintes determinam cor e 
tamanho. 

O procedimento geral para a criação 
de cada esfera consiste em preenchê-la, 
de baixo para cima, com retas horizon- 
tais. Esse trabalho é controlado por 
meio da variável K, que tem — S como 
valor inicial (a coordenada Y da parte 
mais baixa da esfera) e +S como valor 
final (a coordenada Y da parle mais al- 
ta da esfera). 

A linha 80 define a coordenada X do 
início de cada reta afravés da equação 
para construção do circulo. X2 é o com- 
primento de cada reta. 

As linhas 100 e 130 determinam a cor 
das linhas. A variável L pode ser consi- 
derada como a luminosidade de cada re- 
gião; seu valor varia segundo a distân- 
cia entre o ponto e a borda do círculo. 
Um número aleatório (dependendo do 
comprimento da reta) é escolhido pela 
linha 1 10; caso seja menor que a clari- 
dade da região, define-se o ponto a ser 
plotado como sendo de cor preta. Se. ao 
contrário, o número for maior, o pon- 
to será definido como sendo da cor es- 
colhida na linha 40. 

Por fim, a linha 135 desenha um anel 
ao redor de dois ou três planetas. 

Experimente adaptar estas rotinas pa- 
ra sombrear outros sólidos, como cilin- . 
dros ou superfícies planas. 
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Se você já se deu ao trabalho de es- 
crever um programa, certamente enfren- 
tou dificuldades na padronização da en- 
trada dos dados. Quantas vezes não foi 
preciso verificar o número máximo de 
caracteres de uma cadeia string, para 
que não excedesse o tamanho do seu ar- 
quivo, ou manipular uma data para dar- 
ihe um formato adequado? 

A rotina que publicamos aqui resol- 
ve esses e outros problemas, padroni- 
zando o formato de entrada de dados e, 
ainda, melhorando sua apresentação. 
Ela fornece formatos definidos para a 
entrada de dados numéricos, alfanumé- 
ricos, data e hora. Além disso, para que 
você tenha uma preocupação a menos, 
encarrega-se de verificar a validade das 
datas e horas. 



COMO USAR A ROTINA 



A utilização da rotina de formatação 
é simples. Digite o programa e execute- 
o, para ter uma amostra do que ela faz. 
Antes de chamar a rotina, você precisa- 
rá apenas entrar um parâmetro que de- 
finirá o formato e o tipo de dado que 
a máquina aceitará. 

O parâmetro será fornecido pela va- 
riável PS, já que o BASIC não permite 
a passagem direta de parâmetros para 
as sub-rotinas. Assim, se você quiser dar 
entrada a uma data, a variável PS deve- 
rá conter a letra C (faça PS= "C" e use 
"calendário" como mnemónico); para 
a entrada de hora, PS conterá o valor 
H (P$ = "H"). Como esses dois forma- 
tos são fixos, basta uma só letra. 

Para a entrada de números e de va- 
riáveis alfanuméricas, mais informações 
serão necessárias. Na entrada de núme- 
ros, a variável PS deverá conter a letra 
D seguida de dois valores, que indicam 
o número de algarismos (incluindo o 
ponto decimal) e o número de casas de- 
cimais. O primeiro valor deve ter sem- 
pre dois dígitos (até 9, coloque 0 antes 
do algarismo significativo); o segundo, 
apenas um digito (use uma vírgula para 
separá-lo do anterior). Se você quiser, 
por exemplo, dar entrada a um número 
de nove dígitos, dois dos quais decimais, 
_use: PS = "D09,2". Para a entrada de 
I variáveis alfanuméricas, utiliza-se a le- 



tra G (lembre-se de "geral", já que 
aqui são aceitos números e letras), se- 
guida do número máximo de caracte- 
res a serem digitados. Para a entrada de 
um nome de até trinta caracteres, use: 
P$ = "G,30". 

Definido o parâmetro, chama-se a 
sub-rotina por meio do comando GO- 
SUB 600. Se for conveniente, você po- 
derá renumerá-la e colocá-la em qual- 
quer parte do seu programa. Nesse ca- 
so, não se esqueça de mudar o número 
da linha pedida pelo GOSUB. 

Depois de digitada, a informação é 
armazenada na variável WS. Para usar 
seu conteúdo, é necessário transferi-lo 
para outra variável cujo valor não seja 
alterado pela sub-rotina. Uma linha de 
programa que utiliza a rotina de entra- 
da de dados fica assim: 



Quanto à localização do formato pa- 
ra a entrada de dados na tela, a rotina 
também é simples. Seu ponto inicial se- 
rá aquele em que você tiver deixado o 
cursor antes de chamar a rotina. Para 
marcar esse ponto, coloque um ponto 
e vírgula no fim da mensagem. Se essa 
posição não lhe convier, posicione o cur- 
sor com HTAB e VTAB 

Como está, a rotina não trabalha 
bem se o formato ficar dividido em duas 
linhas, pois só o posicionamento hori- 
zontal é monitorado. Mais à frente, ve- 
remos como modificar essa situação. 



A rotina começa na linha 600, onde 
a variável PH passa a conter o valor da 
atual posição horizontal do cursor. A 
posição de memória 36 armazena valo- 
res de 0 a 39. Somamos I ao valor em 
questão, tornando-o equivalente ao usa- 
do por HTAB. A variável PP passa en- 
tão a conter o valor ASCII da letra que 
caracteriza o parâmetro. Com base nes- 
sa variável, o programa será desviado 
adequadamente na linha 604. As linhas 
indicadas em 604 atribuem os valores 
necessários às variáveis que controlam 
o funcionamento da sub-rotina. 



Aprenda a montar telas para 
entrada de dados formatados nos 
computadores Apple e TK-2000. 
A padronização tornará seu trabalho 
mais profissional e confiável. 



Examinemos essas variáveis. Inicial- 
mente, P contém o comprimento do da- 
do a ser digitado. Para data e hora, es- 
se valor é fixo; para outros tipos de da- 
do, é lido de P$. 

PF indica o ponto em que se poderá 
deixar a rotina. Assim, para entradas al- 
fanuméricas, seu conteúdo é 1 — ou se- 
ja, pelo menos um caractere tem que ser 
digitado, não se aceitando entradas va- 
zias. Nos demais casos, PF é igual a P, 
forçando o uso de todos os campos do 
formato de entrada. Isso impede que 
uma data seja digitada pela metade ou 
que se omita a parte decimai de um nú- 
mero (mesmo que seja 0). 

Duas outras variáveis, PI e P2, mar- 
cam a posição onde se usam caracteres 
Fixos no formato. Assim, para datas, o 
caractere "/" é utilizado duas vezes. A 
posição é contada a partir de 0. 

Finalmente, as variáveis alfanuméri- 
cas iniciadas por W servem para mon- 
tar a linha de formatação, que ficará ar- 
mazenada em WD$. 

Depois que o conteúdo dessas variá- 
veis foi definido, a execução converge 
para a linha 618. Aí terá início a entra- 
da de dados propriamente dita. O for- 
mato é colocado na posição lida pela li- 
nha 600 e as variáveis WS, WIS e PX 
são limpas, passando a conter a posição 
do caractere dentro do stríng que está 
sendo trabalhado. 

A linha 626 indica o caractere corres- 
pondente à posição atual do cursor, 
usando operações lógicas. Para isso, o 
computador atribui valor I às relações 
verdadeiras, e 0, às falsas. Assim, todas 
as comparações são condensadas em 
uma única linha, evitando-se o uso de 
várias instruções IF. 

O caractere indicado é colocado em 
sua posição e, em seguida, o cursor é re- 
posicionado. Espera-se então a entrada 
de um caractere pelo teclado (linha 628). 
A rotina só particulariza dois tipos de 
caractere: o carriage return (ou seja, 
<CR>, cujo código é 13) e o back- 
space (ou *-, de código 8). Os demais são 
tratados em grupo. 

Ao se digitar < CR > , o caractere se- 
rá reconhecido pelo seu código, que es- 
tá armazenado na variável PA. Note que 
ele só terá efeito se a posição do carac- 
tere atual (PX) for maior ou igual ao 
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ponto de saída definido (PF). Assim, se 
estivermos entrando uma data, não po- 
deremos deixar a rotina antes de digitar 
o último caractere. 

O back-space (linha 632) só terá efei- 
to se estiver além do primeiro caractere 
(PX >0). Nesse caso, a rotina é desvia- 
da para a linha 644 e o valor 1 é sub- 
traído de PH — ou seja, a tabulação ho- 
rizontal retrocede uma posição. Se PX 
está apagando o primeiro caractere 
(PX = 1), volta-se para a linha 620, e o 
processo recomeça. Na linha seguinte, 
PX é decrementado de 1, pois estamos 
retornando a uma posição anterior. Ve- 
rifica-se então se o cursor não caiu so- 
bre um dos caracteres fixos do formato 
(cujas posições são representadas por PI 
e P2). Em caso afirmativo, recua-se o 
cursor mais uma posição. Na linha 648, 
o conteúdo de WS (onde a entrada está 
sendo montada) é atualizado e retoma- 
se o ciclo. 

Não sendo <CR> ou *-, o caracte- 
re digitado é interpretado como uma en- 
trada de dado. As linhas 634 a 638 che- 
cam se ela é válida. Para valores de PP 
iguais a 1 , 2 e 6 (3 e 4 não são usados), 
apenas números são admitidos. Para 
PP igual a 5 (entradas alfanuméricas) 
admitem-se letras maiúsculas e núme- 
ros. Se o caractere não for válido, a exe- 
cução é devolvida á linha 628. Caso con- 
trário, a linha 640 se encarrega de 
colocá-lo na tela e adicioná-lo á variá- 
vel WS, incrementando, em seguida, PH 
e PX. Verifica-se então se o cursor foi 
para uma posição de caractere fixo, que 
deve ser saltado. 

Após todos esses passos, retornamos 
à linha 624, que encerra a entrada quan 
do o último caractere do dado é digita- 
do, desviando a execução para a linha 
650. Esta linha e a 652 voltam a impres- 
são de tela para o modo NORMAL e 
apagam a parte não utilizada do forma- 
to. Nesse ponto, a rotina de entrada de 
dados está terminada. Segue-se a checa- 
gem da validade de datas e horas por 
meio de operações lógicas. 



APERFEIÇOAMENTOS 



Podemos agora fazer algumas modi- 
ficações na rotina — por exemplo, 



transferir a declaração da variável WW$ 
da linha 601 para o início do programa, 
visto que só é necessário defini-la uma 
vez, e não sempre que a rotina for utili- 
zada. Talvez você não precise usar to- 
dos os tipos de entrada. Nesse caso, é 
possível retirar as partes dispensáveis da 
rotina, pois elas são independentes. 
Com isso, economiza-se um pouco de 
memória. 

Também é interessante fazer com que 
a tabulação vertical seja controlada, de 
modo que se possam entrar valores com 
mais de 39 caracteres. 



H1E] 



10 HOME 

20 PRINT TAB < 8) "DEMONSTRAÇÃO 
DK ENTRADA"; TAE ( 55) "DE DADOS 

30 UTAB 6: PBÍNT "SENHA DF! ACE 
SSO: ";:PS ■ "G.05": COSUB 600: 

IF WS < > "SENHA" THEN END 
40 VTAB 8: PRINT "DATA DE HOJE 
: ";:PS = "C" : GOSUB 600:DTS - 
WS 

50 UTAB 10: PBINT "HORA: " ; : PS 

= "H": GOSUB 600:HRS - WS 
60 VTAB 12: PRINT "DIGITE UM V 
ALOR ■ "i VTAB 13: HTAB 6 : PS = " 
D10, 3": GOSUB 600:VA = VAL (WS 
) 

70 PRINT : PRINT DTS : PRINT HR 
S: PHINT VA 
80 END 

596 REM ******************* 
59? ttEM *** SUB ENTRADA *** 

598 REM ******************* 

599 REM 

600 PH - PEEK (36) + 1:PP = A 
SC (PS) - 66 

601 WWS - " 

" : HEM 5 D 

EFINA ESTA VARIÁVEL NO INICIO D 
0 SEU PROGRAMA * 

602 INVERSE 

604 ON PP GOTO 606,608,0.0,612 
,616 

606 P = S:PF = P:P1 = 2:P2 » 5: 
WDS - "DD/MM/AA" :WCS - V: G0T 
O 618 

608 P = VAL ( MIDS <PS,2,Z)):D 

- VAL ( RIGHTS (PS. D): IF D 
= 0 THEN 614 

610 PF = P:P1 = P - D - 1:P2 ■ 
P1:WCS = "."'WDS = LEFTS (WWS . 
PI) + WCS + LEFTS [WWS. D) : GOT 



612 P - VAL ( RIGHTS (PS. 2)1 
614 PF = 1:P1 ■ tf9:P2 - PI: WDS 
= LEFTS (WWS,P):UCS * "": GOTO 
61B 

616 P = 5:PF = P:P1 * 2 : P2 - PI 

:WDS = "HH:MM":WCS = " : " 

618 HTAB PH: PRINT WDS; 

620 WS - "" :WIS - "" 

622 PX - LEN (WS) 

624 IF PX - P THEN 650 

626 WA = 95 * (PP = 2 OR PP - 5 

) + 68 * (PP - 1 AND PX < 2) + 

77 * ((PP - 1 AND PX > 2 AND PX 
< 5) OR (PP = 6 AND PX > 2)) + 
65 * (PP = 1 AND PX > 5) + 72 

* (PP - 6 AND PX < 2) 

628 liTAB TH: PRINT CHRS (WA) : 

: HTAI) PH: CET WIS 

630 PA - ASC (WIS): IF PA = 13 
ANI) PX > PF THEN 650 

6J2 IF PA - B AND PX > 0 THEN 

644 

634 IF PP - 5 THEN 638 
636 IF PA < 48 OR PA > 57 THEN 
628 

638 IF PA < 32 OR PA > 127 THE 
N 628 

640 HTAB PH: PHINT CHRS (PA) ; 
:WS ■ WS * WIS:PX ■ PX + 1 : PB * 

PH + 1 : IF PX ■ PI OR PX • P2 
THEN PX - PX + 1:PH - PH + 1:WS 

- WS + WCS 
f>42 COTO 624 

644 PH = PH - 1: IF PX = 1 THEN 

620 

646 PX = PX - 1 : IF PX - PI OR 
PX » P2 THEN PH - PH - 1 : PX = P 
X - 1 

64B WS - LEFTS (WS.PX): GOTO 6 
26 

650 NORMAL : FOR X = 1 TO P - 

LEN (WS) 
652 PRINT CHRS (32):: NEXT 
654 ON PP GOTO 656,666,0.0,666 
,660 

656 D = VAL ( LEFTS (W$.2)):M 
- VAL ( MIDS (WS.4.2)):A = VA 
L ( RIGHTS (WS. 2) ) 
658 V = ( (M = 4) + (M = 6) + (M 

= 9) + [M = 11) ) * (D > 30) + 
(M - 2) * (< INT (A / 4) = A / 
4) * (D > 29) + ( INT (A / 4) < 
> (A / 4) ) * {D > 28) ) + ( (A 

< 1) + (M < 1) + (M > 12) + (D 

< 1) + (D > 31) ) : GOTO 664 
660 H - VAL ( LEFTS (WS.2)Í:M 
■= VAL ( RIGHTS (WS, 2) ) 

662 V = (H > 24) + (M > 59) 
664 IF V THEN PRINT CHRS (7) 

::PH - PH - LEN (US): INVERSE 

: GOTO 618 

666 PRINT : BETURN 
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UM EDITOR 
MUSICAL (1) 



Transforme o microcomputador em 
uma partitura com composições 
musicais de sua própria autoria 
e, ainda, em uma orquestra que 
execute as melodias recém-criadas. 



Existem duas maneiras de fazer o mi- 
crocomputador tocar música. A primei- 
ra consiste em introduzir a melodia co- 
dificada em números dentro de um pro- 
grama. A segunda, em utilizar um edi- 
tor musical que cuide de toda a codifi- 
cação, deixando ao usuário apenas a ta- 
refa de digitar as notas. 

Já vimos em iNPUT como progra- 
mar o micro para executar melodias. O 
processo é simples, mas requer um bom 
conhecimento dos comandos musicais 
do BASIC. Como estes nem sempre rêm 
muita relação com música, o "composi- 
tor" é obrigado a consultar constante- 
mente tabelas ou manuais, para verificar 
os valores adequados para a tonalidade, 
duração e volume, entre ouiros parâme- 
tros de cada nota. A notação macromu- 
sical do MSX e do TRS-Color facilita 
esse processo, mas não elimina o traba- 
lho com o restante do programa. 

A execução de música através dc pro- 
gramas apresenta outras desvantagens, 
como a dificuldade de editar a melodia 
e a impossibilidade de ouvir as notas an- 
tes que o programa esteja completo. 
Além disso, para cada peça temos que 
escrever um novo programa. 

Um editor musical cuida de todos os 
detalhes da codificação, deixando o 
usuário livre para tratar da melodia pro- 
priamente dita. Não é preciso conheci- 
mentos de programação para usá-lo. 

Como os programas são bem longos, 
foram divididos em três partes. Digite 
agora a primeira parte e grave-a, para 
mais tarde completar a listagem. 



COMO DIGITAR AS NOTAS 



Uma vez que tenhamos o programa 
completo na memória do computador, 
poderemos selecionar as notas de várias 
maneiras. O processo será explicado 
pormenorizadamente para cada uma das 
máquinas no último artigo desta série. 

Seja qual for o método escolhido, o 
usuário sempre terá a chance de alterar 
a melodia — mudando, inserindo ou 
apagando notas — até obter o resulta- 
do desejado. Se quiser conferir o traba- 
lho, poderá executar a música — mes- 
mo incompleta — a qualquer instante. 

O editor musical permite ainda a mu- 



dança do andamento da oitava e. no ca- 
so do MSX, do timbre da nota. 

As notas sào selecionadas por meio 
de seus nomes (A, B, C, D. . .) ou do te- 
clado, que é usado como se fosse um 
piano. Se o usuário preferir, poderá 
combinar os dois sistemas, introduzin- 
do nota por nota em certos trechos e 
executando outros no teclado. 



10 BORDER 0: PAPER 0: INK 7: 
CLS 

40 LET maxnoteu-1500 : LET ct- 
0: LET tempo». 1: POKE 23609. 
128: POKE 23658.0: DIM m(35) 
95 FOR i=l TO 35: READ m(i) ! 
NEXT l 

100 DIM t tmaxnotea+1 ) : GOTO 
110 

105 CLS : PRINT "Aguarde. Muai 

ca sendo apagada . " 

110 FOR 1 = 1 TO maxnoT.es: LET t 

(i)=0: NEXT i 

190 CLS 

200 PRINT INVER5E 1 ; AT 0,6;" 
MENU PRINCIPAL " ; INVERSE 0;" 
' TAB 5;"[1] Tocar pelo teclado 
"■'TAB 5["[2] Entrar notas"" 
TAB 5i"[3] Tocar de novo" 
210 PRINT ' TAB 5;"[4) Editar m 
usica""TAB 5 ; " [ 5 J Apagar muai 
ca"' 'TAB 5;"(6J Salvar musica" 
'■TAB 5|"[7] Carregar musica" 
270 PRINT ''TAB 5;"0pcao [S] p 

300 LET AS-INKEY3 : TF AS-"" 

THEN COTO 300 

310 LET A-CODE (AS) 

320 1F <A<49 OR A>55) AND AO 

113 AND A<>81 THEN GOTO 19(1 



' A-49 THEN 
340 IF A-50 THEN 
350 IF A=51 THEN 
360 IF A=52 THEN 

365 IF A=53 THEN 

366 IF A-54 THEN 

367 IF A-55 THEN 



GOSUB 1000 
GOSUB 2000 
GOSUB 3000 
GOSUB 4000 
GOTO 105 
GOSUB 5000 
GOSUB 6000 



370 IF A-115 OR A=83 THEN 
STOP 

380 GOTO 190 

1000 CLS 

1001 LET len-1: LET IS="Semn 



1003 IF Í$0*C" AND 
N GOTO 3002 

1004 LET num-1 : IF í! 



LET num=ct"2+l: LET tn^num 
1005 IF lS="l" THEN LET ct = 0 
101Q PRINT "Toque aa notas nas 
teclas de"'"<C> - mal3 baixa 
ate"'"<M> - mais alta Dua 



«indo 



cia <I> 



1060 PRINT AT 17 , 0 : "Duração 
nota-" 

1070 FOR i-1 TO 100: NEXT l 
1075 LET 0$-"" 
1080 LET NS-INKEY$: IF NS-" 
EN GOTO 1075 
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EXECUÇÃO DE MELODIAS 




Mo IMU 1 Mj 




ATRAVÉS DE UM PROGRAMA 


■ 


ALTERAÇÃO DA MELODIA 


■ 


VANTAGENS DO 


■ 


CONFERÊNCIA 




EDITOR MUSICAL 


■ 


COMPOSIÇÃO DE PECAS 


■ 


COMO DIGITAR 


■ 


SELECAO DE NOTAS 



1085 IF NS-OS THEN GOTO 1080 

1090 LET N-CODE (NS) 

1091 IF N = 33 THEN LET len=l 
ET IS = "Seniicolcheia" 

1092 IF N = 64 THEN LET len=2 
ET IS="Colcheia" 

1093 IF N-35 THEN LET len-4 
ET IS="Serainima" 

1094 IF N = 36 TKEN LET len = 8 
ET IS-"Mmima" 

1096 IF N=37 THEN LET len=li 
LET IS="Semibreve" 

1097 PRINT AT 17,16;" ";1S: 



1099 IF N<>32 AND N<>13 THEN G 
OTO 1109 

1100 IF lS="l" THEN LET ct-INT 
[num/2) : EETURN 

1102 LET ct-ct+INT ( (num-tn) /2) 
: RETUBN 

1109 IF N<60 THEN LET lndex-N- 



1110 IF N>90 THEN LET mdex-N- 

87 

1112 IF N>-60 AND N<-90 THEN G 

OTO 108 D 

1115 IF index=S OR index=9 OB 1 




ndex=16 OR index-2!) OR index=21 

THEN GOTO 1080 
1116 IF index=2 THEN LET t (num 
)=len: LET t (nutn+1 ) =-4 : GOTO 11 

27 

111B IF indexOO THEN GOTO 108 
0 

1120 SOUND len/lO.mdndex) 

1125 LET t(nLi)n)=lenr LET t (nlJ^>■^ 
l ) -m ( 1 ndex) 

1126 PRINT AT 15,0;INT (num/2) + 
1;" notas na memoria" 

1127 LET num=num+2 
1130 LET OS=N5 
1140 GOTO 1080 



10 CLEAR 5000-MX=250 

20 RlS-"whqeatu" : R2S= " 1 2345678" 

30 R3S-"abcdef oCDFGAp" 

40 NY$-"Q2W3ER5T6Y7UI9O0PZSXDCF 

VBHNJM,L.Ç/[<"+CHR$ [30) +CHB3 ( 31 

)tCHRS(29)+CHRS(2B)+" "+CHBS<18 

)+CHR$U27)+CHR$(13)+CHR$(ll) 

50 DIM NS (MX) ,CS [12) 

60 FOR I-1.T07:READ LES1I),L25(I 

) : NEXT 

70 FOR I"1T012 : READ CS ( I ) :NEXT 

80 DATA SEMI BREVE . 1 , MT NI MA. 2 , SE 

MÍNIMA. 4 .COLCHETA, 8. SEMI COLCHE1 

A, 16. FUSA, 32 . SEMIFIISA. 64 

90 DATA c.C. d ,D,e,f ,F,g,G.a, A,b 

100 FOR 1-1 TO MX-NS (I) ="*•**" : 

NEXT 

110NN=Q: OC3-"4":TE-120:LES="w 
' rLE-1 

120 CLSrCOLOR 15.2:KEY OFF:LOCA 
TE 4.1:PRINT"COMPOSIT0R MUSICAL 

MENU PRINCIPAL" 
130 LOCATE 6,3:PRTNT"1:RECUPERA 

MUSICA DA FITA" 
140 LOCATE 6,4:PRINT"2:SALVA MU 
SICA NA FITA" 

150 LOCATE 6,5:PRINT"3:TOQUE NO 

TECLADO" 
160 LOCATE 6 ,6: PRINT"4 : COLOQUE 
UMA TABELA DE NOTAS" 
170 LOCATE 6, 7 : PR INT." 5 : MUDE O T 
EMPO DE EXECUÇÃO" 
180 LOCATE 6,8:PRINT"6:LISTA/ED 
ITA NOTAS" 

190 LOCATE 6,9:PBINT"7:TOCA A M 

USICA DA MEMORIA" 

200 LOCATE 6,10: PBINT"8 ! MUDANÇA 

GERAL DE OTTAVA" 
210 LOCATE 6. 11 : PR1NT"9 :SAI DO 
PROGRAMA " 

220 LOCATE 5,19: PRINT" ENTBE COM 

O NUMERO DA OPCAO" r 
230 AS-INKEYS :IF AS<"1" OB AS> 
"9" THEN230 
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240 OP-VAL(AS) 

250 ON OP GOSUB 2080,2210,500,8 

10.300,1510,1760,1910,270 

260 GOTO 120 

270 CLS:PBINT"VOCÊ TEM CEBTEZM 
S/N)?" 

280 A3-INKEY$:IF A$<>"S* AND A$ 
<>"N" THEN 280 

290 IF AS-"S" THEN CLSrCOLOR 15 
,4:END ELSE 120 

300 CLS:C0LOB 15,4: PRINT"MUDANÇ 

A DO TEMPO DE EXECUÇÃO" 

310 PBINT : PB I NT "TEMPO ATUAL : " ; T 

E 

320 PRINT* ENTRE NOVO VALOR DE T 

EMPO" ; : INPUT 3T 

330 IF ST-0 THEN BETUBN 

340 IF ST<32 OB ST>255 THEN 320 

350 TE-ST: BETUBN 

360 LOCATE 6,7: PRTNT"NOTA OI 
TAVA DUBAÇRO" 
370 U-9 

380 FOR L-NN-5TONN 
390 IF LO THEN 490 
400 LOCATE 1,U: PRINT TAB(20)i" 

410 LOCATE J.,U:PRINT USING"I*# 
"iLi 

420 AS=NS(L) 

430 BS=LEFTS(AS.l) :IF BS>="a" A 

ND BS<-"0* THEN C3=CHRS(ASC(BS) 

-32)+" "ELSE CS-BS+"!" 

440 IF BS="P" THEN C«-"- " 

450 PB TNT " ";C$;" " ;MID 

SÍA3.2.1) i" 'I 

460 PBINT LES<INSTB(RJS.MIDS(AS 

,3.1) ) ) ; 

470 IF MIDS(AS.4.D-"-" THEN PR 

INT" ." ELSE PRINT 

480 U-U+l : 

490 NEXTL: BETUBN 

500 CLS:COLOR 15 , 4 , 15 : C-VAL {OCS 

):IF C>6 THEN C-6 :OCS-"6" 

510 LOCATE 13,1: PH TNT "MODO ORG& 

O" 

520 LOCATE 16,4: PBINT ;" 

530 LOCATE 1 , 3 : PRINT"OITAVA MAX 

IMA-"tC:TAB(46) [ "DUBACAO : " ;LES( 

INSTR (BIS, LEFT3 (LES. 1) ) ) ; 

540 TF MIDSUES. 2. !>'"■" THEN P 

BINT" . " ELSE PRINT 

550 LOCATE 0,19:PRINT" 



580 GOSUB 360 

590 IF NN-MX THEN LOCATE 1,18:P 
B TNT "MAX IMO NUMEBO DE NOTAS COL 
OCADO!"; : FOR S-ITO300C) : NEXT : RET 
URN 

600 IS-TNKEYS:IF 13 = "" THEN 600 
610 P-INSTRfNYS.IS) :IF P=0 THEN 

600 

620 IF P>36 THEN 650 
630 0C$=MI03(STRSCC+INT((P-1)/1 
■ 2) ) .2) :IS=CSÍP-12*INT( (P-D/12) 



640 GOTO 750 



d 



10 CLEAR 5000 

20 MX-250:RlS--«hqeB- :R2S-"1234 

5" :R3$-"abcdefgCDFGAp" :NYS-"Q2W 

3ER5T6Y7UI9O0PÍAZSXDCVGBHNMK . L - 

"+CHR3!103)+-/-->CHR3(10)*CHR3( 

8)+CHHS(9)+" "+CHR$[2D+CHR5(93 

)+CHHS(13)+CHBS(12) 

30 DIM NSIMXÍ ,C3{12) 

40 FOR 1-1 TO 5 ! BEAD LES ( I ) . L2S 

(I) : NEXT 

SO FOR 1-1 TO 12 : HEAD C$(I):NEX 
T 

60 DATA SEMIBREVE.1,MINIMA,2.SE 
MINIMA,4,C0LCHEIA,8,SEMIC0LCHEI 
A, 16 

70 DATA c.C.d,D,e,£.F.9,G,a,A,b 
80 FOR 1-1 TO MX:NS(I)-"**"**:N 
EXT 

90 NN-0:OCS-"3":TE-8:LES-"w ":L 
E-l 

100 CLS : PRINTêâ , " COMPÓSITOS MUS 
ICAL": PRINT 640, "MENU PRINCIPAL 

110 PRlNTe96,"l:RECUPERA MUSICA 

DA FITA" 
120 PRINT"2:SALVA MUSICA ATUAL 
NA FITA" 

130 PRINT" 3 : TOQUE NO TECLADO" 
140 PRINT"4:C0L0QUE UMA TABELA 
DE NOTAS" 

150 PRINT"5:MUDE O TEMPO DE DUR 
ACAO" 

160 PRINT" 6 ! LISTA/ EDI TA NOTAS" 
)70 PRlNT"7:TOCA A MUSICA DA ME 
MOBIA" 

180 PHINT"8:MUDA A OITAVA GERAL 

190 PRINT"9:SAI DO PROGRAMA" 
200 PRINTê452. "ENTRE O NUMERO D 
A OPCAO" : 

210 A3-INKEYS:IF AS<"1" OR AS>" 
9" THEN 210 
220 OP-VAL(AS) 

230 ON OP GOSUB 1900,2020,480,7 

60,420,1360,1560,1720,250 

Z40 GOTO 100 

250 CLS:PRINT" VOCE TEM CERTE2A 
<S/N)?":POKE 2B2.255 
260 AS-INKEYS:IF A$0"S" AND AS 
<>"N" THEN 260 

270 IF AS-"S" THEN CLS : END ELSE 
100 

280 PRINT6132,"NOTA OITAVA D 

URACAO" 

290 RT-0 

300 FOR L-160 TO 320 STEP 32: PR 

INT€L : NEXTL : PBINTêl60 , " ; 

310 FOB L-NN-5TO NN 

320 IF L<1 THEN 410 

330 PRINTUSING"!»! ";Li 

340 AS-N$(L) 

350 BS-LEFT3(AS,1) :IF BS>-"a"AN 

D BS<-"0" THEN CS-CHRStASC(BS)- 

32)+" "ELSE CS-BS+"i" 

360 IF BS-"P" THEN CS-"" " 

370 PRINT CS;" ";MIDS(AS,2. 

1);" 




MELHORE A QUALIOADE DO SOM 

O programa apresentado neste ar- 
tigo é bastante satisfatório para a 
composição e execução musical a ní- 
vel amador. Os músicos profissionais, 
entretanto, logo notarão suas limita- 
ções - entre elas. a falta de recur 
sos para a modulação do timbre (o 
que diferencia os vários instrumen- 
tos entre si quanto à sonoridadel e 
a impossibilidade de se obter efeitos 
polifõnicos. Mas a culpa não é do 
programa. 

Mesmo o MSX, o microcomputador 
mais sofisticado em termos de progra- 
mação de efeitos sonoros, não é capaz 
de substituir um verdadeiro sinteti 
dor musical. Este permite a simulação 
de um grande número de instrumentos 
de sopro, corda ou percussão, através 
da manipulação das formas de onda. 
Acoplando-o a seu microcomputador, 
por meio de uma interface MIDI Iveja 
o artigo da página 1 306), você poderá 
conseguir a qualidade máxima em ma- 
téria de som. 

390 IF MID$(A5. 4,1)-". "THEN PRI 

NT". "ELSE PRINT 

400 IF RTO0THEN RETUHN 

410 NEXT L : RETURN 

420 CLS ; PRINTS7 , "MUDE OPCAO TEM 

PO" 

430 PRINT : PR INT "TEMPO ATUAL E" ; 
TE 

440 PRINTB1 28 , " ENTRE NOVO VALOR 

DE TEMPO" i : INPUT ST 
450 IF ST-0 THEN RETURN 
460 IF ST<0ORST>255 THEN 440 
470 TE-ST : RETURN 

480 CLS:POKE282,255:C-VAL(OCS) : 

IF C>3 THEN C-3:OCS-"3" 

490 PRINT67 , "MODO ORGAO" 

500 PP,INTe64,"OITAvA:";C;TAB(10 

) ; "DURAÇÃO : " i LES ! INSTB (R IS , LEFT 

SILES, 1) ) ) : 

■>10 IF MID$(LES.2,1)-"." THEN P 
R 1!NT" . " ELSE PRINT 
520 PRINTe448,"C/B-OITAVA 
ESO/DR=DUHACAO ENTER-MENU 

CLEAR-APAGAH" ; 
530 GOSUB 280 

540 IF NN-MX THEN PBINTS416 , "MA 
XIMO NUMERO DE NOTAS COLOCADO!" 
; :FORD-lTO10Q0:NEXT:RETUBN 
550 IS=INKEYS:IF IS-"" THEN 550 
560 P-INSTR(NYS.IS) :IF P=0 THEN 
550 

570 IF P>36 THEN 600 

580 OCS-MIDS(STR5(C+INT((P-l)/l 

2) ) , 2) :I$-CS(P-12*INT{ (P-D/12) 

) 

590 GOTO 700 
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READ E DATA 



MENUS E OPÇÕES 



RECUPERAÇÃO DE PALAVRAS 



OUSO DE MACROS 



A INSTRUÇÃO CLEAR 



Apresentamos neste artigo algumas 
funções e rotinas relativamente 
simples, que podem facilitar bastante 
as tarefas que envolvem a manipulação 
! caracteres. Conheça-as. 



A maneira mais adequada de armaze- 
nar conjumos de dados numéricos ou al- 
fanuméricos dentro de um programa em 
BASIC consiste em colocá-los em linhas 
DATA, e lê-los com comandos READ. 

Porém, quando o número de dados 
é pequeno, não compensa introduzi-los 
em linhas DATA e acrescentar ao pro- 
grama comandos destinados a lê-los e 
carregá-los em variáveis indexadas. É 
muito mais conveniente colocar os da- 
dos dentro de uma única variável siring, 
de tal forma que possamos recuperá-los 
ou consultá-los por meio de uma sub- 
rotina ou função. 

Esta é também a melhor solução pa- 
ra os usuários de computadores que não 
dispõem dos comandos READ e DA- 
TA, como os micros pessoais ZX-81. 



TRINTA DIAS TEM SETEMBRO... 



O programa que se segue exemplifi- 
ca bem o procedimento sugerido. Ele in- 
forma quantos dias tem um determina- 
do mês do ano: 



20 LET CS«"3129313O313031313031 
3031" 

40 PRINT "ENTRE 0 NUMERO DO MES 
45 INPUT M 

50 IF M<1 OR M>12 THEN GOTO 40 

60 PRINT "ESTE MES TEM 

70 PRINT CS(<M-1)*2+1 TO (M"l)" 

2+2) DIAS. " 

80 GOTO 4 0 



20 CS-"312931303130313130313031 
40 INPUT "ENTRE O NUMERO DO MES 



50 IF M<1 OR M>12 THEN GOTO 40 

60 PRINT "ESTE MES TEM "; 

70 PRINT MIDSfCS. (M-l)«2 + l,2) ; 

"DIAS. " 

80 GOTO 4 0 

Os números de dias referentes a ca- 
da mês são colocados na cadeia de ca- 
racteres CS. A função da linha 70 extrai 
o número de dias do mês M (especifica- 
do no programa de teste, pela entrada 
da linha 40) usando a expressão: 

posição inicial em MS = (M - 1)*2+ 1 
número de dígitos = 2 

Note que, se M = 1, a posição inicial 
em MS é I. Esta é uma fórmula geral, 
que pode ser usada para extrair subca- 
deias de comprimento fixo, concatena- 
das em uma única cadeia. 

Nos computadores que têm funções 
programáveis do tipo string, essa fórmu- 
la pode ser colocada dentro de uma fun- 
ção, e usada repetidas vezes, como nes- 
te programa: 



10 DEF FNTSU.L.SS)-MIDS(S$, (I- 
1) *L+1,L) 

20 LET MS~" JANFEVMARABRMAIJUNJU 

LAGOS ETOUTNOVDE Z " 

30 LET CS-"31293130313031313031 

3031" 

40 INPUT "ENTRE 0 NUMERO DO MES 
";M 

50 IF M<1 OR M>12 THEN GOTO 80 
60 PRINT FNTS (M , 3 , MS) [ " - " i FNT 
S(M, 2, CS) ;" DIAS." 
70 GOTO 40 

80 PRINT: PRINT "DATA INVALIDA": 
GOTO 40 



Para executar o programa no Spec- 
trum, substitua a linha 10: 



Na função FNTS, definida na linha 
10, o primeiro argumento é o índice; o 
segundo, o tamanho fixo das subcadeias 
e o terceiro, o nome da cadeia com os 
dados. Note que a mesma função é usa- 



da com duas cadeias de formatos dife- 
rentes, na linha 60 do programa. 

Em computadores que não aceitam 
funções com mais de um argumento, 
pode-se empregar uma sub-rotina, mais 
longa, mas igualmente útil: 

20 LET MS=" JANFEVMARABRMAIJUNJU 

LAGOSETOUTNOVDEZ" 

30 LET CS--31293130313031313031 

3031" 

40 INPUT "ENTRE O NUMERO DO MES 
" :M 

50 IF M<1 OR M>12 THEN GOTO 98 

55 LET I-M 

60 LET L-3 

65 LET XS-MS 

70 GOSUB 100 

75 PRINT S$I" TEM " | 

80 LET X$=C$ 

85 GOSUB 100 

90 PRINT SS;" DIAS." 

95 GOTO 40 

98 PRINT: PRINT "DATA INVALIDA" 

99 GOTO 40 

100 LET S$-MIDS(XS. <I-1)»L+1,L) 
110 RETURN 



Para rodar o programa nos micros 
Spectrum e ZX-81, substitua a linha 100 
do programa: 



Outra aplicação bastante interessan- 
te dos conceitos aqui discutidos consis- 
te na programação rápida de menus com 
entradas por extenso. As várias opções, 
colocadas em uma única variável string, 
são depois recuperadas pelo método já 
descrito: 

DHBliM 

10 LET FL3-"INSEREEDITARAPAGARL 
ISTAR" ■ 
20 PRINT "ENTRE UM COMANDO : "iF I 
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LS;" "i 

30 INPUT OPS 

40 FOR 1=1 TO 4 

50 LET DS-«ID$(FLS, (I-l)*6+l,6) 
60 IF DS-OP3 THEN GOTO 80 
65 NEXT I 

70 PRINT -CÓDIGO INVALIDO" 
75 GOTO 20 

80 PRINT "COMANDO ESCOLHIDO -> 
";DS 

90 GOTO 20 



Substitua a seguinte linha do progra- 
ma para micros da linha Sinclair: 



Para os micros que dispõem da ins- 
trução INSTR, que localiza subcadeias, 
e de funções programáveis, podemos fa- 
zer um programa mais compacto: 



El HM 



5 DEF FNC(0$,CS.N)-INT<(INSTR(0 
S.LEFTSCCS+STRINGStN," "),M))-1 
)/N)+l 

10 0S-"CR CH PD DB AT " 

20 PRINT "ENTRE O CÓDIGO DA TRA 

NSACAO " ; 

30 PRINT * (CÓDIGOS VALIDOS: ";0 
3;-)- 

40 LINE INPUT "CÓDIGO : " ;C$ 
50 I-FNC(0$,CS,3) 

60 IF 1-0 THEN PRINT CODIG 
O INVALIDO" :GOTO 30 
70 PRINT "CÓDIGO " ;1 
80 GOTO 20 

A função FNC$ retorna o numero da 
opção (posição sequencial na cadeia). 
Seus argumentos de entrada são: 

OS: cadeia que contém as opções; 
C$: subcadeia procurada em OS; 
N: tamanho fixo das subcadeias. 

É necessário colocar espaços em 
branco para separar os comandos arma- 
zenados em OS. Se isso não for feito, 
a função INSTR pode encontrar subca- 
deias superpostas, que não correspon- 
dem às opções possíveis. 



RECUPERAÇÃO DE PALAVRAS 



A recuperação de palavras, códigos 
ou números de uma lista, efetuada de 
acordo com o método que acabamos de 
explicar, requer que todos eles tenham 
o mesmo comprimento, de modo a per- 
mitir a aplicação de uma fórmula. 
I Isso nem sempre é desejável ou pos- 



sível. Suponhamos que, na programa- 
ção de um jogo de aventura, você peça 
ao jogador que entre a lista dos objetos 
que ele quer levar em uma incursão a um 
castelo mal -assombrado. Nesse caso, os 
comprimentos das palavras contidas na 
cadeia de entrada podem ser bastante di- 
ferentes entre si, o que exigiria a elabo- 
ração de um programa um pouco mais 
"inteligente". 

Se determinarmos, por exemplo, que 
o caractere de separação entre palavras 
é o espaço em branco, a seguinte rotina 
realizará o trabalho: 



80 REM SUBROTINA 

100 LET AS-"" 

110 IF CS$(1)-"" THEN RETURN 
120 IF CSSUJO" " THEN GOTO 13 
D 

125 LET CSS-CSS (2 TO) 

127 GOTO 100 

130 LET A5-AS+CSSÍ1Í 

135 LET CSS-CS$(2 TO) 

140 IF CS$<1)="" OR CSS(l)-" " 

THEN RETURN 
150 GOTO 130 



DD 
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B0 REM SUBROTINA 

100 AS-"" 

110 IF MIDS(CS$,1.1)="" THEN RE 
TURN 

120 IF MIDStCSS.1.1)-" " THEN C 

SS-MIDS(CS3,2) :GOTO 100 

130 AS=AS+MID$(CS$.1.1) :CSS=MID 

5(CSS.2) 

140 IF MIDS(CSÇ,1,1)-"" OR MIDS 
(CSS, 1,1)-" " THEN RETURN 
150 GOTO 130 

A cadeia de entrada é CSS. A cada 
chamada da rotina, AS retorna uma 
subcadeia contida entre dois espaços em 
branco, em CSS; extraindo-a, reduz o 
tamanho de CSS. 

Eis um programa que testa o funcio- 
namento dessa rotina: 



20 PRINT "ENTRE TRES COISAS QUE 
CARREGARA (SEPARADAS POR ESPA 
COS) :" 

30 INPUT CSS 
40 LET N-0 

50 PRINT"VOCE CARREGARA ! " 
55 GOSUB 100 

60 IF AS-"" THEN GOTO 80 
70 LET N-N+1:PRINT N.AS 

75 GOTO 60 

80 PRINT "E MAIS NADA..." 
90 STOP 



Para rodar nesses computadores, acres- 
cente a seguinte linha: 

10 CLEAR 1000 

A linha 100 inicializa a cadeia de saí- 
da, AS. A linha ! 10 começa um laço de 
repetição, testando se a cadeia de entra- 
da, CSS, é vazia — ou seja, se todas as 
palavras nela contidas já foram extraí- 
das. Em caso afirmativo, a sub-rotina 
retorna o controle ao programa que a 
chamou. A linha 120 verifica se o pri- 
meiro dos caracteres que restaram em 
CSS é um espaço em branco. Se for, ele 
é "podado" de CSS, e o programa re- 
torna para a linha 100, para executar um 
novo teste. Se o primeiro caractere não 
for um espaço em branco, a linha 130 
retira-o de CSS, levando-o para AS. Fi- 
nalmente, se um novo espaço em bran- 
co for encontrado (fim de subcadeia), 
ou se CSS tiver se esgotado, a linha 140 
retorna o controle ao seu programa 
principal. 



SUBSTITUIÇÃO DE SUBCADEIAS 



Uma das funções mais úteis de um 
programa de processamento de textos è 
a que permite substituir todas as ocor- 
rências de uma determinada palavra, ou 
sequência de caracteres, em um docu- 
mento. Essa função possibilita, entre 
outras coisas, o uso de macros para a 
redaçào rápida de textos muito repetiti- 
vos. Digamos que você esteja escreven- 
do um artigo sobre processamento de 
imagens, e que essa expressão ("proces- 
samento de imagens") será citada algu- 
mas dezenas de vezes, por extenso, ao 
longo do texto. Para poupar tempo e es- 
forço, sempre que for preciso digítá-la, 
você poderá colocar um símbolo qual- 
quer em seu lugar — por exemplo, dois 
caracteres que dificilmente aparecerão 
juntos em outras partes do texto: *P, $% 
etc. Depois, bastará acionar a função de 
busca e substituição, e o programa tro- 
cará o símbolo convencionado pela ex- 
pressão por extenso, sempre que o en- 
contrar. 

Programar essa operação em BASIC 
não chega a ser difícil, mas envolve al- 
gumas complicações, pois a sequência 
que irá substituir o símbolo no texto po- 
de ter um número de caracteres menor, 
igual ou maior. Além disso, a maioria 
dos microcomputadores não aceita va- 
riáveis string, com mais de 255 caracte- 
res. Assim, durante o processo de subs- 
tituição, é necessário fazer com que o 
programa verifique esse número, para 
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não ocorrer nenhum erro. Apresenta- 
mos, a seguir, uma sub-rotina de busca 
e substituição, que você poderá adicio- 
nar a seus programas: 




100 LET N-l 

110 1F LEN AS -LEN BS +LEN CS > 

255 THEN RETUBN 

120 FOB I-N TO LEN AS 

130 IF ASU TO I+LEN BS-D-BS T 

HEN GOTO 160 

140 NEXT I 

150 RETURN 

160 LET AS-ASÍTO 1-1 ) +CS+AS ( I+L 
EN BS TO) 

170 LET N-I+LEN CS 
180 GOTO 110 



100 N-l 

110 IF LEN(AS)-L£N(BS)+LEN{CS>> 

255 THEN RETURN 

120 FOR I-N TO LEN (AS) 

130 IF MIDS(AS,I.LEN(BS))-B$ TH 

EN GOTO 160 

140 NEXT I : RETURN 

160 AS-LEFTS(AS.I-1)+CS+MIDS(AS 

.I+LEN(BS)) 

170 N-I+LEN<CS) 

1B0 GOTO 110 

Os argumentos de entrada da sub- 
rotina são: 

AS - cadeia que terá substituições; 
BS - subcadeia em AS a substituir; 
CS • subcadeia que substituirá BS. 

Suponhamos que a célebre frase de 
Gertrude Stein: 

UMA ROSA E" UMA ROSA E' UMA 
ROSA 

deverá ser transformada em outra (não 
menos poética): 

UMA PEDRA E* UMA PEDRA E' 
UMA PEDRA 

Neste exemplo, então: 

AS = UMA ROSA E' UMA ROSA E' 

UMA ROSA 
BS = ROSA 
CS = PEDRA 

A rotina funciona da seguinte manei- 
ra: a linha 100 inicializa N em 1. Essa 
variável aponta o caractere de AS a par- 
tir do qual B$ será procurado. Na linha 
110, checamos se o comprimento total 
da cadeia substituída não excede 255. O 
laço que vai da linha 120 à 140 verifica 
se B$ está presente em AS, a partir do 
caractere N até o fim. Se estiver, a li- 



nha 160 efetua a substituição, concate- 
nando a primeira seção de AS, até a 
ocorrência de BS, mais CS e a parte res- 
tante de AS. N é então atualizado e 
ocorre nova busca por B$ (retorno à li- 
nha 110). 

Nos micros com função INSTR (ins- 
tring), o laço das linhas 120 a 140 pode 
ser substituído por uma só linha: 

120 I-INSTR(I,AS,BS> :IF 1-0 THE 
N RETURN 

Esta listagem testa a sub-rotina de 
substituição. Ela é auto-explícativa: 

SSíiQBlilM 

20 PRINT " ENTRE UMA FRASE 
25 INPUT AS 

30 PRINT " PALAVRA PARA SUBSTITU 
IR - : 

35 INPUT BS 

40 PRINT "POR ■ ; 

45 INPUT CS 

50 GOSUB 100 

60 PRINT AS 

70 GOTO 20 

QQ 

Para rodar o programa no TRS-80 e 
no TRS-Color, adicione esta linha: 

10 CLEAB 1000 

Se você quiser substituir todas as 
ocorrências de uma subcadeia, em um 
texto composto de várias linhas (arma- 
zenadas em DATA, por exemplo), uti- 
lize o próximo programa. Não se esque- 
ça de colocar uma última linha DATA 
"*" para assinalar o fim do texto: 

SUBIU EDTO 

10 INPUT "PALAVRA PARA SUBSTITU 
IB 

20 INPUT "POR "j 
30 READ AS 

40 IF AS"""" THEN GOTO 70 
50 GOSUB 70:PRINT AS 
60 GOTO 30 
70 STOP 



A INSTRUÇÃO CLEAR 



A programação de variáveis string 
apresenta algumas diferenças conforme 
o tipo de interpretador BASIC usado. 

Como vimos no artigo anterior des- 
ta série (página 1214), os interpretado- 
res se dividem em dois grandes grupos 



quanto às funções de tratamento de va- 
riáveis literais. No primeiro grupo, cha- 
mado Microsoft (nome da software 
house norte- americana responsável pe- 
lo desenvolvimento do BASIC padrão 
para os micros MSX, TK-2000, Apple 
II, TRS-80 e TRS-Color, entre outros), 
encontramos funções familiares como 
LEFTS, RIGHTS, MIDS, INSTR etc. 

No segundo grupo, denominado Sin- 
clair (destinado às máquinas compatí- 
veis com as linhas ZX-81 e Spectrum), 
a cadeia de caracteres é tratada como 
um conjunto dimensionado, e a partí- 
cula TO se encarrega da referência às 
subcadeias de um string. 

Os interpretadores do tipo Microsoft 
também diferem dos do tipo Sinclair 
quanto ao gerenciamento do espaço dis- 
ponível na memória RAM para variá- 
veis literais e numéricas. Ambos, porém, 
armazenam uma variável literal de for- 
ma semelhante (veja o artigo da página 
1101): uma cadeia pode ter entre 0 e 255 
caracteres, armazenados em um conjun- 
to contíguo de bytes. O primeiro byte de 
um string é usado para armazenar o seu 
comprimento, ou seja, o número de ca- 
racteres que possui. Essa informação é 
usada, por exemplo, pela função LEN, 
disponível nos dois tipos de interpreta- 
dor, que informa o comprimento da ca- 
deia. Se uma variável string for conca- 
tenada através de uma expressão como 
LET AS = AS + BS, o interpretador ma- 
nipula A$ e BS de modo a transferi-los 
para uma área livre da memória RAM, 
colocá-los um após o outro, eliminar o 
byte de comprimento do segundo string 
(B$) e atualizar o valor armazenado no 
byte de comprimento do primeiro string 
(AS). 

Como se pode concluir, as operações 
de concatenação são lentas, devendo ser 
evitadas quando possível. Além disso, 
exigem uma área livre de memória para 
a execução da cópia — os originais dos 
dois strings AS e BS continuam no mes- 
mo lugar, mas "desativados" pelo in- 
terpretador. Periodicamente, uma fun- 
ção chamada "coleta de lixo" (garbage 
colleclion, em inglês) recupera essas 
áreas para uso pelo programa. 

Quanto à reserva de espaço para 
strings, na RAM, os interpretadores tam- 
bém apresentam diferenças. Os do tipo 
Sinclair operam automaticamente ou 
por meio de uma declaração D1M, que 
deve ser usada para dimensionar strings. 
Os do tipo Microsoft nem sempre pre- 
cisam de uma declaração explícita para 
dimensionar o tamanho da área de 
strings. Nos micros das linhas TRS-80 
e TRS-Color, a instrução CLEAR ser- 
ve a esse propósito. No Apple e no 
MSX, ela não é necessária. 
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TROCA 

DE MENSAGENS 



Compartilhe informações profissionais 
e de lazer com outras pessoas 
através de seu micro. Basta ligá-lo por 
telefone a um dos vários serviços 
computadorizados de "quadro de avisos" 



No artigo Sua ligação com o mundo 
(página 561), examinamos como o dis- 
positivo especial chamado modem po- 
de conectar um micro a outros compu- 
tadores, utilizando a linha telefónica. 
Através dele, uma grande variedade de 
bancos de dados computadorizados fi- 
cará à disposição do usuário: cotações 
das Bolsas, noticiários, referências bi- 
bliográficas sobre assuntos técnicos etc. 
Existem hoje, em todo o mundo, mais 
de um milhão de pessoas que se benefi- 
ciam de redes de computadores. 

O acesso a esses sistemas, entretan- 
to, não é algo exatamente barato, prin- 
cipalmente quando é necessário pagar li- 
gações internacionais (DDI). Além dis- 
so, muitos usuários se ressentem da fal- 
ta de um contato mais pessoal entre 
quem fornece e quem recebe a informa- 
ção — o que talvez explique, por exem- 
plo, o sucesso e a popularidade do ra- 
dioamadorismo. Contudo, já existe um 
equivalente desse hobby dentro do cam- 
po das redes informatizadas de dados. 
Trata-se da versão "doméstica" dos 
grandes sistemas telemáticos (como 
CompuServe e Cirandào) denominada 
Quadro de avisos computadorizado (do 
inglês, bulletin board). 

Um Compuierized Bulletin Board 
Service (ou CBBS, como é mais conhe- 
cido entre os aficionados) é, em sua for- 
ma mais simples, o equivalente eletrõ- 
nico do quadro de avisos de um clube, 
onde todos podem afixar notícias, reca- 
dos etc. Para ter acesso a um sistema 
desse tipo, o usuário precisa — além de 
um telefone e de um micro — dos se- 
guintes elementos: um modem, um soft- 
ware específico para intercomunicação 
e o número do telefone de um CBBS. 
O custo do acesso propriamente dito (ler 
e/ou escrever no quadro de avisos), ge- 
ralmente muito baixo, varia segundo a 
finalidade do serviço (comercial ou não) 
e inclui a despesa normal com a ligação 
telefónica. 

Embora os CBBS existam há algum 
tempo (sobretudo nos EUA, onde fo- 
ram criados), em nosso país eles ainda 
são uma novidade. Apenas as cidades 
maiores, como São Paulo e Rio de Ja- 
neiro, dispõem desse serviço. Tudo in- 
dica, entretanto, que os CBBS se multi- 
I plicarão rapidamente e que a maioria 



dos proprietários de modems tomará 
contato com eles brevemente. 



CARREGAR E DESCARREGAR 



Os CBBS não são utilizados somen- 
te como sistemas de mensagens. Na rea- 
lidade, sua rápida expansão se deve, 
principalmente, ao fato de a maioria de- 
les dispor de um serviço especial que 
possibilita a transmissão de software de 
um computador para outro. No jargão 
dos seus aficionados, uploading signi- 
fica o ato de enviar um software para 
armazenamento no CBBS, enquanto 
downloading quer dizer retirar uma có- 
pia das informações disponíveis. É im- 
portante ressaltar aqui que o micro que 
manda e o que recebe a listagem do pro- 
grama não precisam ser compatíveis en- 
tre si. Essa é, portanto, uma oportuni- 
dade rara de transportar certos tipos de 
software por meios incomuns. 

O princípio dessa ideia consiste em 
converter os programas em textos AS- 
CII (padronizados para todos os micros, 
que abordamos, menos o ZX-81) para 
realizar a transmissão via modem. 

Outro requisito para o trabalho de 
copiar os programas disponíveis no 
CBBS é ter uma unidade de discos e um 
interpretador ou compilador da lingua- 
gem original do programa. Com eles, 
poderemos carregar arquivos em forma- 
to ASCII. Os sistemas operacionais das 
linhas TRS-80, TRS-Color e MSX ofe- 
recem essa facilidade sem requerer o em- 
prego de programas conversores espe- 
ciais. Em outros micros, o próprio soft- 
ware de transmissão pode incluir uma 
pequena rotina que transforma texto em 
programas e vice-versa. Além disso, al- 
guns CBBS são específicos para uma li- 
nha de micros (os da linha Apple e IBM 
PC são os mais comuns), e permitem a 
transferência direta de programas entre 
dois computadores compatíveis, sem o 
arquivo ASCII intermediário. 



COMO FUNCIONA UM CBBS 



O quadro de avisos geralmente é 
"hospedado" por um microcomputador 
ligado, por um ou mais modems, a um 



tronco telefónico. Para baratear os cus- 
tos operacionais, a maioria dos CBBS 
atende simultaneamente a um número 
limitado de usuários — normalmente 
entre 1 e 5. À primeira vista, isso pare- 
ce pouco, porém, como veremos adian- 
te, é uma impressão falsa já que o tem- 
po útil de conexão de cada usuário é ex- 
tremamente curto: o suficiente para co- 
piar (download) as notícias ou progra- 
mas de interesse para seu disco. 

O quadro de avisos central nada mais 
é que a memória do micro que o gerên- 
cia. Hoje, a maioria dos CBBS dispõe 
de discos rígidos de maior capacidade, 
mas pode-se operá-los só com dois acio- 
nadores de disquetes como memória au- 
xiliar. Nesse caso, entretanto, a veloci- 
dade e a capacidade do sistema são sig- 
nificativamente diminuídas. 

Muitos dos CBBS recentemente sur- 
gidos no Brasil constituem iniciativa de 
voluntários. Seguindo a tradição dos en- 
tusiastas da microinformática, eles são 
gratuitos (embora existam alguns, como 
o Sampa CBBS, em São Paulo, que se 
tornaram tão grandes que foi necessá- 
rio fixar uma pequena taxa). Um dos sé- 
rios problemas desse sistema é impedir 
que pessoas não autorizadas tenham 
acesso a ele. Usualmente, isso é feito 
atribuindo-se uma senha a cada mem- 
bro. Contudo, essa é uma questão difí- 
cil de ser solucionada, tanto que nem 
mesmo o Pentágono norte-americano 
vem obtendo sucesso no sentido de evi- 
tar que pessoas não autorizadas pene- 
trem em seus monstruosos "mainfra- 
mes". Na verdade, muitos CBBS rece- 
bem de braços abertos todos os intrusos. 



Evidentemente, a distância física entre 
o usuário e o CBBS não representa ne- 
nhum obstáculo, já que um computador 
pode perfeitamente se comunicar com 
outro, em qualquer parte do mundo, des- 
de que ambos tenham modems compa- 
tíveis. Utilizando o equipamento corre- 
to, você poderá se beneficiar de mais de 
1.500 serviços de troca de mensagens es- 
palhados pelos EUA, Canadá e Europa. 
Em razão de não existirem padrões co- 
muns de comunicação entre europeus e 
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norte-americanos, o usuário que desejar 
contatar CBBS dessas regiões deverá dis- 
por de modems diferences. 

O padrão adotado na Europa é o 
CCITT, sigla de uma agência da ONU 
denominada Comité Consuhatif Interna- 
tional Téléphonique et Télégraphique. 
Essa agência estabelece convenções inter- 
nacionais para telecomunicações que po- 
dem também ser seguidas internamente 



por um país-membro. Indiretamente, is- 
so acaba facilitando a comunicação en- 
tre todos os proprietários de computado- 
res. Cada país, porém, pode ter simulta- 
neamente outras convenções internas, de- 
terminadas e aprovadas por órgãos esta- 
tais, como o Contei (Conselho de Tele- 
comunicações), no Brasil. 

Nos EUA, o chamado padrão Hayes 
é o mais comum para CBBS privados 



(seu nome deriva da fábrica dos modems 
mais populares e baratos do país). O pa- 
drão Bell também é muito usado. 



VELOCIDADES DE TRANSMISSÃO 



As agências de normatização, nacio- 
nais e internacionais, deixam aos fabri- 
cantes de modems a criação de muitas 
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outras convenções. Os modems são clas- 
sificados em função de diversos parâme- 
tros operacionais e de desempenho co- 
mo, por exemplo, a velocidade de trans- 
missão. A grande maioria dos CBBS — 
os mais baratos — opera com modems 
de 300 bauds, isto é, eles recebem e 
transmitem dados à velocidade de 300 
bits por segundo. (O nome da unidade 
de medida baud é uma homenagem ao 
engenheiro francês Baudot, considera- 
do o inventor de um código para telex.) 
Isso equivale, aproximadamente, a um 
bit enviado a cada 3.3 milissegundos. Já 
os sistemas mais avançados de telecomu- 
nicações digitais seguem o padrão 
1200/75 baud: o computador central 
transmite dados à velocidade de 1200 
bauds e o usuário os envia a apenas 75 
bauds. Sistemas como o Cirandão, da 
Embratel, eo Videotexto utilizam essa 
convenção (seu objetivo é reduzir o tem- 
po de ocupação do computador central, 
devido ao custo elevado, e impor os gas- 
tos da interaçâo ao usuário). 

As taxas de transmissão normalmente 
são múltiplos de 300 (300, 600, 1200, 
2400 etc), duplicando progressivamen- 
te até atingir 9500 bauds, que é o máxi- 
mo em uso atualmente. 

Em muitos computadores, dependen- 
do dos padrões definidos pelo CCICT 
para interfaces seriais RS-232, as volta- 
gens de representação dos números bi- 
nários 0 e 1 são, respectivamente, + 12 
e - 12 V. Os micros que usam as volta- 
gens + 5 e 0 V necessitam de um con- 
versor, que geralmente é barato. 



Cada caractere de informação trans- 
mitido por um modem compõe-se, ba- 
sicamente, de um bil de início (start bil), 
dos bits de dados (data bits) de um bit 
de paridade (parity bit), usado em tes- 
tes de erros de transmissão, e de um bit 
de término (stop bit). Como vemos, 
existem mais bits do que os oito de um 
byte; assim, para saber quantos bytes 
(caracteres de (exto) são enviados por se- 
gundo, tomando como padrão uma ta- 
xa de 300 bauds, por exemplo, dividi- 
mos esse número por 11. 

Embora não haja uma sequência 
"natural" nem uma quantidade prees- 
tabelecida para os diferentes bits que 
formam o caractere de transmissão, é 
importante que tanto o emissor quanto 
o receptor reconheçam a convenção se- 
guida. Além disso, ambos devem ser ca- 
pazes de formatar, enviar ou receber os 
dados conforme a taxa padronizada. 

A velocidade adotada por um CBBS 
I será escolhida levando-se em conta a ne- 



cessidade de se reduzir os custos do ser- 
viço, até porque os Computerized Bul- 
letin Board Service não dispõem dos re- 
cursos de hardware das grandes empre- 
sas de telecomunicações. O fato de se- 
rem empregados modems mais baratos 
implica o uso de uma taxa menor de 
transmissão a fim de evitar erros causa- 
dos por interferências elétricas, normal- 
mente filtradas por equipamentos sofis- 
ticados. Com um modem barato ope- 
rando a altas taxas, qualquer pulso na 
rede poderia ser interpretado como um 
bit. Em velocidades pequenas, o pulso 
que define um bit é mais longo e, por- 
tanto, mais fácil de identificar. 

De qualquer modo, o ruído será sem- 
pre um problema difícil de se resolver. 
Com a entrada em serviço das redes di- 
gitais de comunicações baseadas em fi- 
bras ópticas, espera-se que os sinais se- 
jam mais "limpos" e rápidos. 



Denominamos fuli-dupiex ou half- 
duplex ao parâmetro que varia de mo- 
dem para modem e diz respeito à simul- 
taneidade das funções de transmissão e 
recepção. Full-duplex significa que um 
determinado modem é capaz de receber 
e transmitir informações ao mesmo tem- 
po; half-duplex indica que ele executa 
apenas uma função de cada vez. 

Evidentemente, um modem half-du- 
plex é mais barato e adequado a traba- 
lhos com micros domésticos, ou até a al- 
gumas aplicações profissionais mais 
simples. Como é preciso aguardar uma 
transmissão terminar antes de iniciar a 
recepção (ou vice-versa), os erros come- 
tidos na operação poderão trazer alguns 
inconvenientes. A possibilidade de se 
consumir um tempo excessivo pratica- 
mente desaconselha o uso deste equipa- 
mento para trabalhos profissionais. 

Os CBBS se tornaram viáveis graças 
à sofisticação do hardware e software de 
comunicações. O maior passo nesse sen- 
tido foi a introdução de modems ou re- 
cursos de autodiscagem (auto-diating, 
em inglês) e auto-resposta (auto-answe- 
ríng). A partir dessas inovações, as con- 
sultas ao computador hospedeiro do 
CBBS passaram a ser respondidas au- 
tomaticamente com uma linha conecta- 
da entre receptor e transmissor. 



SOFTWARE PARA COMUNICAÇÕES 



Além do computador, do modem e 
do telefone, faz-se necessário um soft- 
ware especial que transforme o micro 
em um terminal de dados. 



Classificamos o software de comuni- 
cações em: burros e inteligentes. O in- 
teligente — essencial para quem deseja 
operar um CBBS — permite descarre- 
gar o programa (além de texto de men- 
sagens) e armazená-lo automaticamen- 
te no disco. Já o software burro possi- 
bilita apenas a comunicação simples, 
sem qualquer forma de armazenamen- 
to ou listagem. Certos softwares inteli- 
gentes oferecem recursos extremamen- 
te úteis, entre eles o reconhecimento au- 
tomático — através do programa — do 
protocolo seguido pelo computador hos- 
pedeiro e a armazenagem e discagem au- 
tomática de vários números de CBBS. 

A função básica do programa é a de 
permitir que o micro transmita e receba 
sinais (caracteres) pelo modem conecta- 
do ao sistema, mantendo o sincronismo 
entre o teclado, o vídeo e a memória. O 
software orienta o computador por in- 
termédio de comandos relativos à for- 
ma com que os sinais serão transmitidos 
e recebidos. 

Muitas pessoas não conseguem en- 
tender como dois computadores aparen- 
temente incompatíveis podem se comu- 
nicar. E são essas mesmas pessoas que 
costumam criticar os fabricantes de mi- 
cros por constantemente ignorarem os 
padrões que facilitam a interligação en- 
tre equipamentos distintos. 

Por meio do CBBS, temos a falsa im- 
pressão de que um computador está 
identificando os comandos enviados por 
outro diferente (um Apple e um MSX, 
por exemplo). Na verdade, isso só acon- 
tece porque a maioria dos CBBS imple- 
menta seu software de acesso por meio 
de menus relativamente simples. 

Com eles, o usuário seleciona uma 
opção pressionando uma tecla ou digi- 
tando uma linha de comando. Do ou- 
tro lado, um programa especial "varre" 
o modem de recepção, de modo a cap- 
tar os sinais enviados e a interpretar cor- 
retamente o pedido. A partir daí, os co- 
mandos adequados passam a ser acio- 
nados pelo computador hospedeiro. 



EXPLORANDO OS CBBS 



O primeiro passo para explorar todos 
os recursos dos CBBS à sua disposição é 
adquirir um modem adequado. Confor- 
me abordamos, os CBBS normalmente 
adotam um tipo padrão de 300 bauds, 
com protocolo CCICT ou Hayes. Os sis- 
temas comerciais, como o Videotexto e 
o Cirandão, utilizam o padrão 1200/75. 
Assim, o ideal é que o usuário compre 
um modem que tenha uma chave de se- 
leção para cada modalidade. 

O segundo passo consiste em provi- 
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denciar um software de comunicação (se 
ele já não tiver sido fornecido juntamen- 
te com o modem). 

O terceiro passo é descobrir os núme- 
ros de telefone dos CBBS e seus deta- 
lhes técnicos de acesso. Esses dados po- 
dem ser encontrados em revistas espe- 
cializadas de microcomputaçâo. 

Superadas todas as questões, passa- 
remos à parte prática da operação. Co- 
necte o modem ã linha telefónica e ao 
microcomputador e execute o software 
de comunicação. Caso a versão utiliza- 
da disponha de autodiscagem, todo esse 
trabalho será feito automaticamente, 
uma vez especificado o CBBS que se de- 
seja acessar. Do contrário, bastará ligar 
o número telefónico do mesmo e aguar- 
dar o sinal de recepção (geralmente um 
som agudo de poucos segundos denomi- 
nado portadora). Recebido o aviso, pres- 
sione o botão que conecta o modem ã 
linha (se o equipamento for de conexão 
direta), ou coloque o bocal do telefone 
nas "orelhas" de acoplamento (se for 
um modem acústico). 

Para termos acesso a alguns CBBS, 
é necessário chamar o número deseja- 
do, deixar tocar uma vez, e, em segui- 
da, discar novamente esse número. Só 
então o procedimento já descrito pode- 
rá ser observado. 

Muitos CBBS funcionam de manei- 
ra semelhante. No início da operação, 
o usuário recebe uma mensagem que in- 
dica seu contato com o CBBS. Depois, 
deve enviar uma senha de entrada e/ou 
o número ou nome de identificação — 
principalmente se o uso do CBBS impli- 
ca pagamento através de assinatura 
mensal ou anual. Tais sistemas, entre- 
tanto, chegam a oferecer, por um tem- 
po limitado, algumas informações para 
convidados e "intrusos", isto é, pessoas 
ainda não registradas no serviço. 

Os CBBS gratuitos, dependendo do 
tipo, podem solicitar seu nome e cidade 
ou endereço e número telefónico, bem 
como algumas especificações do micro 
usado (modelo, tamanho da tela etc). 
Esses detalhes são importantes para que 
o computador hospedeiro saiba como 
operar durante a comunicação. 

Na fase seguinte, você receberá infor- 
mações do CBBS: horários de funcio- 
namento, limite de tempo para cada 
chamada etc. Tais dados interessam, so- 
bretudo, aos CBBS voluntários, já que 
algumas chamadas são feitas em horá- 
rios inconvenientes (desagradando o 
operador, que geralmente utiliza o tele- 
fone de sua própria casa para isso). 

Assim como o videotexto, a maioria 
dos CBBS é operada através de menus. 
A escolha de uma opção em um menu 
poderá levar a menus secundários e ter- 



ciários etc. ou à execução da opção. 
Muitos CBBS possuem uma seção que 
permite aos novos usuários registrar seus 
dados (endereço, nome, telefone e senha 
de acesso). Outras opções oferecidas po- 
dem incluir uma seção técnica, comuni- 
cações com o gerente etc. 

O elemento fundamental do CBBS 
está no quadro que contém avisos e no- 
tas para conhecimento geral. Isso, po- 
rém, não exclui a possibilidade de exis- 
tir também uma seção de mensagens 
pessoais: "caixas postais", com acesso 
limitado por senhas secretas. Esse siste- 
ma permite deixar informações reserva- 
das para outros usuários ou formar sub- 
quadros de avisos dentro do CBBS. 



TERMINOLOGIA 



Há vários lermos técnicos que, em- 
bora comuns no campo da comunicação 
entre computadores, são pouco conhe- 
cidos em outros ramos da informática. 
Devido a isso, às vezes, cria-se uma certa 
confusão sobre seu significado. 

A seguir, uma lista dos termos que 
normalmente são mal interpretados: 

Videotexto - Sistema especial de comu- 
nicação entre computadores, oferecido 
como um serviço público pelas compa- 
nhias telefónicas. Através de uma linha 
comum, o computador central envia ao 
usuário a informação (organizada em 
páginas ou telas). Esta é recebida por 
um terminal especial de videotexto ou 
um micro qualquer, que podem respon- 
der fazendo novas solicitações de dados. 
No Brasil, tem-se acesso aos sistemas de 
videotexto por meio de uma assinatura 
mensal junto à companhia telefónica de 
cada cidade. Na Europa, esse serviço, 
implantado em vários países, é denomi- 
nado Preslel. 

Teletexto - Sistema semelhante e mais 
barato que o videotexto. Aqui, en- 
tretanto, a informação é enviada apenas 
em um sentido (do computador central 
para o terminal), aproveitando o inter- 
valo disponível entre dois quadros exi- 
bidos pela TV. Este sistema não existe 
no Brasil. Exemplos no exterior são os 
CEEFAX e o ORACLE, utilizados na 
Inglaterra. Aparelhos de TV de algumas 
marcas já são fabricados com a interfa- 
ce embutida. 

Vídeotex - Termo geral que engloba o vi- 
deotexto, o teletexto e os CBBS. Criou-se 
uma certa confusão depois que alguns 
CBBS evoluíram e se transformaram em 
uma rede, apesar de conservarem o mes- 
mo nome. 



Rede - Em sua forma mais restrita, re- 
fere-se à ligação direta entre vários com- 
putadores com objetivos específicos 
(normalmente para fins comerciais ou 
de pesquisa, como a rede brasileira 
RENPAC). As redes dividem-se em dois 
tipos: a locai (LAN, ou Local Area Net- 
work), que, geralmente, envolve apenas 
a ligação direta entre micros e seus pe- 
riféricos ou a um computador central, 
e a telemática (WAN, ou Wide Area 
Network), que inclui ligações remotas, 
via rede telefónica, microondas ou sa- 
télites. Através da LAN, os usuários po- 
dem compartilhar recursos como discos 
e impressoras. A WAN, por sua vez, 
permite a intercomunicação e a conse- 
quente troca de mensagens e transações 
(como em uma rede de automação ban- 
cária, que liga várias agências aos com- 
putadores centrais). 

Uma rede pode ser privada ou públi- 
ca. Existem vários exemplos de redes pú- 
blicas, como o Cirandão, da Embratel, 
ou o CompuServe, nos EUA, com mais 
de 250.000 usuários. 

Nos últimos anos, o termo rede vem 
perdendo sua especificidade, passando 
a significar qualquer forma de interco- 
municação realizada entre computado- 
res. Por esse conceito, todos os serviços 
do tipo videotex também poderiam ser 
considerados uma rede. 

Telex e leletex - Serviços em fase de in- 
tegração a redes de computadores e que, 
por isso, ainda são confundidos. O te- 
lex é um sistema telefónico de comuni- 
cação de textos, de baixa velocidade (15 
bauds), gerenciado por uma central es- 
pecial computadorizada. Existem inter- 
faces que permitem dar a um micro a 
função de um terminal de telex (daí se- 
rem chamadas de microtelex). 

O teletex é uma evolução técnica do 
telex e, muito provavelmente, seu subs- 
tituto direto. Utiliza o mesmo sistema 
de comunicação, porém, a uma veloci- 
dade bem maior, de modo a facilitar o 
uso de micros como terminais. Ainda 
não foi implantado no Brasil. 

Correio elelrõnico - Serviço oferecido 
por diversos tipos de rede, videotexto ou 
CBBS. Consiste, basicamente, de "cai- 
xas postais" (espaço reservado no dis- 
co central a cada assinante), capazes de 
receber mensagens individuais ou circu- 
lares, enviadas por outros usuários. A 
comunicação é feita a nível privado, e 
protegida por senhas. Em alguns países, 
o sistema é prerrogativa do serviço es- 
tatal de correios. No Brasil, como em 
outras nações, esse monopólio já foi 
rompido (Cirandão, Mensagem, Video- 
texto). 
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Continue digitando nosso programa 
editor de melodias. Com as listagens 
fornecidas no próximo artigo da série, 
ele ficará completo e você poderá dar 
vazão a todo o seu talento musical. 



Apresentamos aqui a segunda parte 
de nosso editor musical. Carregue a pri- 
meira parte da fita cassete ou disco e di- 
gite, na sequência, a listagem dada abai- 
xo. Depois, grave as duas partes para 
juntá-las à que iremos publicar no pró- 
ximo e último artigo da série — onde vo- 
cê encontrará, também, instruções de- 
talhadas para uma eficiente utilização 
do programa. 

Como você terá oportunidade de ob- 
servar, à medida que for digitando, o 
programa é composto por várias sub-ro- 
tinas chamadas do menu principal. É 
possível ter uma ideia da função de ca- 
da uma delas lendo os itens do menu — 
que pode ser exibido na tela ainda que 
o programa esteja incompleto. 



2000 CLS 

2010 GOSUB 2500 

2140 PHINT "et;" Notas tecladas 

(■ ;naxnotea; "Max. ) " ' ' 
2160 INPUT "Entre Notas - <RET> 

para acabar" ;NS 
2175 IF LEN (NS) -0 THEN GOTO 1 
90 

2180 FOB l-l TO LEN (NS) : IF (N 

3(l)<"0" OB NS(l>>"9") AND (N$( 

i)0"j") THEN GOTO 2000 

2190 LET N-VAL (N3) 

2200 IF INT (N/1000) >11 AND INT 

(N/10001O-4 THEN GOTO 2000 
2210 IF ti<0 THEN GOTO 2280 
2220 LET M-INT (N/100): LET D-N 
-M"10G 

2230 LET 0 = M-INT (M/1Q)»10: IF 
0<1 OR 0>7 THEN GOTO 2000 
2240 LET M=INT (M/10) + (0- 1 ) *1 2- 



2600 PRINT "Duração DEVE ter 2 
dígitos" ' "ex. 3304-D», Colchei 
a 3a. oitava""ex. 6408-Ft. Min 
ima 4a. oitava" 
2630 HETURN 
3000 CLS 

3010 PRINT "Tocar musica" 
3020 PRINT : PRINT : PRINT 
3030 PRINT "Digite Tempo - (1- 

15) 

3040 INPUT 3 

3050 IF S<1 OR S>15 THEN GOTO 
3000 

3060 LET teapo-0 .02* (16-8) 

3070 FOR 1-1 TO ct 

30BO LET D-U2M-1): LET M-t(2* 

i) 

3090 IF n— 4 THEN GOTO 3120 

3100 SOUND D*tempo.M 

3110 GOTO 3130 

3120 PAUSE 50«D»tempo 

3130 NEXT 1 

3140 RETURN 

4000 CLS 

4010 PRINT "EDITOR MUSICAL" - "' 
"D - Mostrar todas as notas"''" 
E - Editar una nota"""I - Insa 
rir una nota"''*X - Apagar uma 
Retornar ao nenu 



4260 PRINT '"Qualquer tecla par 

a retornar " j 

4270 PAUSE 0 

4280 GOTO 4000 

4320 CLS 

4330 GOSUB 2500 



principal" 
4090 PRINT 



"Escolha i 



36 

2260 LET ct-ct+1: LET t(2*ct-l) 
=D: LET t (2*ct)=M 
2*270 GOTO 2000 

2280 LET M = -4: LET D=0- (N-MM00 
) 

2290 IF MO-4 THEN GOTO 2000 
2310 GOTO 2260 

2500 PRINT "Entre a Nota na for 
ma -Numero'?. <Oitava>, <Duracao 

2520 PRINT "C - 0 E - 4 G|- 

8"'"C*- 1 F - 5 A - 9"'*D 
- 2 Fl- 6 Al- 10"'"D|- 3 
0-7 B - 11" 

2560 PRINT '"PAUSA e -4"' ' "Seni 
colcheia-1 Mínima ■= 8"'"Col 
cheia -2 Semibreve=16" ' "Se 



650 P-P-36 

660 IF P-1ANDCÍ6THEN OC+1:OCS- 
MIDS(STRSÍC) , 2) 

670 IF P-2AND01THEN C-C-l:OCS- 
MIDS(STR3(C) .2) 

680 IF(P-30RP-6)AND LE>1 THEN L 
E=LE-1:LES-W1D3(H1S.LE.1)+" " 
690 IF(P-40RP-7)AND LE<7THEN LE 



4100 LET OS-INKEYS: IF OS-"" TH 
EN GOTO 41 OU 

4105 IF CODE (OSX97 THEN LET 
OS-CHRS (CODE (OS) +32) 
4110 IF 0$<>"d" AND 03<>"e" AND 
OSO"l" AND OS<>"r" AND QSO"x 
" THEN GOTO 4000 
4120 IF OS="r" THEN RETURN 
4130 IF 0$-"e" THEN GOTO 4300 
4134 IF OS="l" THEN GOTO 4700 
4136 IF OS="x" THEN GOTO 4800 
4140 CLS 

4150 FOR l-l TO ct 

4160 LET M=t(2*i): LET D«=t(2*i- 

1) 

4170 LET 0=INT ( (M+36) /l 2 ) +1 

4180 LET NMM+36)-(0-l)*12 

4190 PRINT i;" Nota- ";N;" Oit. 

- " ;0; " Dur . - " |B 

4195 POKE 23692,255 

4200 IF i-20*INT (i/20) THEN G 

OTO 4220 

4210 GOTO 4250 

4220 PHINT '"Qualquer tecla par 
a continuar " : 
42 30 PAUSE 0 
4240 PRINT 
4250 NEXT i 
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SEGUNDA PARTE 


DO PROGRAMA EDITOR 


■ 


GRAVAÇÃO E LEITURA 


■ 


DIGITAÇÃO DAS 


SUB-ROTINAS 



-LE+1:LES-MIDS(R1S,LE,1)+" * 
700 IF P-5 THEN IS="P" : PS-" " : GO 
TO 750 

710 IF P-60BP-7 THEN LES=LEFTS( 
LES.D+V " 

720 IF P-8 THEN RETURN 

730 IF P=9 AND NN>0 THEN NN-NN- 

1 

740 GOTO 510 

750 U$-"L":IF I$>-"a" AND ISC-" 
g" THEN PS-CHRS(ASC(IS)-32) ELS 
E IF I$O p p"THEN P$-IS+"í"ELSE 
PS-"":ttS-"R" 

760 PLS-"V15T"+STRS<TE)+"0"+OC$ 
+US+L2S (INSTR (RIS. LEFT3 (LES , 1) ) 

) 



780 PL$-PLS+PStPLAY PLS 

790 NN-NN+l:NS(NN)-IS+OCS+LES 

800 GOTO 5B0 

810 CLS:COLOR 4,15 

B20 LOCATE 3,2: PP T NT" ENTRADA MA 

NUAL DE NOTAS"; 

830 LOCATE 3 . 1B : PRINT" 'a' RETO 

RNAR-MENU PRINCIPAL" 

840 LOCATE 3 , 19 : PRINT"USE FORMA 

TO:alh. ( ' . 'opcional) 

650 GOSUB 360:LOOATE 3,21: PRINT 

"ENTRE STRTNG NOTA:"; 

860 IF NN*MX THEN LOCATE 1,23:P 

RINT-MAXIMO NUMERO DE NOTAS COL 

OCADO!":FOR S-1TO1000: NEXT ! RETU 

RN 




890 IF A3-"n"OR AS-"M" THEN RET 
URN 

900 IF LEN(AS)>40RLEN(AS)<3 THE 
N 970 

910 IF <INSTR(R33.LEFTS(AS,ln > 
-O THEN970 

920 IF LEFTS(AS.l)-"p" THEN A3- 
-p"+" "+MIDS(AS,3) :GOTO 940 
930 IF <INSTR{R2$,MIDS(AS,2.1>) 
)-0 THEN 970 

940 IF (INSTR(R13,MID3(AS.3.1)) 
)-0 THEN 970 

950 IF MIDS(A$,4.1)<>-." THEN A 
3-LEFTS(A3.3)+" " 
960 GOTO 990 

970 LOCATE 21,21: PRINT "ENTRADA 
ILEGAL!":CHR3(7) 
980 LOCATE 21,21:PRINT" 

" :GOTO 850 
990 NN-NN+1 :NS (NN) "AS 
1000 GOTO B50 
1010 IF NN-0 THEN RETURN 
1020 COLOR l,15:LOCATE 0 , 0 : PRIN 
T "MODO EDIÇÃO- 1/2/3/4 

1030 LOCATE 0,1:PRINT STRINGS(4 
0, 32) 

1040 LOCATE 0.2:PflrNT STRTNG$ (4 
0,32) 

1050 LOCATE 0.18:PRINT STRINGSI 
40,32) 

1060 LOCATE 0,3: PRINT STRINGS(4 
0.32) 

1070 LOCATE 2,20: PRINT" 1 : APAGAR 
NOTAS" : 

1080 LOCATE 2 , 21 : PRINT" 2 : INSERI 
R NOTAS" ; 

1090 LOCATE 2 , 22 : PRINT" 3 : ALTERA 
R NOTAS"; 

1100 LOCATE 2,23:PRINT"4:CONTIN 
UA" ; 

1110 AS-INKEYS:IF AS< " 1 "ORAS> " 4 
"THEN 1110 
1120 OP-VAL (AS) 

1130 ON OP COTO 1150.1250,1410, 
1140 

1140 RETURN 

1150 LOCATE 12,0: PRINT" 1 : APAGAR 
NOTAS" 

1160 LOCATE 0,2:INPUT"INICTA NA 

NOTA" ; ST 
1170 IF ST-0 THEN 1010 
1180 IF ST>NN THEN 1150 
1190 LOCATE 0,3:INPUT"OUANTAS A 
PAGA (ENTER"1 ) " ; ND 
1200 IF NDOO THEN ND" l 
1210 IF ST+ND-1>NN THEN ND=NN-S 
T+l 

1220 FOR K»1T0ND 

1230 FOR J-ST TO NN-1 : NS ( J) =NS ( 
|J+1) 'NEXT 

1240 NN 3 NN- 1 : NEXT K : I =SL-1 :GOTO | 
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1010 

1250 LOCATE 12.0:PfiINT"2:INSERI 
B NOTAS" 

1260 LOCATE 0.2: INPUT" INICIA IN 

SERÇAO APOS QUE NOTA"; ST 

1270 IF ST<0 THEN 1010 

1280 IF ST>NN THEN ST=NN 

1290 LOCATE 0.3;PRINT"TECLE'M'P 

ARA ENCERRAR: " ; 

1300 IF NN-MX THEN LOCATE 2.18: 
PRINT"MAXIMO NUMERO DE NOTAS CO 
LOCADAS !*: FOR D=1T0 2000:NEXT:I 
-SL-l:GOTO 1010 

1310 LINE INPUT NS.IF N3="M"OR 
NS="m"THEN I=SL-l:GOTO 1010 
1320 IF LEN(NS)<3 THEN LOCATE 2 
2.3: PRINT" ILEGAL" : GOTO 1290 
1330 IF INSTR (R3S. LEFTStNS, 1) )- 
OORINSTR (R2S . MIDS (NS . 2 . 1) ) -0ORI 
NSTR (RIS. MIDS (NS. 3. 1)1-0 THEN L 
O CATE 22,3: PRINT" ILEGAL" :GOTO 1 
290 NOTAS 

1340 IF MIDSÍNS, 4,1)=". "THEN N$ 
=LEFTS(NS,4)ELSE NS-LEFTS (NS . 3 1 

1350 IF ST=NN THEN 1380 

1360 FOR K=NN+1 TO ST+2 STEP -1 

1370 NS(K)-NSIK-l) :NEXT 

1380 NS(ST+1)=NS 

1390 ST-ST+1 :NN-NN+1 

1400 GOTO 1290 

1410 LOCATE 13,0:INPUT"3:ALTERA 
R NOTA" ; ST 

1420 IF ST-0 THEN 1010 
1430 IF ST>NN THEN ST-NN 
1440 LOCATE 11,2:PRINT NS(ST) 
1450 RT-255:LP=-2:I=ST:GQSUB 16 
20 

146(1 LOCATE 0 . 2 : PR INT"NOVO VALO 

R : " : : LINE INPUT NS 

1470 IF LEN(NS)<3 THEN 1460 

1480 IF INSTR(R3$,LEFTS(NS. 1) 1= 

OORINSTR (R2S , MIDS (NS .2.1)1 -0ORI 

NSTR (Rl$. MIDS (NS. 3, 1) 1 =0 THEN 1 

460 

1490 IF MIDS(NS. 4,1)=". "THEN NS 
«LEFTS (NS.4JELSE NS-LEFTS (NS . 3) 

1S00 NS(STJ =NS:GOSUB 1620 : FOR 
K= 1TO20 00 : NEXT : RT-0 : I=SL- 1 : LP-0 
:GGTO 1010 

1510 IF NN = 0 THEN RETURN ELSE C 
LS:COLORl,15:LOCATE 11.1:PRINT" 
L1STAR NOTAS" 

15Z0 C = l : SL-1 :EL=NN:PS="N" : RT=0 
1530 LOCATE 4,3: INPUT" LISTAR NA 

IMPRESSORA (S/N) " ; PS 
1540 IF PS="S* THEN C=2 
1550 LOCATE 4,5: INPUT" INICIO EM 

(ENTER- 1) " :SL 
1560 IF SL<=0 THEN SL-NN : EL = NN 
1570 LOCATE 4,6: INPUT" FTNAL EM 

(ENTER-FIM) " ; EL 
1580 IF EL-0 OR EL>NN THEN EL = N 
N 



D 



600 P-P-36 
14]0 610 IF P-1ANDC<3THEN C-C+l:OCS- 



MIDS(STRSÍC) .2) 

620 IF P = 2 ANDO 1 THEN C-C-l:OCS- 

MIDSÍSTRSÍC) .2) 

,630 IF (P-30RP-6JAND LE>1 THEN 
LE-LE-1:LES-MIDS(R1S,LE,1)+" " 
640 IF (P-40RP-71AND LE<5 THEN 
LE-LE+1:LES-MIDS(R1S.LE,1)+" * 
650 IF P-5 THEN IS-"P" : PS-" " : GO 
TO 700 

660 IF P-60RP-7 THEN LES-LEFTS ( 
LES.D+" 

670 IF P=8 THEN RETURN 

680 IF P-9 AND NN>0 THEN NN-NN- 

1 

690 GOTO 490 

700 IF IS>-"a" AND IS<-"<3" THEN 
PS-CHRS(ASC(IS)-32) ELSE IF IS< 
>"p" THEN PS-IS+"*"ELSE PS-"" 
710 PL$-"V31;T"+STR$(TE)+"L"+L2 
S (INSTR (RIS , LEFTS (LES.l) ) ) 
720 IF MIDSUES.2,1)-"." THEN P 
LS-PLS+" ■ " 

730 PLS-PL$+"0"+OCS+PS : PLAY PLS 
740 NN=NN+1:NS(NN)=IS+QCS+LES 
750 GOTO 530 
760 CLS 

770 PRINT64 . "ENTRADA MANUAL DE 
NNTAS" : PRINT633 . "ENTRE ' m ' PARA R 
ETOHNAR AO MENU" 

780 PRINT"USE FORMATO :' alh .'(' . 
' OPCIONAL) " 

790 GOSUB 280 : PRINT6416 , "ENTRE 
STRING NOTA:" 

800 IF NN-MX THEN PRINTS448 , "MA 

XIMO NUMERO DE NOTAS COLOCADO!" 

: FORD- 1T01 00 0 : NEXT: RETURN 

810 POKE 282.0 :PRINTf»44U:PRINTe 

462 . ; ; LINE INPUT AS 

820 IF AS-"" THEN 810 

830 IF AS="m"OR AS-"M"THEN RETU 

RN 

840 IF LEN(AS)>40H LEN(AS)<3 TH 
EN 910 

850 IF (INSTR(R3S.LEFTS(A$, 1) 1 ) 
=0 THEN 910 

860 IF LEFTS(AS.1)-"P" THEN AS= 
"p"+" "+MIDS(AS,31 :GOTO 880 
870 IF (INSTR(R2S.MIDS(AS.2,1>) 
1-0 THEN 910 

880 IF (INSTR(R1S.MIDS(AS.3.1)1 
1-0 THEN 910 

890 IF MIDS<A$,4,1)<>"." THEN A 
S-LEFTS(AS.3)+" " 
900 GOTO 920 

910 PRINTe448,LEFT3(AS,4) ;" -EN 
TRADA ILEGAL ! " : SOUND l,5:GOTO 8 
10 

920 NN-NN+1:NS(NN)-AS 

930 GOTO 790 

940 IF NN-0 THEN RETURN ELSE PO 
KE 282.0 

950 PRINT6448 , " 1 : APAGAR NOTA ". 

"2:INSERIR NOTAS " , " 3 : ALTERAR NO 

TA ","4: CONTINUAR"; 

960 AS-INKEYS:IF AS<"l"OR AS>"4 

"THEN 960 

970 OP-UAL(AS) 

980 ON OP GOTO 1000.1100,1260,9 
90 

990 RETURN 

1000 IF NN-0 THEN 940 ELSE CLS : 
INPUT"INICIA NA NOTA":ST 
1010 IF ST-0 THEN 940 



1020 IF ST>NN THEN 1000 

1030 PRINT664 . "QUANTAS APAGA (EN 

TER-1) " ; : INPUT ND 

1040 IF NDOO THEN ND=1 

1050 IF ST+ND-1>NN THEN ND-NN-S 

T+l 

1060 FOR 1-1 TO ND 

1070 FOR J=ST TO NN-1 : NS ( J) -NS ( 

J+l) : NEXT 

1080 NN-NN-1 

1090 NEXT I : RETURN 

1100 CLS : PRINT67 , "MODO INSERÇÃO 

DE NOTAS" 
1110 PRINT664 , "INICIA INSERÇÃO 
APOS QUE NOTA": INPUT ST 
1120 IF ST<0 THEN 940 
1130 IF ST>NN THEN ST-NN 
1140 PRINTS64 , "TECLE ' m ' QUANDO V 
OCE TERMINAR": PRINT 
1150 IF NN-MX THEN PRINT"MAXIMO 

NUMERO DE NOTAS COLOCADO !": FOR 
D-l TO 1000:NEXT:RETURN 
1160 INPUT NS:IF NS-"M"OR NS-"m 
"THEN RETURN 

1170 IF LEN(NS)<3 THEN PRINT"IL 
EGAL" :GOTO 1160 

1180 IF INSTR<R3S.LEFTS(NS.1>>- 
OORINSTR (R2S , MIDS (NS ,2,1)1 -0ORI 
NSTR (RIS . MIDS (NS , 3 , 1 1 ) -OTHEN PR 
INT" ILEGAL" : GOTO 1160 
1190 IF MIDSÍNS. 4,1)-". "THEN NS 
-LEFTSÍNS.4) ELSE NS=LEFTS (NS . 3 
)+" " 

1200 IF ST=NN THEN 1230 

1210 FOR I-NN+1 TO ST+2 STEP-1 

1220 NS{I)-NS(I-1) : NEXT 

1230 NS(ST+1)-NS 

1240 ST-ST+1 :NN-NN+1 

1250 GOTO 1150 

1260 CLS : PRINT "MUDAR QUE NOTA"; 
: INPUT ST 

1270 IF ST=0 THEN 940 

1280 IF ST>NN THEN ST-NN 

1290 PRINT : PRINT" VALOR ATUAL : " : 

AS-NS(ST) :RT-255:GOSUB 350 

1300 PRINT NS(ST) 

1310 PRINT0320 : PRINTS320 , "" ; : IN 

PUT"N0V0 VALOR:";NS 

1320 IF LEN(NS)<3 THEN 1310 

1330 IF INSTR(R3S.LEFTS{N$,1))= 

OORINSTR (R2S -MIDSÍNS- 2. 1) )=0OR 

INSTR (RIS . MIDS (NS i 3. 1) 1 -OTHEN 1 

310 



1350 N$(ST)-NS:FORK=lTO2000:NEX 
T:GOTO940 

1360 IF NN-OTHEN RETURN ELSE CL 
8:PH1NTÇ7, "OfUAO LISTAM NOTAiJ" . 
C-0 

1370 IF(PEEK(65314;AND1)-1 THEN 
1400 

1380 POKE 282. 255 : PRlNTf*64 . ; : 
INPUT"LISTAR NA IMPO t JSORA (S/N) 



;PS 

1390 IF PS="S" THEN C= 



:POKE 1 



50,1 

1400 PRINTêl 28 , "INICIO NA NOTA 
; : INPUT ST 

1410 IF ST<=0 THEN ST-NN 
1420 IF ST>NN THEN :JT=NN 
1430 CLS:LP=0 
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PROGRAMAÇÃO BASIC 
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Aprenda a explorar todas as 
possibilidades do teclado do TRS-80 
e a utilizá-lo de forma criativa. 
Comandos PEEK e POKE garantirão 
o sucesso de suas experiências. 



Nos artigos anleriores desta série, 
examinamos os recursos "secretos" do 
micro TRS-80 para a saída de vídeo. En- 
tre outras coisas, vimos como gerar 
pseudo-sprites e como levar cópias de te- 
las para a memória e vice-versa. 

O teclado do TRS-80 também tem vá- 
rias características interessantes, que não 
estão bem documentadas nos manuais de 
operação ou mesmo nos livros mais ele- 
mentares sobre o assunto. Neste artigo, 
você aprenderá alguns truques que po- 
dem ser executados com facilidade, co- 
mo o bloqueio da tecla <BREAK>, a 
implementação de um cursor piscante, a 
programação da repetição automática de 
teclas e a entrada dtreta de símbolos grá- 
ficos pelo teclado. 

Esses recursos são possíveis porque 
a memória do TRS-80 contém o mapa 
do teclado, assim como o do vídeo. O 
teclado desse micro é do tipo matricial, 
ou seja, ao se pressionar uma tecla, ela 
aciona o cruzamento entre dois condu- 
tores: um colocado nas colunas, e ou- 
tro, nas linhas. Isso gera um código bi- 
nário, que é recuperado pelo software 
processador do teclado. Este efetua uma 
varredura a intervalos de alguns milis- 
segundos, passando por todos os fios 
horizontais e verticais. O número obti- 
do é depositado em uma locação espe- 
cífica da memória de teclado. 

Diversas outras locações da memória 
RAM reservada para a área de irabalho 
do interpretador BASIC são dedicadas 
ao teclado. Através de comandos PEEK 
e POKE, é possível verificar, e mesmo 
alterar, seu conteúdo, produzindo curio- 
sos e variados efeitos. 



BLOQUEIO OA TECLA BREAK > 



Como você já sabe, a tecla 
< BREAK > do TRS-80 interrompe um 
programa BASIC em execução, indepen- 
dentemente do que ele estiver fazendo, 
e retorna o controle ao interpretador. 

A facilidade de interromper o progra- 
ma pode ser um inconveniente quando 
se deseja (orná-lo imune a erros de ope- 
ração ou se quer impedir que alguém o 
liste. Imagine a seguinte situação: vo- 
cê colocou um programa educativo nas 
I mãos de uma criança; ao aparecer a 



mensagem "PRESSIONE QUALQUER 
TECLA PARA CONTINUAR", ela 
aciona justamente a tecla < BREAK > ! 
A culpa, com certeza, é sua... 

Para evitar ocorrências desse tipo, 
convém bloquear o efeito da tecla 
< BREAK > através de comandos POKE 
nas locações de memória 16396 e 16397: 

POKE 16396, 175:P0KE 16397,201 

Para ativar novamente a tecla, basta 
utilizar o comando: 

POKE 16396,201 

Esse truque funciona em qualquer 
micro compatível com os modelos I e III 
da linha TRS-80, e pode ser empregado 
tanto como comando direto quanto den- 
tro de um programa. 

Há um problema, entretanto. Se vo- 
cê estiver usando o BASIC de disco, e 
tentar acessá-lo durante a desativação da 
tecla < BREAK > , o computador pode- 
rá "congelar". Para evitar que isso 
aconteça, aconselha-se recorrer a outra 
locação de memória para dar o coman- 
do POKE. Não se esqueça, porém, de 
que esta varia de acordo com o sistema 
operacional de disco (DOS) empregado: 

DOS DESATIVA AT1VA 

TRSDOS 2.3 POKE 23886,0 POKE 23886.1 

NEWDOS 2.1 POKE 23461,0 POKE 23461,1 

NEWDOS 80 POKE 19408,0 POKE 19408,1 



A maioria dos micros nacionais da li- 
nha TRS-80 utiliza sistemas compatíveis 
com o TRSDOS (pronuncia-se trisdós). 
Se seu micro usa a versão CP/M, você 
não poderá desativar a tecla < BREAK > 
por meio da operação sugerida. 

Um aviso final: se seu programa ain- 
da não foi gravado, tenha muito cuida- 
do ao usar esse truque, assegurando que 
a tecla < BREAK > possa ser reativa- 
da. Caso contrário, você poderá ficar na 
desagradável situação de nunca mais po- 
der listar seu próprio programa! 



Os modelos da linha TRS-80 I e III 
(como o Prológica CP-500) não têm a 
capacidade de repetição automática das 
teclas — ou seja, as teclas não se auto- 



repetem durante o período em que es- 
tão sendo pressionadas. 

Este é um recurso útil para uma sé- 
rie de aplicações: por exemplo, jogos em 
que o movimento de um cursor ou o dis- 
paro de uma metralhadora são contro- 
lados por teclas auto-repetitivas. 

Há uma maneira, porém, de saber se 
uma tecla continua sendo pressionada 
ou não, o que nos permite implementar 
uma rotina de repetição. Se o valor da- 
do por um PEEK(14591> for igual a 0, 
nenhuma tecla está sendo pressionada; 
se esse valor for maior que 0, uma tecla 
está sendo pressionada. 

Para entender como funcionaria um 
laço simples de repetição, digite: 
10 PHINT PEEKU4591) ; :GOTO 10 

Ao ser executado, o programa impri- 
me uma sequência de zeros na tela. 
Quando uma tecla é pressionada, esse 
valor muda. Note que cada tecla ou 
combinação de teclas (pressionadas jun- 
to) tem um valor diferente, que não cor- 
responde ao valor ASCII da tecla. 

Para aplicar esse expediente, identi- 
fique os números das teclas que deseja 
usar para direcionar a lógica de deter- 
minado programa e introduza vários IF 
dentro do mesmo. Se você quiser utili- 
zar os valores ASCII gerados por cada 
tecla pressionada, precisará de um IF 
para testar se a tecla continua pressio- 
nada, e outro para localizar essa tecla. 

Como exemplo, execute este progra- 
ma. Ele desloca um cursor pela tela, sob 
o controle de quatro teclas (flechas). 

10 CLS:X-64:Y>24 
15 SETtX.Y) 

20 IF Tl>0 AND PEEK { 14591 } >0 
THEN 50 

25 TS=INKEYS:IF TS="" THEN 25 
30 Tt=A3C(TS) 

50 IF Tl = 8 THEN X-X-l ;GOT0 15 
60 IF Tl=9 THEN X-X+l :GOT0 15 
70 IF TI-91 THEN Y-Y-l:GOTO 15 
60 IF Tt-10 THEN Y-Y+l:GOTO 15 
90 GOTO 25 

A linha 10 do programa define a po- 
sição inicial do cursor (um pequeno pon^ 
to na tela), "aceso" pelo comando SET. 
com as coordenadas X e Y na tela. 

A linha 20 verifica se alguma tecla es- 
tá sendo pressionada — ou seja, se o va- 
lor T% (código ASCII da tecla, deter- 
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TRUQUES COM 0 TECLADO 




DAS TECLAS 


■ 


COMO DESATIVAR 


■ 


CURSOR DE TEXTO 




A TECLA <BREAK> 




PISCANTE 
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ROTINA PARA A 
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ENTRADA DIRETA 




REPETIÇÃO AUTOMÁTICA 




DE SÍMBOLOS GRÁFICOS 




VARREDURA DO TECLADO 

A função INKEYS é bastante útil pa- 
ra se detectar, dentro de um programa, 
se alguma tecla foi pressionada. Mas, 
âs vezes, ela não é suficiente para sa- 
tisfazer certas necessidades do progra- 
mador — como indicar se duas ou mais 
teclas foram pressionadas simultanea- 
mente, ou detectar o acionamento de 
uma tecla que não gera um código atra- 
vés do INKEYS, como <SHIFT>. 

Conhecendo a organização do tecla- 
do, porém, esse tipo de verificação não 
oferece dificuldade. O teclado é disposto 
na forma de uma matriz. Quando uma 
tecla é pressionada, um determinado va- 
lor numérico entre 1 e 128 (potências 
de 2) é depositado na memória RAM 
correspondente a uma fileira (um dos se- 
guintes endereços: 14337. 14338, 
14340, 14344, 14352. 14368, 14400 
ou 144641. A correspondência entrete- 
cia e endereço nos permite identificar a 
tecla ou teclas pressionadas. Por exem- 
plo, a tecla < SHIFT >, quando pressio- 
nada, gera o código 1 na locação de me- 
mória 14464. 

Quando duas ou mais teclas são 
pressionadas simultaneamente, geran- 
do códigos no mesmo endereço, o nú- 
mero resultante é a soma dos códigos 
individuais. Assim, se J, K e L forem 
pressionadas, o número 4 + 8 + 1 6 = 
28 será colocado no endereço 1 4338. 

Para montar sua própria tabela de 
correspondência entre teclas e valores, 
faça um programa de uma linha, usan- 
do um PEEK para examinar o conteú- 
do de cada uma das memórias dentro 
de um laço infinito. 



minado na linha 30) e o conteúdo da me- 
mória 14591 são, simultaneamente, 
maiores que 0. Em caso afirmativo, o 
programa pula para a linha 50, que ini- 
cia vários testes para identificar qual das 
teclas com flecha foi pressionada. As 
coordenadas X e Y são alteradas para 
mais ou para menos, e um outro ponto 
é aceso na tela na nova posição. A li- 
nha 20 testa mais uma vez se essa tecla 
continua pressionada, executa um des- 
locamento e assim por diante. 

Se nenhuma tecla estiver sendo pres- 
sionada, o programa vai para a linha 25, 
que cria um laço de varredura do tecla- 
do com a função INKEYS. Essa linha 
se repete até que se pressione aJguma te- 
cla. Então, o valor ASCII da tecla é 
identificado e armazenado em T%, pe- 
la linha 30. A partir daí, o micro se com- 
porta como se tivesse a capacidade de 
repetição automática das teclas. 

Observe que, se nenhuma das quatro 
teclas com flecha tiver sido pressiona- 
da, o programa retorna ao laço de es- 
pera situado na linha 25. 

Ao executar esse programa, tenha o 
cuidado de não ultrapassar os Omites da 
tela com o cursor, para que não ocorra 
um erro na linha 15. Se quiser melho- 
rar o programa, introduza testes para as 
alterações de X e Y, de modo a impedir 
que eles ultrapassem os valores mínimo 
e máximo da tela. 



0 CURSOR PISCANTE 



Normalmente, o cursor de texto do 
TRS-80 é um traço de sublinhar, não 
piscante. Não é fácil localizá-lo com a 
tela cheia de texto. A dificuldade au- 
menta em aplicações de deslocamento 
bidimensional do cursor, sobretudo se 
ele se sobrepõe a um trecho gráfico. 

Um bom recurso consiste em fazer o 
cursor piscar repetidamente, distinguín- 
do-se dos caracteres de fundo. No 
TRS-80, porém, só se obtém esse efeito 
por meio de software, já que nenhum de 
seus comandos permite alterar a função 
do cursor. Portanto, a rotina precisa ser 
suficientemente rápida para não "segu- 
rar" o usuário que está digitando o tex- 
to a uma certa velocidade. 

Um problema adicional é fazer o cur- 



sor piscar quando está sobre um carac- 
tere já impresso. Nesse caso, devemos 
copiar o valor do caractere em uma va- 
riável, antes de piscar, e recolocá-lo na 
tela. Os comandos PEEK e POKE des- 
ta rotina encarregam-se disso: 

100 T$ = INKEYS: IF TSO" THEN 
120 

110 POKE XI.95:POKE XÍ,CÍ:GOT0 
100 

120 RETURN 

Antes de chamar a rotina, coloque a 
posição atual do cursor em X%. Este é 
um valor entre 15360 e 16383, números 
que correspondem às locações da me- 
mória de vídeo na RAM. Para obtê-lo, 
examina-se o conteúdo das memórias 
16416 e 1641 7. O valor ASCII do carac- 
tere nessa posição deve ser colocado em 
C%. Assim, a rotina poderá fazer o cur- 
sor piscar, após verificar o código arma- 
zenado na locação X% de vídeo: 

10 Xt-PEEK<16417>*256+PEEK 
(16416) 

20 Ct-PEEK(XI) 

30 COSUB 10Q:PRINT TS ; : GOTO 10 

A linha 30 chama a rotina e imprime 
o caractere que se pressionou, retorna- 
do pela sub-rotina em TS. A volta à li- 
nha 10 tem o efeito de deslocar o cur- 
sor uma posição à direita no vídeo, rei- 
niciando a rotina de piscar o cursor. 

Essa rotina permite ainda que se mo- 
difique a forma do cursor. Note que 
usamos o código ASCII 95, que corres- 
ponde ao traço de sublinhar. Para co- 
locar na tela um retângulo sólido, subs- 
titua 95 por 191, na linha 110. 



GRÁFICOS PELO TECLADO 



130 IF ASC[Tl)<32 THEN TS-CHRS ( 



TI+128) 

140 RETURN 




Como vimos em artigo anterior (pági- 
na 1259), o emprego da rotina INKEYS 
no lugar do comando INPUT possibili- 
ta a entrada dos caracteres gráficos do 
TRS-80 diretamente pelo teclado. Assim, 
se usarmos uma combinação das teclas 
<SHIFT> e <LINEFEED> (tecla pa- 
ra baixo), teremos o mesmo efeito da te- 
cla <CONTROL> de outros computa- 
dores, e poderemos gerar códigos ASCII 
diferentes, pelo teclado. Se pressionar- 
mos, por exemplo, a tecla A, juntamente 



com as anteriores, geramos o código AS- 
CII 1. Detectando esse código na rotina 
INKEYS, bastará somá-lo ao valor 128 
para obtermos em TS (variável de saída) 
o gráfico correspondente, que também 
será impresso na tela. 

Substitua a linha 130 por: 
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Neste artigo, examinaremos novas 
técnicas de compressão de textos. 
Com as várias alternativas dadas, não 
será dificil reduzir o espaço 
de memória ocupado por seu jogo. 



Como vimos no artigo da página 
1332, podemos conseguir um alto índi- 
ce de compressão de textos através da 
utilização de um conjunto reduzido de 
caracteres (só letras maiúsculas e alguns 
sinais de pontuação) e da compactação 
dos códigos resultantes em um número 
menor de bits. Examinamos também o 
uso da estatística de ocorrência de letras 
e outros símbolos em um texto, para ob- 
ter um código progressivo de quatro 
bits. O procedimento garante uma gran- 
de eficiência de compressão (cerca de 
45%), envolvendo um programa relati- 
vamente simples em BASIC, para codi- 
ficação e decodificação. 

Neste artigo, apresentaremos outros 
métodos de compressão de textos. Um 
deles, conhecido como método chinês, 
mostra-se particularmente útil para a 
compressão de textos muito longos e 
com repetições frequentes de um con- 
junto reduzido de palavras — o que, cer- 
tamente, não é próprio de programas de 
aventuras. De qualquer maneira, esse 
método completa o leque de alternati- 
vas de compressão de textos e, dada a 
sua eficácia, poderá ser aproveitado em 
outros tipos de programa. 




O algoritmo estatístico de compres- 
são de textos, que estudamos no artigo 
anterior, toma como base a diferença de 
frequência das letras em um texto para 
construir um sistema de códigos em que 
os caracteres de maior uso têm um nú- 
mero menor de bits. Para facilitar a pro- 
gramação em BASIC desse algoritmo, 
limitamos a quatro o número mínimo de 
bits por caractere. Poderíamos, entre- 
tanto, utilizar um número ainda menor 
de bits para as letras mais frequentes: 
dois ou três, por exemplo. Com o esque- 
ma adoiado anteriormente — em que se 
usa um nibble 0 para assinalar a mudan- 
ça de "dicionários" de códigos — , os 
ganhos da compactação seriam míni- 
mos, pois, com a mudança constante de 
dicionários, q número de zeros acaba- 
ria se tornando muito elevado. Portan- 
to, para a codificação com um número 
menor de bits, aquele esquema não ser- 
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ESQUEMA DUPLO DE CODIFICAÇÃO 



É possível empregar, porém, um mé- 
todo mais elaborado, que adota um es- 
quema duplo de codificação: 

• quanto mais frequente a letra no 
texto a ser codificado, menor é o núme- 
ro de bits usado para seu código. Por 
exemplo: o espaço (caractere mais fre- 
quente em qualquer texto) tem um có- 
digo binário de três bits (011); a letra E, 
de cinco bits (101 11). Já a letra P, não 
tão frequente, tem um código de seis bits 
(110110), e a letra Z, de oito bits 
(11111100); 

- certos pares de letras muito comuns 
em um texto também recebem um códi- 
go binário reduzido. O esquema de co- 
dificação é o mesmo das letras, mas o 
efeito de compressão é bem mais pode- 
roso, já que estamos substituindo dois 
bytes (dezesseis bits) por um número 
muito menor de bits no novo código. 



CÁLCULO DA FREQUÊNCIA DE PARES 



Apresentamos, a seguir, um progra- 
ma destinado a computar e exibir os pa- 
res de letras mais frequentes em um tex- 
to. Ele usa a mesma técnica do progra- 
ma que determina a frequência simples 
dos caracteres, fornecido no artigo an- 
terior. 

Em primeiro lugar, o programa ini- 
cializa os conjuntos L — que conterá a 
frequência de pares que começa com ca- 
da caractere ASCII, de 32 a 90 — e F 
— que conterá em cada caseia F(1,J) a 
frequência acumulada pelo par de carac- 
teres com códigos I e J. 

Em todas as versões, exceto a do 
Spectrum, o sinal % depois de L e F ser- 
ve para definir como inteiro o tipo do 
conjunto. Isso economiza memória e au- 
menta a velocidade de processamento. 
As linhas 20 a 40 não são necessárias nos 
computadores que inidalizam em 0 to- 
das as variáveis numéricas, quando 
RUN é digitado. 

10 DIM LI (60) , Fl (60 ,60) , Cl (60) 



20 NT-0:NP-0 

30 FOR 1-1 TO 60:Lt(I)=0 

35 FOH J=l TO 60 

40 FI(I,J)-0:NEXT JrNEXT I 

Coloque um comando CLEAR 3000 
na linha 10, antes da declaração DIM, 
para o TRS-80 e TRS-Color. 



10 DIM L(60) ,f (60,60) ,c(60) 

20 LET nt-0:LET np-0 

30 FOH 1=1 TO 60:LET L(i)-0 

35 FOR j-1 TO 60 

40 LET f [i, j)=0:NEXT j :NEXT i 

A parte seguinte do programa prin- 
cipal lê as linhas DATA que contêm o 
texto a ser codificado. Para fins de tes- 
te, você poderá recorrer ao texto de ins- 
truções de uma aventura, dado no arti- 
go anterior, acrescentando-o ao final 
deste programa. 



60 PRINT "ANALISANDO..." 

70 READ LS:IF LS-'*" THEN 100 

75 PHINT L5:LT=LEN(LS) 

80 NT-NT+LT 

85 IF INT(LT/2)OI.T/2 THEN LS- 
LS+* " 

90 GOSUB 520:GOTO 70 



:oo 

75 PRINT LS : LET Lt"LEN LS 
80 LET nt-nt+I.t 

85 IF INT Lt/2 <>Lt/2 THEN LET 
LS-LS+" " 

90 GOSUB 52D:C0T0 70 

Um asterisco na linha de lexto (LS) 
indica o fim do mesmo. Caso o texto 
não tenha terminado, calcula-se o com- 
primento LT de L$. Se LT for ímpar, 
é preciso acrescentar um espaço em 
branco ao final de LS, para que a roti- 
na de contagem efetue corretamente o 
cálculo e a extraçào de pares de carac- 
teres. Isso é feito pela linha 85, que ve- 
rifica se o resto da divisão de LT por 2 I 
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é maior que O (se for, é impar). Final- 
mente, a linha 90 chama a rotina de con- 
tagem, que começa em 520: 

500 REM - ROTINA DE CONTAGEM 
520 FOR I>1 TO LENÍLS)-1 
525 NP=NP+1 

530 C1=ASC (MIDS (LS, I . D ) -31 

540 C2=ASC [MIDS [LS . 1+1 . 1) ) -31 

545 L\ (C1)=LI (Cl)+1 

550 Fl [Cl ,C2) =FÍ (Cl ,C2) +1 

560 NEXT I 

570 RETURN 



730 X=C1 ( J) :C1 (J) «Cl ( J+l) :Ct (J 
+1) -X: FL-1 
740 NEXT J 

750 IF FL-0 OR N«2 THEN RETURN 
760 GOTO 700 

770 REM - ROTINA DE IMPRESSÃO 
780 NL'0:PRINT 

790 PRJNT "FREQUÊNCIA DE PARES 
NO TEXTO" : PRINT 

BOO FOR 1=1 TO 60:IF H(I)=0 TH 
EN 850 

805 GOSUB 690 
810 FOR J=l TO 60 
815 X-CÍ(J):IF F»(I,X)=0 THEN 
GOTO B25 

820 PRINT CHRS(I+31)+CHR$(X+31) 
iFKI.X) :" ": 
825 NEXT J : PRINT 
830 NL-NL+1:IF NL<15 THEN GOTO 
850 

840 NL=0:INPUT "PRESSIONE <ENTE 



500 REM - ROTINA DE CONTAGEM R> 

520 FOR i=l TO LEN LS"1 

525 LET np=np+l 

530 LET cl=ASC!LS,i TO i)-31 

540 LET c2-«ASC(LS.i to i+lJ-31 

545 LET L(cl)-LCcl)+l 

550 LET f (cl.c2)-f (cl,c2)+l 

560 NEXT I 

570 RETURN 

A rotina de contagem é muito sim- 
ples: o laço que vai da linha 520 à 560 
percorre L$ tomando um caractere por 
vez. As variáveis Cl e C2 conterão os 
códigos ASCII do primeiro e do segun- 
do caracteres de um par. Subtraindo o 
valor 31 desse código, obteremos um nú- 
mero compreendido entre 1 (espaço) e 
58 (letra Z). Cl e C2 servirão assim co- 
mo índices para acumular a caseia cor- 
reta de F e de L. 

O programa principal termina quan- 
do se atinge o final do texto e a rotina 
dos resultados é chamada. 

100 PRINT "TOTAL : " ; NT i "CARACTE 
BES E " : NP i "PARES" 
120 GOSUB 780 
140 STOP 



A rotina de exibição, que começa em 
780, utiliza uma rotina de ordenação pa- 
ra mostrar os resultados em ordem de- 
crescente, ou seja, os pares mais fre- 
quentes em primeiro lugar. 

680 REM - ROTINA DE ORDENAÇÃO 
690 N-60 

695 FOR J=l TO 60 : Cl ( J ) = J : NEXT 
700 FL=0 

710 N=N-l:FOR J-l TO N 
720 IF Fl tl.Ct(J) >>-Ft (I.Ct (J+l 
D ) ) THEN GOTO 740 



680 REM - ROTINA DE ORDENAÇÃO 
690 LET n-60 

695 FOR 3-1 TO 60 : LET c(j)-j 
700 NEXT j : LET fL-0 
710 LET n=n-l:FOR 3=1 TO n 
720 IF f (i,c<j))> = f (i,c(j + l)) 
THEN GOTO 740 

730 LET x-c(j):LET c ( j ) =c { j+l ) : 
LET c{ j+l)-x:fL=l 
740 NEXT J 

750 IF EL-0 OR n-2 THEN RETURN 
760 GOTO 700 

770 REM - ROTINA DE IMPRESSÃO 
780 LET nL-0: PRINT 
790 PRINT " FREQUÊNCIA DE PARES 
NO TEXTO": PRINT 

800 FOR i=l TO 60:IF L(i)=0 THE 
N GOTO 650 
805 GOSUB 690 
810 FOR 5-1 TO 60 
815 LET x-e(j):IF f{i,x)=0 THEN 
GOTO 825 

820 PRINT CHRS 1 + 31 ->CHR$ x+31 
;f U.x) "i 
825 NEXT i: PRINT 

B30 LET nL = nL+l:IF nl.<l5 THEN G 
OTO 850 

B40 LET nL=0:INPUT "PRESSIONE < 

ENTER> ";xS 

850 NEXT 1 : PRINT 

860 RETURN 

Para não alterar a matriz F, a rotina 
de ordenação utiliza um conjunto C, 
que funciona como índice — para isso, 
ele é inicializado no começo da rotina 
(linha 695), de modo a conter os núme- 
ros 1,2,3 etc. A ordenação (do tipo bo- 
lha) coloca esses números em uma or- 
dem diferente. 

A sub-rotina de impressão examina 
cada uma das linhas da matriz F. Se o 
total L(I) da linha I for 0, não se regis- 
trou a ocorrência de nenhum caractere 




com código 1 + 31 no texto. Do contrá- 
rio, o programa chama a rotina de or- 
denação. O laço que vai da linha 810 à 
825 imprime todos os pares cuja fre- 
quência é maior que 0. A variável-índice 
X, extraída de C, é usada para mostrá- 
los em ordem decrescente. 

Se você quiser ver apenas os dois pa- 
res mais frequentes para cada caracte- 
re, modifique a linha 810 para: 

810 FOR J=l TO 2 



A técnica de compressão explicada a 
seguir apresenta um alto nível de eficiên- 
cia, dependendo do texto a codificar e 
de sua extensão. Trata-se, na realidade, 
de uma generalização do algoritmo de 
codificação por pares de letras: se po- 
demos empregar códigos numéricos pa- 
ra representar os pares de caracteres 
mais frequentes em um texto, a fim de 
comprimi-lo, é possível também usar 
tríades dos caracteres mais comuns. Na- 
turalmente, essa abordagem se torna- 
ria cada vez mais inviável, à medida que 
aumentássemos as dimensões da matriz 
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F: de 3.600 elementos, para contagem 
de pares, para 216.000 elementos, para 
contagem de tríades etc. 

E por que não montar um dicioná- 
rio com palavras completas? Cada pa- 
lavra receberia um código numérico de 
oito ou de dezesseis bits, e o texto seria 
composto por uma sequência desses có- 
digos. Para reconstituí-lo, bastaria bus- 
car no dicionário a palavra correspon- 
dente a cada número. 

Esse sistema é chamado método chi- 
nês, pois as palavras em chinês não são 
formadas a partir de um pequeno con- 
junto de fonemas ou sílabas, como nos 
idiomas ocidentais, mas de figuras úni- 
cas, os .ideogramas, que correspondem 
a códigos. 

A idéia pode ser muito boa para uma 
linguagem natural, mas não devemos 
nos esquecer de que, no computador, o 
dicionário também precisa ser armaze- 
nado. Assim, para se conseguir o efeito 
de compressão, é necessário que o resul- 
tado da soma do número de bytes obti- 
do no processo com o número de bytes 
gasto com a armazenagem do dicioná- 
rio na memória seja menor do que o nú- 
mero de bytes do texto não comprimi- 
do (original). A taxa ou eficiência de 



compressão é dada peia divisão de um 
valor pelo outro. 

Para entender como funciona esse al- 
goritmo e verificar se é capaz de com- 
primir o texto-exemplo usado antes, di- 
gite e execute este programa. 

10 DIM FÍ200) ,C{200) ,PS(200) ,FS 
(50) 

20 NT=0:NP=0:NR=0:L 
ET NL=0:NF^0 
30 FOR 1=1 TO 200 
40 F(I)-0:C(I)=I 
50 NEXT I 

60 PRINT "ANAt.l SANDQ. . . " 

70 READ LS-IF LS = "*" TKEN GOTO 

100 

75 NL=NL+1 

80 NT=NT+LEN (LS) 

85 GOSUB 510 

90 NF=NF+LEN (FS (NL) ) : GOTO 70 
100 PHINT "TOTAL: " ; NT ; "CARACTE 
RES E " : NP ; " PALAVRAS" 
110 PRINT "DICIONÁRIO COM " ; NH ; 
"CARACTERES. " 

115 PRINT "TEXTO COMPRIMIDO COM 

" ;NF; "CARACTERES" 
120 PHINT "ORDENANDO..." 
130 GOSUB 690:GOSUB 780 



250 STOP 

500 REM - ROTINA DE CONTAGEM 
510 LS-LS+" ":J-1:L-1 
520 C=ASC ÍMIDS (LS. I . 1) ) 
525 IF C<>32 THEN COTO 560 
540 1 = 1 + 1 :IF KLEN { LS) THEN 

GOTO 520 
550 RETURN 
560 L=I 

570 C=ASC{MID5(LS.I.D) 
575 IF C-32 THEN GOTO 610 
590 1 = 1 + 1 :IF I=<LEN{LS) THEN 

GOTO 570 
60 0 RETURN 

610 XS=MIDS(LS,L.I-L) 

620 FOR N-l TO NP 

630 IF XSOPSCN) THEN GOTO 640 

635 F(N)=F(N)+1:FS(NL)=FS(NL)+ 

CHRS(N) :G0T0 520 
640 NEXT N 

650 NP=NP+1:F(NP)=1'PS{NP)=XS 
660 NR=NR+LEN (XS) : FS (NL) =FS (NL) 

+CHRS (NP) 
670 GOTO 520 

680 REM - ROTINA DE ORDENAÇÃO 
690 N=NP 
700 FL=0 

710 N-N-1:F0R 1=1 TO N 

720 IF F(C(I) )=>F(C (1+1) ) THEN 

GOTO 740 

730 X=C(I) :C{I)=C(I+1) 
735 C(I+1)=X:FL=1 
740 NEXT I 
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750 IF FL-0 OR N-2 THEN RETURN 
760 GOTO 700 

770 REM - ROTINA DE IMPRESSÃO 
780 NX-0 

790 PRINT " FREQUÊNCIA DE PALAVR 
AS NO TEXTO* : PRINT 
800 FOR 1-1 TO NP 
820 PRINT I;PS(C(I)) ,F(C(I() 
830 NX-NX+1:IF NX<15 THEN GOTO 
850 

840 NX-0:INPUT "PRESSIONE <ENTE 
R> ":XS 

850 NEXT I: PRINT 
860 RETURN 

Os usuários do TRS-80 e do TRS- 
Color devem colocar um comando 
CLEAR 3000 antes do DIM, na linha 10. 




10 DIM £ (200) ,c{200) ,pS<200,lS) 
. CS (50) 

20 LET nt = 0 : LET np=0:LET nt=0:L 

ET nl=0:LET nE-0 

30 FOR 1=1 TO 200 

40 LET í(i>=0:LET c(l)=l 

50 NEXT 1 

60 PRINT "ANALISANDO..." 

70 READ LS:IF L$-"»" THEN GOTO 

100 

75 LÍT nt=nl+l 

80 LET nt=nt+LEN L3 

85 GOSUB 510 

90 LET nf-nf+LEN fS(nl):GOTO 70 
100 PRINT "TOTAL : " ; nt : "CARACTE 
RES E ";np;" PALAVRAS" 
110 PRINT "DICIONÁRIO COM " ; nr i 
"CARACTERES. " 

115 PRINT "TEXTO COMPRIMIDO COM 

" ; nf ; "CARACTERES" 
120 PRINT "ORDENANDO..." 
130 GOSUB 690:GOSUB 780 
250 STOP 

500 REM - ROTINA DE CONTAGEM 
510 LET LS=L3+" " : LET i=l:LET L 

-1 

520 LET c-ASC L$<1 TO í) 
S25 IF c<>32 THEN GOTO 560 
540 LET l-l+l:IF í < LEN L$ THEN 

GOTO 520 
550 RETURN 
560 LET L-i 

570 LET c-ASC L3(i TO i) 

575 IF c-32 THEN GOTO 610 

590 LET i-i+l:IF i-<LEN LS THEN 

GOTO 570 
600 RETURN 

610 LET x$-L$(L to 1-1) 

620 FOR n-1 TO NP 

630 IF xSOpS (n) THEN GOTO 640 

635 LET f (n)-f (n)+l:LET fS(nl)« 

fS(nl)+CHHS<n) :GOTO 520 

640 NEXT n 

650 LET np-np+l:LET f<np)-l:LET 

PS(np)=x3 
660 LET nr-nr+LEN x$:LET £S(nl 
)=f${nl)+CHRS(np) 
670 GOTO 520 
1,5 680 REM - ROTINA DE ORDENAÇÃO 



690 LET n=np 
700 LET fl-0 

710 LET n=n-l:F0R i=l TO n 
720 IF f (c(i)}->f (c(i + D) THEN 
GOTO 740 

730 LET x-c(i):LET c { 1 ) =c ( i + 1) : 
LET c(i+l)-x:LET fl-1 
740 NEXT 1 

750 IF fl=0 OR n=2 THEN RETURN 
760 GOTO 700 

770 REM - ROTINA DE IMPRESSÃO 
780 LET nx=0 

790 PRINT "FREQUÊNCIA DE PALAVR 

AS NO TEXTO": PRINT 

800 FOR 1=1 TO np 

820 PRINT iipS(c(i)) ,£(c(i) ) 

830 LET nx=nx+l:IF nx<15 THEN G 

OTO 8 50 

840 LET nx=0:PRINT " PRESSIONE < 
ENTER> " : INPUT xS 
850 NEXT i : PRINT 
860 RETURN 

A parte principal do programa é a ro- 
tina de extraçào de palavras, que vai da 
linha 500 à 670. 

Para identificar e separar as palavras 
contidas em uma linha de texto, essa ro- 
(ina procura o primeiro caractere não- 
branco (que não é um espaço) a partir 
do caractere I da linha L$. A posição 
inicial da palavra é armazenada na va- 
riável L (linha 560). 

Em seguida, a rotina procura o fim 
da palavra: continua a percorrer o tex- 
to até encontrar o primeiro caractere de 
espaço. Isso é feito pelas linhas 570 a 
600. Note que, para evitar que a última 
palavra de um texto se perca, a linha 5 10 
■da rotina sempre acrescenta um espaço 
em branco após LS. 

Achado o final da palavra, o sub- 
slring compreendido entre L e 1-1 (a no- 
va posição) é copiado em XS (linha 610). 
As linhas 620 a 660 verificam então se 
a palavra XS existe no dicionário PS, 
com NP palavras. Se não existe, a nova 
palavra é acrescentada. Antes de voltar 
para a linha 520, para buscar nova pa- 
lavra no texto, a rotina incrementa em 
F a frequência de ocorrência da palavra. 
A linha de saída, que contém o texto 
comprimido (armazenada em F$), rece- 
be um novo caractere, que corresponde 
ao código da palavra no dicionário. Por- 
tanto, uma palavra inteira é substituída 
por um byte. 

Concluindo o programa, as rotinas 
das linhas 690 e 780 colocam as palavras 
do dicionário em ordem alfabética, exi- 
bindo-as na tela em grupos de quinze, 
como mostramos a seguir: 

FREQUÊNCIA DAS PALAVRAS 

DE 15 

O 10 

A 8 

E 8 



UM 6 
DO 5 
SUA 5 



Observamos no texto-exemplo que: 

- as palavras curtas aparecem mais; 

- há um grande número de palavras com 
uma única ocorrência; 

- vírgulas e outros sinais são tratados co- 
mo parte da palavra junto à qual se en- 
contram. 

Com isso, a eficiência de compressão 
do algoritmo é muito baixa: de 1228 ca- 
racteres do texto original, conseguimos 
comprimir apenas 215 caracteres (uma 
taxa de 82,5%); porém, o dicionário 
ocupa outros 870 bytes, dando um to- 
tal de 1085. A eficiência se reduz, assim, 
a apenas 1 1,6%. 

O algoritmo é mais eficaz quando se 
combinam textos bem longos e uso de 
um vocabulário reduzido. 



0EC0DIFICAÇS0 



Para ver como o texto comprimido 
é reconstituído, acrescente a sub-rotina 
de decodificação: 

140 GOSUB 900 

890 REM - ROTINA DECODIFICAÇÃO 

900 NX=0:FOR 1=1 TO NL 

910 FOR J-l TO LENÍFS(D) 

920 PRINT " " ; PS [ ASC {MIDS (FS (I ) 

.j.im : 

930 NEXT J: PRINT 

940 NX=NX+1:IF NX<15 THEN GOTO 
950 

945 NX=0:INPUT "PRESSIONE <ENTE 
R> " ; RS 

950 NEXT I: RETURN 




140 GOSUB 900 

890 REM - ROTINA DE CODIFICAÇÃO 
900 LET nx-0:FOR i-1 TO nL 
910 FOR j=l TO LEN £S(i) 
920 PRINT " ";pSÍASC[FS(i.j TO 

930 NEXT j :PRINT 

940 LET nx»nx+l:IF /ix<15 THEN G 
OTO 950 

945 LET nx=0:PRINT "PRESSIONE < 

Essa rotina funciona de modo opos- 
to ao da de codificação, mas é bem mais 
simples. Os códigos armazenados em F$ 
são recuperados pela função ASC da li- 
nha 920, e servem como índice do dicio- 
nário P$ para reconstruir o texto origi- 
nal. Os espaços entre palavras são inse- 
ridos automaticamente. 



ROTINAS EM CÓDIGO 
DE 



■ 


ROTINAS NAS LINHAS DATA 


■ 


A ESTRUTURA DE 


UMA LINHA 


■ 


PEEK E POKE 


■ 


ENTENDA COMO FUNCIONA 



A linha DATA é um excelente lugar 
para se colocar programas em linguagem 
de máquina embutidos em um programa 
em BASIC. Aprenda aqui os truques 
que facilitam essa tarefa no MSX. 



Com frequência, armazenamos, em 
algum lugar da memória, uma rotina em 
código de máquina, um arquivo de pa- 
drões de um desenho ou até mesmo uma 
composição musical acompanhada de 
instruções. Muitas vezes é útil incorpo- 
rar esse arquivo de rotinas a um progra- 
ma em linguagem BASIC. Se colocar- 
mos seus códigos nas linhas DATA do 
programa que os acessa, tornaremos 
bem mais fácil o manuseio do sistema, 
viabilizando a obtenção de uma listagem 
completa e evitando repetidas buscas no 
gravador ou no drive, para uma poste- 
rior junção. Com essas linhas DATA, 
precisaremos apenas acrescentar um la- 
ço que, por intermédio do comando PO- 
KE, carregue uma determinada região 
da memória com os dados nela contidos. 



INTRODUÇÃO DAS LINHAS DATA 



Para apresentar os códigos do arqui- 
vo, o mais conveniente é utilizar núme- 
ros hexadecimais, que ocupam menos 
espaço e reduzem a possibilidade de se 
cometer erros na digitação. Além disso, 
o modo como dispomos os números na 
linha pode facilitar correçôes ou consul- 
tas posteriores — ou seja, a quantidade 
de números por linha indica que ali se 
encontra um determinado padrão grá- 
fico ou que aqueles códigos representam 
uma pequena sub-rotina dentro da ro- 
tina principal. 

O programa a seguir irá auxiliá-lo 
nessa tarefa. Inicialmente, você irá com- 
plementá-lo com linhas DATA seguidas 
de caracteres que depois serão superpos- 
tos pelo arquivo. I importante ressal- 
tar que a quantidade de caracteres por 
linha determinará o número de código 
nela armazenados, Assim, você pode 



"moldar" as linhas DATA, dando-lhes 
a aparência que julgar melhor. Por 
exemplo, uma linha do tipo: 
330 DATA XXXXXXXX 
seria transformada em: 
330 DATA A3.F2.01 

Convém, portanto, que você gaste al- 
gum tempo na criação dessas linhas, se 
quiser uma listagem bem organizada. 



RODANDO 0 PROGRAMA 



Após o acréscimo das linhas DATA, 
passamos à execução do programa. Em 
primeiro lugar, ele solicita o endereço 
inicial do arquivo, pedindo, em segui- 
da, seu comprimento. Depois de termos 
digitado essas informações, o computa- 
dor pergunta se as linhas DATA já fo- 
ram introduzidas. Caso isso ainda não 
tenha sido feito, o programa será inter- 
rompido. Finalmente, ele pede o núme- 
ro da primeira linha a ser preenchida. 
Se não encontrar essa linha, o compu- 
tador interromperá a execução do pro- 
grama e imprimirá uma mensagem de 
erro. O mesmo irá ocorrer se a linha in- 
dicada não contiver o comando DATA. 

É importante que todas as linhas re- 
servadas "para os códigos estejam em se- 
quência na listagem — durante a execu- 
ção, uma mensagem de erro pára o pro- 
grama quando o computador encontra 
uma linha que não seja DATA. 

10 CLS 

20 INPUT"Qual o endereco do arq 
uivo " ; EH : PflINT 

30 INPUT"Cjual o comprimento ";C 
O :PP.IHT 

40 PBINT"Você já introduziu ae 
linhas DATA? S/N " : PRINT 
50 G$=INKEYS:IF GS-"" THF.N GOTO 
50 

60 IF GS-"N" OH GS = "n" TH EH PP.I 

NT "Eu vou parar o programa par 

a voce f azeriaso" :STOP 

70 INPUT-oual a primeira linha 

DATA " ;LD: PRINT 

80 X-32769! 

90 IF PEEK CX+2) +256«PEEK (X+3) -L 
D TH EH 130 

100 IF PEEK(X)+256*PEEK(X+1)=0 
THEN PHINT"Não achei esta linha 
" :STOP 



110 X=PEEK(X)+256*PEEK<X+1) 
120 GOTO 90 

130 IF PEEK(X+4)<>132 THEN PRIN 
T"Esta não é uma linha DATA" ■ PR 
INT:GOTO 70 
140 X=X+3 

150 FOR 1=0 TO CO-1 
160 X=X+3 

170 IF PEEKtX)-0 THEN X-X+5:GOS 
UB 310 

180 IF PEEK{X+l)-0 THEH POKE X, 
32:X=X+6:GOSUB 310 
190 LET AS-HEXS(PEEK(E+I)) 
200 IF LEN(A3)=1 THEN AS="0"+AS 
210 POKE X.ASC(MID$(AS,1.D) 
220 POKE X+l ,ASC (MIDS (AS , 2, 1) ) 
230 IF PEEK(X+2)-0 THEN X-X-l :G 
OTO 270 

240 IF PEEK<X+3)-0 THEN POKE (X 
+2) , 32:G0T0 270 

250 IF PEEK(X+4>-0 THEN POKE {X 
+ 2) ,32:POKE (X+3) . 32 : JC-X+1 :GOTO 
270 

260 IF IOCO-1 THEN POKE(X+2),4 
4 

270 NEXT I 

280 IF PEEK(X+2)<>0 THEH POKE IX 
+ 2) ,3Z-.X=X*1:G0T0 280 
290 LIST 
300 STOP 

310 IF PEEK(X)<>132 THEH PRINT" 
Faltam linhas DATA*:STOP ELSE X 
-X+2 

320 RETURN 



Para entender o funcionamento do 
programa, é necessário conhecer a estru- 
tura de uma linha DATA, ou seja, sa- 
ber como ela é armazenada na RAM. 

Ao ligar o computador, digite: 
10 DATA A.B.C 

Agora, para "ler" o que está escrito 
na memória, usaremos o comando 
PEEK, que mostra o conteúdo de um 
determinado endereço. Começaremos 
pelo exame do byte de número 32769, 
que contém a primeira informação da 
linha inicial de um programa em BA- 
SIC. Para isso, digite o comando direto: 



Você deve ter obtido a seguinte se- 
quência de números: 

13 128 10 0 132 32 65 44 66 44 



iiiiiiiiihw— — ■■■■■■■■mm 



ESTRUTURA DA LINHA 



Os dois primeiros números referem-se 
ao endereço inicial da próxima linha. Esse 
endereço é armazenado na forma LH (do 
inglês Low, parte baixa, e High, parte al- 
ta). Pode ser decodificado do seguinte 
modo: 128-256 + 13 = 32781. O par se- 
guinte equivale ao número da linha, que 
é armazenado da mesma forma: 
0*256+10 = 10. 0 próximo número, 132, 
é o código da palavra DATA. 

O MSX atribui um número — ou to- 
ken (símbolo, indicação) — a cada pa- 
lavra e caractere reservados. Assim, o 
computador economiza bastante memó- 
ria: em vez de armazenar todos os ca- 
racteres da palavra, guarda apenas o seu 
token. É importante não confundir os 
tokens com os códigos ASCII, que re- 
presentam os caracteres comuns. 

O número 32, que vem a seguir, é o 
código ASCII do espaço em branco, que 
separa os dados do comando DATA. Os 
próximos cinco bytes contêm esses da- 
dos, que vêm separados por uma vírgu- 
la (44). O primeiro 0, na sequência, in- 
dica o fim de uma linha, e os dois ou- 
tros, o fim do programa. Quando iodas 
as linhas tiverem sido examinadas, os 
dois bytes iniciais apontam para o pri- 
meiro destes dois zeros. 



Ao encontrar a linha indicada pelo 
usuário, o microcomputador verifica se 
se trata de uma linha DATA. Para is- 
so, pesquisa seu quinto byte. Se ele não 
contiver o token correspondente à ins- 
trução DATA, será impressa uma men- 
sagem de erro. 



0 LAÇO PRINCIPAL 



Feitas todas essas verificações, o pro- 
grama inicia o laço principal, controla- 
do pela variável 1, que coloca os códi- 
gos de máquina no programa em BA- 
SIC. Antes, porém, a linha 140 acres- 
centa três unidades a X, para que, den- 
tro do laço, essa variável seja incremen- 
tada em mais três e alcance o endereço 
do primeiro caractere da linha que de- 
verá ser preenchida. 

Primeiro, o laço principal busca o có- 
digo na região da memória determina- 
da pelo usuário, transforma-o na nota- 
ção hexadecimal (linha 190) e o coloca 
sobre os caracteres para os quais reser- 
vamos espaço nas linhas DATA (linhas 
210 e 220). Se esse código for inferior 
a 15, sua notação em hexadecimal terá 
apenas um caractere. Para dar uma me- 
lhor apresentação ao programa, a linha 
200 acrescentará um 0 á direita desse ca- 
ractere. 



FUNCIONAMENTO DO PROGRAMA 



Após conseguir as informações soli- 
citadas no início do programa, o com- 
putador passa às verificações. 

A linha 80 inicializa a variável prin- 
cipal, X, que contém o endereço do byte 
em estudo. Primeiro, ela assume o va- 
lor 32769, que, conforme vimos, é o en- 
dereço do byte inicial da primeira linha. 
A linha 90 verifica o terceiro e quarto 
bytes, obtendo o número da linha. Se es- 
ta for a linha procurada (a primeira li- 
nha DATA), o programa é desviado pa- 
ra a linha 130. 

A linha 100 pesquisa o primeiro e o 
segundo bytes, que contêm o endereço 
da próxima linha. Se houver um núme- 
ro 0 no lugar do endereço, estamos no 
fim do programa — o que significa que 
a linha não foi encontrada. O compu- 
tador imprime então uma mensagem de 
erro. Caso contrário, é necessário pes- 
quisar a próxima linha. Assim, depois 
de atribuir à variável X o valor encon- 
trado no primeiro e no segundo bytes (li- 
nha 110), o programa retorna para a li- 
nha 90. Esse laço só será interrompido 
quando a próxima linha do programa 
foi localizada ou quando chegarmos ao 

P^==- 



As linhas 170 e 180 são responsáveis 
pela mudança de linha. Se o byte em 
questão contiver o valor 0, um salto se- 
rá necessário, pois esse valor indica o 
fim da linha. Incrementa-se então a va- 
riável X, de modo que ela alcance o 
endereço do próximo caractere a ser 
superposto por um código, na linha 
seguinte. Porém, se o byte posterior a 
este contiver um 0, não será possível 
colocar um código na linha, por falta 
de espaço. Nesse caso, além do incre- 
mento, é preciso imprimir um espaço 
em branco sobre o caractere que se en- 
contra no endereço anterior ao 0. Am- 
bas as linhas, antes do salto, utilizam 
uma sub-rotina (linha 310) para verifi- 
car se a próxima linha é realmente uma 
Unha DATA. 

Convém estar atento para que nada 
seja impresso após o último código, pois 
ele deve finalizar a linha DATA. Assim, 
quando o código já foi introduzido nas 
posições X e X + 1, não haverá vírgula 
se o primeiro, o segundo ou o terceiro 
bytes após ele contiverem o número 0. 
Nesse caso, alguns espaços em branco 
serão colocados sobre os caracteres an- 
teriores àqueles bytes. O valor de X tam- 
bém sofrerá uma pequena mudança pa- 
ra que, na próxima volta do laço, o en- 
dereço X, incrementado em três, corres- 
ponda ao endereço de 0, e a linha 170 



se encarregue de promover o salto para 
a próxima Unha DATA. 

Se o primeiro, o segundo e o terceiro 
bytes após o código não contiverem 0, 
a linha 260 se encarregará de imprimir 
uma vírgula. 

Quando o programa sai do laço, a li- 
nha 280 limpa a última linha DATA, 
imprimindo espaços em branco sobre os 
caracteres que ali se encontravam. 

Finalmente, o computador exibe na 
tela a listagem completa, mostrando ao 
usuário os códigos já incorporados ao 
programa. 

Como estamos fazendo modificações 
dentro do programa, convém gravá-lo 
antes da execução. Um pequeno erro de 
digitação pode provocar um POKE e 
inutilizar o programa. 



LISTA DE TOKENS 



Com os novos conhecimentos sobre 
a armazenagem das linhas em BASIC, 
você pode fazer uma série de experiên- 
cias com o comando POKE. Tente, por 
exemplo, digitar uma linha e mudar o 
seu número com um POKE no primei- 
ro e no segundo bytes. Lembre-se de que 
o primeiro byte do BASIC é o de núme- 
ro 32769. Você pode também "olhar" 
as linhas armazenadas no BASIC recor- 
rendo a alguns comandos diretos, como 
fizemos em nosso exemplo. 

Provavelmente, será útil dispor de 
uma lista dos comandos com seus res- 
pectivos tokens. Para obtê-Ia, digite e 
execute este programa: 



10 E-14962 

20 C-65 

30 PRINT CHRS(C) ; 
40 A=PEEK(EÍ 
50 B-PEEK(E+1) 
60 AS=CHRS<A) 

70 IF A<128 THEN PRTNT AS GOTO 
110 

80 PUI NT CHRS(A-128) ;TAB(8) ;B 
90 E=E+1 

100 IF PEEK(E + l)O0 THEN PRINTC 
HHS(C); 

110 IF PEEK(E+1)<>0 THEN 150 
120 OC+l:IF C=89 THEN 170 
125 B$=CHRS(C) :PRINT 
130 TF B5-"J" OR BS-"Q" THEN 15 

0 

140 PR TNT BSi 
150 E=E+1 

160 IF E01S649 THEN 40 

170 E=15654:PRINT 

180 A-PEEK í E ) : B=PEEK (E+l) 

190 IF A>1^7 THEN PRINT CHRS (A- 

128) : 

200 IF A<128 THEN PRINT CHRS [A) 

210 PRINT TAB (8) ;B 

220 E=E+Z: PRINT 

230 IF E<15673 THEN GOTO 180 
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EXECUÇÃO DA MELODIA 



EDICAO 

GRAVAÇÃO E LEITURA 



Complete a listagem do seu editor 
musical e entregue-se ao prazer 
de compor e executar melodias. 
As instruções dadas a seguir mostram 
como utilizar cada função do programa. 



Apresem a mos aqui a última parte do 
editor musical. Uma vez adicionada ao 
restante do programa, você poderá se 
dedicar à composição e execução de pe- 
ças musicais. 

O programa foi leito de modo a ob- 
ter o máximo de cada máquina, em ter- 
mos de efeitos sonoros. Como os recur- 
sos das difereqies linhas de micros va- 
riam muito entre si, as versões são bem 
distintas, merecendo, cada qual, uma 
explicação. Em alguns casos, as instru- 
ções parecerão bem complicadas. Mas, 
seja como for. não há melhor maneira 
de aprender a usar o editor do que 
sentar-se diante do micro, carregar o 
programa completo e tentar entender 
um comando de cada vez. 



Jl J 



O menu do programa do computador 
Spectrum oferece sete opções. Selecio- 
ne a opção 1 , que transforma o teclado 
do micro num piano. 

A disposição das notas é igual à que 
vimos no artigo da página 721.. O dó 
mais grave corresponde à tecla Q; o dó 
médio, à leda I, e o dó mais agudo, á 
tecla B. O usuário deve determinar se irá 
acrescentar notas à melodia anterior, ou 
iniciar uma nova. Como nada foi com- 
posto ainda, escolha 'S' para começar. 
Defina também a duração cie cada no- 
ta, usando <SYMBOLxSHIFT> 



seguido de um número de 1 a 5 (semi 
colcheia, colcheia, semínima, mínima 
semibreve, respectivamente — quantc 
maior o número, mais demorada é a no- 
ta). Pode-se estabelecer a duração de ca 
da nota antes de digitá-la e, também 
corrigi-la após digitar a melodia comple- 
ta, selecionando a opção 4. 

O programa emite os sons à medida 
que as teclas são pressionadas, armaze- 
nando as notas musicais corresponden- 
tes na memória. Depois, pode-se execu- 
tar a melodia completa sempre que se 
desejar através da opção 3. Para modi- 
ficar o andamento da melodia, usa-se 
um número entre l e 15 — quanto maior 




35 APUCACÓeS 35 



o número, mais rápido o andamento. A 
opção 2 possibilita a digitação das no- 
tas por meio de um código simples. As 
doze notas possíveis — C (dó), C # (dó 
sustenido), D (ré), até o B (si) — são nu- 
meradas de 0 a 1 1 , e a pausa recebe o 
código -4. A oitava da melodia é es- 
pecificada por um valor compreendido 
entre 1 e 7, e o número que indica a du- 
ração de cada nota corresponde à sua 
duração teórica. Assim, uma semicol- 
cheia vale I: uma colcheia, 2; uma se- 
mínima, 4; uma mínima, 8 e uma semi- 
breve, 16. Essas durações valem, igual- 
mente, para a pausa. 

O código é muito fácil de usar. Por 
exemplo, a nota dó, segunda oitava, se- 
micolcheia, tem o código 1024; a nota 
si, quarta oitava, semibreve, é 11416. 
Para pausas, — 404 é o intervalo de uma 
semínima. Não se esqueça de que cada 
código tem dois dígitos; assim, uma col- 
cheia vale 02, e não 2. 

Após digitar algumas notas, pressio- 
ne < RETURN > para voltar ao menu;' 
selecione a opção 3 para tocar a melo- 
dia introduzida até o momento. 

Se você quiser alterar, apagar ou 
acrescentar algumas notas, selecione a 
opção 4 do menu. Inicialmente, pressio- 
ne D. para selecionar as notas que se- 
rão modificadas. Depois, entre o núme- 
ro das notas e tecle E para editá-las. Pa- 
ra mudar uma nota, digite seu número, 
< RETURN > e seu código. Para inse- 
rir uma nota, aperte X e entre seu nú- 
mero. Caso queira apagar tudo c reini- 
ciar o trabalho, selecione a opção 5. 

Quando estiver satisfeito com a me- 
lodia, grave-a através da opção 6. 

A opção 7 permite recuperar uma 
música da fita cassete. 



Ao executar o programa, um menu 
com nove opções será exibido na tela. 
Comece com a opção 3, para tocar mú- 
sica diretamente no teclado. 

As notas estão dispostas em duas fi- 
leiras, como vimos no artigo da página 
72 1 . O dó menor corresponde ã tecla Q; 
o dó médio, á I, e o dó maior, à V. A 
barra de espaço indica uma pausa com 
a duração desejada. O computador re- 
gistrará cada nota que você tocar, mas 
não em tempo real — assim, não impor- 
ta que você demore mais ou menos pa- 
ra teclar uma nota. Também não have- 
rá problema se algum erro for cometi- 
do: é fácil corrigir as notas depois. 

Se você quiser mudar uma oitava an- 
tes de executar uma determinada nota, 
recorra às teclas com setas para cima e 
para baixo. Para alterar a duração da 



nota, pressione as teclas com setas para 
a esquerda c a direita. A oitava e a du- 
ração correntes estarão impressas no to- 
po da tela. Enquanto você toca, as no- 
tas vão sendo exibidas com a duração 
e oitava respectivas. 

Depois de experimentar essa manei- 
ra de entrar com as notas, selecione a 
opção 4 (as notas que você tocou per- 
manecem na memória). Ela permite a 
entrada das notas por um processo que 
em certos casos pode ser bem útil. Pri- 
meiro, digite o nome da nota, de "a" 
até "f", para as notas naturais; A, C, 
D, F, G, para acidentes (bemóis são co- 
locados como sustenidos; logo, Bb = 
A# etc), e "p". para uma pausa. Em 
seguida, entre a oitava — um número 
de 1 a 6 — e a duração da nota — letras 
w, h, q, e, s, correspondentes a semibre- 
ve, mínima, semínima, colcheia e semi- 
colcheia. Para uma nota pontuada, sim- 
plesmente adicione um ponto no final. 
Por exemplo: A2e. significa nota A (lá 
sustenido), oitava 2, colcheia pontuada; 
c3w significa nota C (dó), oitava 3, se- 
mibreve. 

Entre as notas na ordem que quiser 
e ouça a musica quando desejar, seleeio- 
nando a opção 7 do menu principal. 

Outras opções do menu são a mudan- 
ça no tempo de execução e a mudança 
geral de oitava (com efeito retroativo) 
— para executá-las, basta que teclemos 
um novo valor. O tempo de execução 
varia de 0 a 255 e indica a velocidade 
com que as notas são tocadas. Utilizan- 
do as opções Superior e Inferior, você 
pode subir ou descer a oitava de qual- 
quer grupo de notas. 

Para editar a melodia, selecione a op- 
ção 6. Com ela, você lista as notas e 
identifica as que quer alterar. É possí- 
vel escolher entre apagar, inserir, alte- 
rar ou continuar. Experimente cada uma 
dessas opções. Para apagar notas, en- 
tre o número inicial e o número de no- 
tas que deseja eliminar. Para inserir, di- 
gite o número da nota que está antes do 
ponto onde se iniciará a inserção e en- 
tre uma nota por vez. Para alterar uma 
nota, tecle seu número e entre o novo 
conteúdo. 

Finalmente, quando estiver satisfei- 
to com a meiodia, armazene-a em fita 
com a opção 2 e recupere-a quando qui- 
ser com a opção l . 



Ao iniciar a execução do programa, 
um menu com nove opções será exibi- 
do na tela. Comece com a opção 3 para 
tocar música diretamente no teclado. 
Teremos três oitavas disponíveis. 



As notas estão dispostas no teclado 
em duas fileiras: Q corresponde ao dó 
da oitava mais baixa; I. ao dó da oitava 
média, e V, ao dó da oitava mais alta. 
A nota A # (A ou lá sustenido) não po- 
de ser obtida com a tecla " ", já que es- 
ta não gera nenhum código ASCII que 
identifique o seu pressionamento. As- 
sim, A# foi atribuída à tecla "[", dei- 
xando uma pequena descontinuidade no 
teclado. A barra de espaço indica uma 
pausa com a duração especificada. 

O computador registrará a nota que 
você tocar, mas não imediatamente, de- 
vido ao tempo necessário para o proces- 
samento das instruções. Portanto, não 
tem nenhuma importância que você de- 
more mais ou menos para teclar uma 
nota. Também não haverá problema se 
algum erro for cometido: será fácil cor- 
rigir as notas mais tarde. 

Caso você queira mudar a oitava an- 
tes de executar uma nota, use as teclas 
com setas para cima e para baixo. Para 
alterar a duração da nota, pressione as 
teclas com setas para a esquerda e a di- 
reita. A oitava mais baixa disponível no 
teclado estará impressa no topo da te- 
ia, bem como a duração das notas, que 
vão sendo exibidas à medida que você 
as toca. Para obter uma duração pon- 
tuada, selecione as teclas <INS> e 
<DEL>; para apagar a última nota 
executada, a tecla <CI.S>. 

Tendo experimentado essa forma de 
composição, use a tecla <ENTER> e 
volte ao menu principal. Selecione a op- 
ção 4 (as notas que você tocou perma- 
necem na memória). Ela permite a en- 
trada das notas por um processo que, 
em certos casos, pode ser muito útil. 
Primeiro, digite o nome da nota, de 
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"a"aié"f", para as notas naiurais; A, 
C, D.F.G, para acidentes (bemóis são 
colocados como sustenidos; logo, Bb = 
A # etc.X e "p", para uma pausa. Em 
seguida, entre a oitava — um núme- 
ro de 1 a 8 — e a duração da nota — 
letras w, h, q, e. s, t, u, corresponden- 
tes à semibreve, mínima, semínima, eol- 
cheia, semicolcheia, fusa e semiíusa. Pa- 
ra uma nota pontuada, adicione um 
ponto no finai. Por exemplo: c8t. sig- 
nifica C (dó), oitava 8, fusa pontua- 
da; A4u significa A (lá sustenido), oita- 
va 4, semifusa. 

Entre as notas na ordem que quiser 
e ouça a música quando desejar, selccio- 
nando a opção 7 do menu principal. 

Outras opções que temos são a mu- 
dança no tempo de execução das notas 
e a mudança geral da oitava. Esta últi- 
ma tem efeito retroativo. alterando a oi- 
tava de notas na memória. Para ambas 
as opções, basta teclar 0 novo valor. O 
tempo de execução varia de 32 a 255 e 
indica a velocidade com que as notas são 
tocadas. Com as opções Superior e In- 
ferior você pode subir ou descer a oita- 
va de um grupo de notas. 

Para editar a melodia, selecione a 
opção 6. Com ela, você lista M notas 
e verifica o que deseja alterar. É possí- 
vel escolher entre apagar, inserir, alie- 
nar ou continuar. Experimente cada 
uma dessas opções. Para apagar algu- 
mas notas, entre o número da primeira 




nota e o número de notas que deseja eli- 
minar. Para inserir, digite o número da 
nota imediatamente anterior ao ponto 
onde pretende iniciar a inserção e entre 
uma nota de cada. Para alterar uma no- 
ta, tecle seu número e entre o novo 
conteúdo. 

Finalmente, quando estiver satisfei- 
to com a melodia, armazene-a em fita 
com a opção 2 e recupere-a quando qui- 
ser com a opção 1 . 



4152 INPUT "Entl 

im 



ro da 



■5454 TF (NN<1) OR NN>ct THEN G 
OTO 1000 

4460 PP.1NT : mm "Re- entrando 

nota " : NN 
4470 PB TNT : PB TNT 
4480 INPUT "Entre ron nova nota 

- " ;NS 

4490 TF NS="" THEN COTO 4300 

4501) FOR l-l TO LEN (NS)': TF (N 

9(i)<"0" OB NS(i}>"9") ANO (NSl 

i )<>"""} THEN «OTO 40(lfT 

4M0 LET N- VAI. (NS) 

4520 IF TNT (N/]000)>M THEN G 

OTO 4000 

4530 IF N<0 THEN GOTO 4590 
4'">40 L. ET M = TNT (N/100): I.FT D = N 



100 

1 ít^O LET 0=M-INT (M/10)»10: IF 

o-;i on o>/ then goto 4000 
4560 LET M=TNT (H/10) +{0-l) "12- 



Ni=M 
4SB0 GOTO 4600 
4590 LET M - INT 
-0- (N-M" I 00) 
4600 IF MO-4 Tl 
4MO GOTO 45/0 
4/00 CLS 
4/05 PH INT "Etltl 

neta antes- ' -d, 

'1/30 INPUT in 
4735 IF 
4/40 I F 
4/45 CLS 
4/50 GOSUB 2500 
4/55 PH TNT 

•Kntr 



*NN- l)-Di LET 



N/1U()) + 1: LET D 
EN GOTO 4000 



EN GOTO 40 



4760 Dnx 
;NS 



4765 IF LEN (NS) =0 THEr> 

700 

4//0 FOtl 1 = 1 TO LEN (Ni 



va Nota 
GOTO 4 




TRANSCRIÇÃO DE PARTITURAS 

Nem todos conseguem executar 
música simplesmente sentando-se 
diante do micro e usando □ editor mu- 
sical como um processador de textos. 
Embora a opção de playback (execução 
da melodia entrada com o auxilio do 
editor) ajude bastante, nosso programa 
não permite representar na tela uma 
partitura com os detalhes de uma apli- 
cação mais profissional. 

Assim, a solução é recorrer a parti- 
turas de músicas de fácil execução pa- 
ra violão, flauta; em órgão eletrônico ou 
piano, e transcrevê-las usando □ nos- 
so editor musical. 



S(i)<"0" OR NS(i)>"9") ANP (NS< 

I ).<>•-*') THEN GOTO 4700 

4//2 LET N = VAL (NS) 

4/74 IF TNT (N/1000) >.ll THEN G 

OTO 4 700 

4776 IF N<0 THEN GOTO 4792 
4778 LET M=INT (N/100): LET D=N 
-«*! 00 

4/82 LET 0=»-INT (M/10)*10: IF 
0<l OR 0>7 THEN GOTO 4700 
4784 LET M=INT (M/10) + (O-l ) "l 2- 
36 

4786 FOP i=ct TO ia STEP -l ■ LE 
T t(2*(i + l>)-t(2*j) : LET t(2Mi 
*l)-l)"t(2*i-l) : NEXT i 
478B LET f(2"la-l)»D: LET t (2*1 
a) = M 

4790 LET ct=rt+l : GOTO 4000 
4797 LET M= INT (N/I0(l) + 1; LET D 
= 0- (N-M*100) 

4794 IF MO-4 THEN GOTO 4/00 
4796 GOTO 4786 
4800 CLS 

480S PHTNT "Entre com numero da 
nota a ser apagada . " 1 ' " (D par 

48.10 INPUT de 

4835 IF dfi-0 THEN «OTO 4000 
4.B40 IF de>ct THEN GOTO 4B00 
4B45 FOR i»de TO ct : LET t(2*0 
= t (Z« (i+l) > : LET t(2«i-l)-t(2"( 
i + D-l) ■ NEXT i 
4850 LET ct=ct-l 
4855 ROTO 4000 

4900 DATA 3.0,-11,-9.0,-6.-4,-2 
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,0,1 

4910 DATA 12.9,8,-8, IU.0. 13,0, 1 

5.0 

4920 DATA 0,16.14,2,4,-12.-7,6, 

-5.-1 

4930 DATA 11,-10,7,-3.5 
5000 CLS 

5010 INPUT "DIGITE NOME DO ARQU 
IVO ";FS: LET T (KiaJtriotes+l ) =<r.t : 

SAVE FS DATA Tl): RETURN 
6000 INPUT "DIGITE NOME DO AH(JU 
"IUO ";FS- LOAD FS DATA T(): LET 

cl.=T{MAXNOTES+l) : ti ET U RN 



1440 FOR I=ST TO NN 

1450 PRINTIC, USINCttt ";I; 

1460 AS-NS(I) :BS=LEFT$(AS.ll 

1470 IF BS> = " a " AND BS<- "g"THEN 

CS-CHRS(ASC(BS)-32)+" "ELSE CS- 

BS+"I" 

1480 IF BS-"P" THEN CS-"- " 
1490 PRINTICCSi 

1500 IF BSO"p"THEN PRINTIC" O 
ITAVAI" ;MIDS [AS . 2 , 1) ;ELSE PRINT 
IC.STRINGSU1.32) ; 
1510 PRINTIC." ";LES(INSTR[R1S 
.M1DS (AS, 3. 1) ) ) ; 

1520 IF MIDS [AS ,4,l) i "."THEN [ J R 

INTIC."." ELSE PRINTIC 

1530 LP-LP+Í:IF LP- 13 ANU C-0 TH 

ENLP-0 COSUB940:CLS 

1540 NEXT:i;OSUB940 

1550 PRINT(J448,STRINGSt63, 32) : : 

PRINTSS480 . "PRESSIONE QIJAI.yNER T 

ECLA/MENU" ; : EXEC 3f>038 : RETURN 

1560 CLS 

1570 PRINTÍ8 , "MODO TOCAR NOTAí;" 
1580 IF NN-0 THEN RETIJNN 



1590 PRINT ; INPUT" INICIO NA NOTA 

(ENTER'1) " ;ST 
1600 IF ST<-0 THEN ST-1 ELSE IF 

ST>NN THEN ST-NN 
1610 PRlNT"TEMPO=" ; TE 
1620 PLAY"V31 ;T" «JTP.S (TE) 
1630 EXFC 46481:F0R I-ST TO NN 
1640 PRINT9256 . "TOCANDO NOTA NU 
MERO" ; I 
1650 AS=NS(I) 

1660 BS = LEFT3 IAS , 1 ) : IF BS="p"TH 
EN 1690 ELSE IF BS>""d" AND BS< 
g"THEN PS-CHRS !ASC[BS) -32)+" ; 
" ELSE PS=BS+"I" 

1670 PLAY"0"+MIDS(AS,2 , D +"L"+L 
2S ( INSTR [RIS , MIDS (AS ,3,1))) +MID 
S(AS.4,1)+PS 
1680 GOTO 1700 

1690 PLAY"P"+L2$<INSTR(R1$.MIDS 
CAS. 3, 1) ) ) 
1700 NEXTI 
1710 RETURN 
1720 CLS 

1730 IF NN-0 THEN RETURN 

1740 PRINT05 , "MUDANÇA GERAL DE 

OITAVA" 

1750 PRINT664. "OITAVA SUPERIOR 

OU INFERIOR(S/I) " 

1760 POKE 282.245:INPUT AS 

1770 IF AS-"" THEN RETURN 

1780 IF AS<>"S" AND AS<>"I"THEN 

1750 

1790 PRINT"INICIO EM (ENTER-TUDO 
) " ; : INPUT ST 

1800 IF ST<=0THEN ST-1 : EN-NN : GO 
TO1840 

1810 INPUT "FINAL EM[ENTER'FIM 
) ' ;EN 

1820 IF EN-D OR EN>NN THEN EN=N 
N 

1830 IF STT>EN THEN 5T-EN 
1840 FOR I=lTO NN 



1850 BS=MIDS(NS(D .2,1) 
1860 IF AS="I"THEN CS=CHRS(ASC( 
BS)-1):IF CS="0"THEN CS«"5" 
1870 IF AS="S"THEN CS=CHRS (ASC ( 
BS)+D:1F CS-"6"THEN CS-"1" 
1880 MIDSÍNS(I) ,2,1)-CS 
1890 NEXT: RETURN 
1900 CLS 

1910 PRINTS4 , "CARREGAR MUSICA D 
A FITA" 

1920 PRINT : PRINT" ESTA OPCAO IRA 
APAGAR QUALQUER MUSI 

CA NA MEMORIA -VOCE QUER C 

ONTINUAR (5/N) " : 
1930 POKE 282.255:INPUT AS 
1940 IF ASO"S" THEN RETURN 
1950 PRINT : LINE INPUT "NOMEARQ : " 
;AS 

1960 OPEN "I", #-1. AS 

1970 INPUTI-l.TS.NS 

1980 NN"VAL{NS) :TE-VAL(TS) 

1990 FOR 1-1 TO NN 

2000 INPUTI-l.NS(I) 

2010 NEXT : CLOSEI-1 : RETURN 

2020 CLS 

2030 IF NN-0 THEN RETURN 
2040 PRINTS5, "SALVAR MUSICA EM 
FITA" 

2050 PRINT r LINE INPUT"NOMEARQ : " 
;AS 

2060 OPEN "O" , #-1 . AS 

2070 PRINTt-l.STRS(NN) .STRS(TE) 

2080 FOR I-1TO NN 

2090 PRINT#-1,NS(I) 

2100 NEXT:CLOSEi-l:RETURN 



1610 FOR I-SL TO EL 

1620 AS=N$(I) :BS=LEFTS(AS.l) 
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1950 INPUT AS:IF AS = "" THEN RET 
URN 

1960 IF AS<>"S" AND ASO" I "THEN 
1940 

1970 LOCATE 4.9: INPUT" INICIO EM 

(ENTER= 1 ) " ;ST 
1980 IF ST<=0 THEN ST=1:EN=NN 
1990 LOCATE 4.10: INPUT" FINAL E 
M (ENTER^FIM ) " r EN 
2000 IF EN=0 OR EN>NN THEN EN-N 
N 

2010 IF ST>EN THEN ST = EN 

2020 FOR I=ST TO EN 

2030 BS=MIDS(NS!D ,2,1) 

2040 IF AS="I" THEN CS=CHRS (ASC 

1630 IF BS>="a"AND BS<="g"THEN 

CS=CHRS<ASC(BS)-32)+" ' ELSE C 

S=BS+"# " 

1640 IF BS-"P" THEN CS""- 
1650 CS=" "+CS 

1660 IF BSO"p"THEN CS = CS+"0ITA 
VA |"+«IDS [AS. 2 . 1) ELSE CS=C$+ST 
RINGS<9,32) 

1670 CS=CS+" "+LES(INSTR(P1S.MI 
DS (AS. 3.1) ) ) 

1680 IF MIDS (AS . 4 , 1) =" . "THEN CS 

=CS+"."ELSE CS=CS+" " 

1690 IF C=l THEN LOCATE 5.LP+5: 

PRINT USING"#t#";I; :PRINT CSELS 

E LPRINT USING"***";I; : LPRINT C 

S 

1700 IF RTOO THEN RETURN 

1710 LP-LP*1:IF LP-13ANDC-1 THE 

N LP = 0 :G0SUB lQlOrCLS 

1720 NEXT:GOSUB 1010 

1730 LOCATE 2,18: PRINT"APERTE Q 

UALOUER TECLA-MENU PRINCIPAL * 

1740 QS-INKEYS:IF QS""" THEN 17 

40 

1750 RETUPN 

1760 CLS:COL0R 1.10: LOCATE a.l: 
PRINT"M0DO -TOCAR NOTAS" 
1770 ST-1:IF NN=0 THEN RETURN 
1780 LOCATE 4,5: INPUT" INICIO NA 

NOTA (ENTEB^l) " : ST 
1790 IF STO0 THEN ST=1 ELSE IF 

ST>NN THEN ST=NN 
1800 LOCATE 4 . 7 : PRINT " TEMPO DE 
EXECUÇÃO" " r TE 
1810 PLAY"V15T"+STR5 (TE) 
1820 FOR I = ST TO NN 
1S30 LOCATE 6,12: PR TNT "TOCANDO 
NOTA : " ; I 
1B40 AS=NS(I) 

1B50 BS-LEFTS (AS . 1) : IF BS""P"TH 
EN 1880 ELSE IF BS>="a"ANDBS<=" 
g"THEN PS=CHRS (ASC (BS) -32) +" "E 
LSE PS=BS+"*" 

1B60 PLA¥"0"+MIDS(AS.2.1)+"L"+L 
2S ( INSTR (RIS . MIDS ( AS . 3 . 1) ) ) +PS+ 
MIDS (AS. 4.1) 
1870 GOTO 1890 

1880 PLAY"R"+L2S(INSTR(R1S.MIDS 
(A$ , 3 , 1) ) ) +MIDS (AS . 4 , 1 ) 
1890 NEXT I 
1900 RETURN 

1910 CLS:COLOR 1,3: ST-1 : EN-NN 
1920 IF NN=0 THEN RETURN 
1930 LOCATE 7.1: PRINT "MUDANÇA G 
ERAL DE OITAVA" 

1940 LOCATE 0 , 6 : PRINT"OITAVA SU 
PERIOB OU INFERIOft{S/I) " ; 



(BS)-1):IF CS="0" THEN CS-"1" 

2050 IF AS="S" THEN CS=CHRS (ASC 

(BS)+1):IF CS'"9" THEN CS-"8" 

2060 MIDS(NSU) , 2.D-CS 

2070 NEXT:BETURN 

2080 CLS:COLOR 15,6 

2090 LOCATE 5,1: PRINT"CARREGAR 

MUSICA DO GRAVADOR"; 

2100 LOCATE1 2 , 3 : PRTNT"ATENÇAO J ! 

2110 LOCATE 4,4:PRINT" ESTA OP 
CAO IRA APAGAR 0 
UALQUER MUSICA NA MEMORIA" 
2120 LOCATE 4 . 7 : INPUT"VOCE QUER 

CONTINUAR? (S/N) " ; AS 
2130 IF AS<>"S" THEN RETURN 
2140 LOCATE 4,10: PP IN T "aperte L 
OAD no gravador" 

2150 LOCATE 4,12:LINE INPUT"NOM 
EARQ ! " ; AS 

2160 OPEN "CAS: AS" FOR INPUT AS 



INPUT #1 .NN.TE 
FOR 1= 1 TO NN 
INPUT il.NS(I) 
NEXT : CLOSEI 1 : RETURN 
CLS:COLOR 15.6 



LOCATE 8 . 1 
EM FITA" 
LOCATE 4,6 



2170 
2180 
2190 
2200 
2210 
2220 
SICA 
2230 
UE DC 
2240 : 
ARQ : " 

2250 OPEN "CAS:AS" FOR OUTPUT A 
S*l 

2260 PRINT II , NN ,TE 
2270 FOR 1= 1 TO NN 
2280 PRINT ll.NS(I) 
2290 NEXT:CLOSE 1 1 : RETURN 



PRINT"SALVAR MU 



PRINT"aperle SA 

LINE INPUT"NOME 
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IPRITES EM LOi 



Algumas versões mais poderosas do 
LOGO permitem a programação de 
sprites. Seguindo as instruções deste 
artigo, os usuários do MS X poderão gerar 
e controlar quarenta figuras diferentes. 



Em artigos anteriores sobre a lingua- 
gem LOGO. vimos como desenhar na 
tela com a tanaruga. um cursor gráfico 
que pode ser ativado ou desativado por 
meio de comandos primitivos. 

Como você deve ter notado, a elabo- 
ração de uma figura mais complexa de- 
mora um lempo razoavelmente longo, 
o que torna impossível, por exemplo, 
desenvolvermos um videogame com 
mação gráfica — tarefa simples em BA 
SIC ou outra linguagem imperativa. Al 
gumas versões do LOGO, porém, per 
mitem a geração e utilização de sprites. 

Nos artigos das páginas 1 88 c 80" ■ J 
mos como trabalhar com sprites no 
MSX. única máquina nacional que pos- 
sui esse recurso implementado em hard- 
ware. O Speetrum, o TRS-Color, o Ap- 
ple e o TK-2000 têm comandos especiais 
para definir blocos gráficos (UDG) e 
usá-los em animações rápidas. Mas es- 
ses micros não dispõem de sprites "ver- 
dadeiros" — ou seja, não contam com 
controle de hardware (pelo Vídeo Dis- 
plav Processor) que garanta a movimen- 



tação dos sprites na tela em diferentes 
planos, destacando-os ou ocultando-os 
conforme os critérios que determinam 
a prioridade de uns sobre os outros. 

Aproveitando os recursos do MSX, 
o HotLOGO, versão lançada no Brasil 
pela Sharp para computadores dessa li- 
nha, inclui entre suas propriedades a 
programação de sprites verdadeiros. 

Algumas versões de LOGO para o 
Apple e o TRS-Color também fazem 
uso de sprites. No exterior, a linha Com- 
modore 64 tem poderosos instrumentos 
para a programação de sprites multico- 
loridos. Mas, em todas essas máquinas, 
os sprites não são controlados por hard- 
ware, como nos micros da linha MSX. 



SPRITES PRE-PROGRAMADOS 



Existem doistipos de sprites em Hot- 
LOGO: os pré-programados e os pro- 
gramáveis pelo usuário. Cada um deles 
recebe um número inteiro, entre 0 e 59. 

Os sprites pré-programados, numera- 



dos de 0 a 9 e de 36 a 59, são matrizes 
de 16 x 16 pixels contendo figuras que 
o usuário não pode mudar. O acesso a 
eles é dado pelo comando MUDEFIG, 
seguido do número do sprite. 

As figuras de 0 a 9 são: 

0 circulo 5 foguete 

1 coração 6 tijolo 

2 gato 7 helicóptero 

3 cachorro 8 locomotiva 

4 caminhão 9 vagão 

Os sprites numerados de 36 a 59 re- 
presentam tartarugas em diversos ângu- 
los e posições. Todos aceitam os mes- 
mos comandos e podem ser movimen- 
tados simultaneamente na tela. Os spri- 
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0 QUE E UM SPRITE 




E VERDADEIROS 
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TARTARUGAS X SPRITES 
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VERSÕES DO LOGO 
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SPRITES PRÉ-PROGRAMADOS 




COM SPRITES 


■ 


COMO PROGRAMAR 


■ 


SPRITES FALSOS 




UM NOVO SPRITE 



ies fixos (O a 9), porém, não mudam de 
orientação, como ocorre com as tarta- 
rugas ao encontrarem um comando PA- 
RA DIREITA ou PARAESQLERDA. 



SPRITES PROGRAMÁVEIS 



Os spriles numerados de 10 a 35 po- 
dem ser programados pelo usuário. 

O primitivo utilizado para desenhar 
um sprile novo na tela é muito simples: 
chama-se EDF1G (edita figura), e deve 
indicar o número do sprite a ser criado 
ou modificado. Quando digitamos esse 
comando, a tela fica em branco e apa- 
rece um cursor piscando no canto supe- 
rior esquerdo. Podemos movimentá-lo 
em qualquer direção, por meio das te- 
clas de controle. Para acender um pixel 
(bit correspondente, na matriz do spri- 
te), pressiona-se a tecla de espaço no 
ponto onde estiver o cursor. Para apa- 
gá-lo, pressiona-se a mesma tecla sobre 
esse ponto. 

Se você quiser sobrepor uma grade à 
tela em branco, a fim de visualizar me- 
lhor o padrão do desenho, pressione as 
ledas <CTRL> e <K>. 

Depois de criar ou modificar a figu- 
ra a seu gosto, tecle < ESC > : ela será 
armazenada na memória, sob o núme- 
ro indicado no comando EDFIG. Se não 



quiser guardar a figura que está editan- 
do, tecle <CTRL> e <STOP>. 



ANIMAÇÃO GRÁFICA 



Na produção de animações gráficas 
com sprites, usam-se os comandos PARA- 
F RENTE, PARATRÁS, PARADIREITA 
e PARA ESQUERDA para mover a figu- 
ra de um lado a outro. Por exemplo: 

HG 

MUDEFIG 7 
USENADA 
PARAFRENTE 20 
ESPERE 300 
PARADIREITA 90 
PARAFRENTE 90 
ESPERE 300 
PARATRAS 30 

PARADIREITA 90 PARAFRENTE 50 

O helicóptero (sprile pré-programado 
7) parecerá levantar vôo, esperar um 
momento, voar para a direita, subir 
mais um pouco e, por fim, aterrissar. 

Para simular certas ações — como 
um homem correndo — , podemos usar 
dois ou mais sprites parecidos, mostran- 
do a figura em diferentes estágios do 
movimento. O comando MUDEFIG se 
encarregará de alterná-los, enquanto se 
provoca um deslocamento na tela. 




Como funciona um sprite? 

A característica fundamental de um 
sprite é a sua velocidade. Aliás, é exa- 
tamente esta a origem do nome: spri- 
te, em inglês, designa um pequeno 
duende que, segundo a lenda, corre co- 
mo o vento. 

Outra característica do sprite é a sua 
capacidade de interpenetração, ou se- 
ja, se duas figuras estiverem ocupan- 
do a mesma área de vídeo. aquel3 que 
for de menor prioridade dará a impres- 
são de estar passando "por trás" da 

Teoricamente, pode-se reproduzir 
uma "família" de sprites através de 
software, mas eles não serão suficien- 
temente velozes. Um sprite baseado 
em hardware, no entanto, consegue ter 
velocidade, pois, como é o caso dos 
micros da linha MSX, o vídeo dispõe de 
um rapidíssimo processador, que cui- 
da de todos os detalhes do funciona- 
mento das figuras, sem onerar o pro- 
cessador central. 
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COMPRE 
DE TEXTOS C 




Agora que você já sabe como comprimir 
e descomprimir textos, ponha o 
programa para funcionar e observe 
seu desempenho no desenvolvimento 
de um jogo de aventura. 




Nos artigos das páginas 1332 e 1404, 
analisamos diversos algoriimos destina- 
dos à compressão de textos. Não expli- 
camos, porém, como utilizar esses pro- 
gramas no contexto de um jogo de aven 
tura. Como você deve se lembrar, nos- 
so objetivo inicial era reduzir o cspa 
ço de memória ocupado por uma aven 
tura desse tipo, permitindo a progra- 
mação de um jogo mais complexo e 
extenso. 

Neste artigo, examinaremos as técni- 
cas de compressão e descompressão de 
textos aplicadas ao desenvolvimento de 
um jogo de aventura. Usaremos o algo- 
ritmo que demonstrou a maior eficiên- 
cia de compressão, com a máxima sim- 
plicidade de programação: a técnica de 
compressão de dois códigos por byte, 
baseada na frequência dos caracteres no 
texto. Como vimos, esse algoritmo po- 
de ser programado em BASIC sem difi- 
culdades, e é razoavelmente rápido. 



DESENVOLVIMENTO DE AVENTURAS 



Em uma série de artigos de Progra- 
mação de Jogos (páginas 208, 226, 270, 
306 e 394), tratamos das principais téc- 
nicas de desenvolvimento de aventuras 
em BASIC. Com um número mínimo de 
alterações no programa então forneci- 
do, você poderá empregar as rotinas de 
compressão e descompressão de textos, 
economizando uma quantidade razoá- 
vel de memória. 

Se você não armazenou o programa 
mencionado, digite-o agora, acompa- 
nhando as listagens dadas nos sucessi- 
vos artigos. Entretanto, cada vez que en- 
contrar uma mensagem tal como: 

345 PRINT "TIJOLOS SAO MUITO 
PESADOS, SEU BHAC0 DEVE ESTAR 
DOENDO. " 



Illllimilll « P*OG«AMAÇÃ0DtJ0GOS 49 1MHH| |||||1 



■ TIPOS DE MENSAGEM ■ PROGRAMA DE 

E TEXTO DECODIFICA CÃO 

■ COMO ADAPTAR SEU ■ DE QUATRO EM 

JOGO DE AVENTURA QUATRO NÍBBL ES 

■ A LISTA-MESTRE ■ O PROGRAMA EM A CÃO 



substitua-a por outra mais curta, ape- 
nas para lenibrar-se do que deve ser de- 
finido ou impresso ali. Por exemplo: 
345 PBINT "TIJOLO PESADO" 

Procedendo assim, você poderá tes- 
tar se o programa completo de aventu- 
ras está funcionando bem. sem gastar 
muito tempo digitando mensagens ex- 
tensas, que depois serão retiradas do 
programa principal. 

Quais são as mensagens e frases que 
admitem compressão? Em um jogo de 
aventuras, utilizam-se doze tipos prin- 
cipais de texto alfanumérico: 

- nomes de lugares (por exemplo: 
HALL DE ENTRADA); 

- mensagens de localização (VOCE ES- 
TÁ NO HALL DE ENTRADA); 

- verbos (NADAR); 

- nomes de objetos (REVOLVER); 

- mensagens de identificação de objeto 
(VOCE PEGOU UM REVOLVER); 

- mensagens de advertência (ESTA 
MUITO ESCURO PARA VER AS 
SAÍDAS); 

- mensagens de erro (ISTO NÃO PODE 
SER ESVAZIADO); 

- consequências de açôes do jogador ou 
do programa (exemplo: AS BOLI- 
NHAS SE ESPALHARAM PELO 
CHÃO); 

- perguntas ao jogador (QUER JOGAR 
NOVAMENTE?); 

- frases comuns, em conjunto com 



outras mensagens (VOCE PEGOU); 
mensagens de ajuda (VERIFIQUE SE 
ALGUMA PORTA ESTÁ ABERTA); 
instruções do jogo. 

Os jogos de aventuras dificilmente 
contêm todos esses tipos de texto. De- 
pois de verificar quais deles estão pre- 
sentes, você deverá decidir se vale a pe- 
na comprimi-los. Listas de nomes cur- 
tos (objetos e locais, por exemplo) não 
devem ser comprimidas: o número de 
bytes economizado possivelmente não 
compensará os bytes de código de pro- 
grama gastos para acessar o texto com- 
primido. Todos os outros tipos de tex- 
to (sobretudo as instruções) podem e de- 
vem ser comprimidos, desde que tenham 
duas ou mais palavras: isso levará a um 
ganho real de espaço. 

Para localizar as mensagens que se- 
rão comprimidas, o melhor é tirar uma 
listagem em impressora e marcar todos 
os pontos em que elas ocorrem. Em se- 
guida, faça uma lista das mensagens, in- 
dicando os números das linhas do pro- 



grama onde elas ocorrem. Agrupe as 
mensagens segundo o seu tipo: primei- 
ro as mensagens de localização, depois 
as de identificação de objetos encontra- 
dos etc. Deixe as instruções para o fim. 
Isso facilitará a reprogramação do jo- 
go de aventura e tornará menos cansa- 
tiva a "caçada" aos erros cometidos. 



Tendo todos esses dados, digite no 
computador um programa em BASIC 
constituído apenas de linhas DATA, 
com as mensagens que serão comprimi- 
das. Cada mensagem deve ficar em uma 
linha DATA separada. 

Preparamos essa listagem para o jo- 
go de aventura publicado em INPUT. 
Ela serve para todos os micros, e come- 
ça na linha 5000. Em algumas máqui- 
nas é possível digitar o texto em letras 
minúsculas e a acentuação correta, mas 
não o faça. Isso é imporiante, pois, co- 
mo vimos nos artigos anteriores, empre- 
garemos um código reduzido de repre- 
sentação de caracteres, baseado em sua 
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É possível comprimir sons e melodias 
em jogos de aventuras? 

Existem técnicas bastante eficientes 
para a compressão de melodias, mas 
os algoritmos usados são extremamen- 
te especializados. Uma técnica muito 
simples pode ser empregada, entretan- 
to, pelos usuários dos computadores 
TRS-Color e MSX: ela consiste em 
comprimir a sequencia de comandos 
usados para programar uma melodia 
como se fosse um texto Ivariável 
string), e depois descomprimi-la no mo- 
mento de tocar a melodia. 



prende NUMA masmohba IMUNDA Nesse programa, foram codificados 
estes tipos de texto (com suas linhas): 

5000 a 5110: mensagens de localização; 
5120 a 5260: mensagens de advertência e 
erro; 

5270 a 5370: consequências de ações; 
5380 a 5405: frases comuns e comandos; 
5410 a 5440: instruções do jogo. 

Observe que só excluímos as listas de 
objetos, verbos e locais. As linhas com 
instruções são as mais iongas (cuidado 
para não ultrapassar 255 caracteres), 
pois isso facilita seu posterior uso. 

Depois de digitar o programa, arma- 
zene-o em fila ou disco. 



frequência no texto — diferente, portan- 
to, do ASCII. Como a eficiência de 
compressão só é obtida se usarmos um 
máximo de 30-35 caracteres nesse códi- 
go, trabalharemos apenas com as letras 
maiúsculas e poucos caracteres de pon- 
tuação. 

5000 DATA "VOCE ESTA DO LADO DE 
FORA DE UM GRANDE PRÉDIO" 

5010 DATA *V0CE ESTA A BEIRA DE 
UM GRANDE RIO* 

5020 DATA "VOCE ESTA NUMA FLORE 

STA PETRIFICADA" 

5030 DATA "VOCE ESTA NUMA SALA 

EMPOEIRADA" 

5040 DATA "VOCE ESTA NUMA SALA 
ESCURA" 

5050 DATA "VOCE ESTA EM UM ATAL 
HO ENLAMEADO" 

5060 DATA "VOCE ESTA NA ENTRADA 

DA CIDADE OCULTA" 
5070 DATA "VOCE ESTA NO HALL DE 

ENTRADA" 
5080 DATA "VOCE ESTA NO PÁTIO" 
5090 DATA "VOCE ESTA NO JARDIM" 
5100 DATA "VOCE ESTA NO GUARDA- 
LOUCAS" 

5110 DATA "VOCE ESTA NA SALA DO 
TRONO" 

5120 DATA "ESTA MUITO ESCURO PA 
RA VER AS SAÍDAS" 
5130 DATA "COMO VOCE NAO TEM NA 
DA QUE POSSA SER CONFISCADO, EL 



5140 DATA "DESCULPE, VOCE NAO P 
ODE SEGUIR NESSA DIREÇÃO" 
5150 DATA "VOCE NAO PODE LARGAR 

0 QUE NAO TEM" 
5160 DATA "DESCULPE, NAO POSSO 
AJUDAR AGORA" 

5170 DATA "TIJOLOS SAO MUITO PE 
SADOS, SEU BRAÇO DEVE ESTAR DOE 
NDO" 

5180 DATA "JA ESTA ACESA" 
5190 DATA "ISTO NAO PODE SER ES 
VAZIADO" 

5200 DATA "AS BOLINHAS SE ESPAL 
HARAM PELO CHAO" 
5210 DATA "NADAR AONDE ?" 
5220 DATA "QUE VERGONHA, VOCE S 
E AFOGOU !" 
5230 DATA "VOCE SE MOLHOU TODO" 
5240 DATA "VOCE ACHOU UM REVOLV 
ER" 

5250 DATA "NADA ACONTECE" 

5260 DATA "VOCE NAO PODE PUXAR 

ISTO" 

5270 DATA "VOCE CAIU DENTRO DO 
VASO E FOI EMBORA COM A DESCARG 
A !" 

5280 DATA "PARABÉNS ! VOCE COMP 

LETOU A TAREFA ! " 

5290 DATA "FIM DO PROGRAMA DE A 

VENTURAS" 

5300 DATA "QUER JOGAR NOVAMENTE 

CS/N) ?" 
5310 DATA "HA UM SACO DE BOLAS 
DE GUDE AQUI" 

5320 DATA "TEM UM TIJOLO NO CHA 
0" 

5330 DATA "HA UMA CORRENTE PEND 

URADA SOBRE 0 TRONO" 

5340 DATA 'TEM UM REVOLVER NO C 

HAO" 

5350 DATA "UM OLHO CRAVEJADO DE 

BRILHANTES ESTA NO CHAO" 
5 360 DATA "VOCE ESTA DIANTE DE 
UMA LÂMPADA" 

5370 DATA "DE REPENTE SURGE UM 
COLETOR DE IMPOSTOS" 
5380 DATA "EU NAO SEI COMO" 
5390 DATA "VOCE PEGOU" 
5400 DATA "NAO ESTA AQUI " 
5405 DATA "PRESSIONE QUALQUER T 
ECLA PARA CONTINUAR..." 
5410 DATA "INSTRUÇÕES" 
5420 DATA "DEVIDO A UM COLAPSO 
FINANCEIRO, VOCE TEVE QUE DEIXA 
R 0 PAIS. SEUS PROBLEMAS VAO TE 
RMINAR QUANDO VOCE ENCONTRAR 0 
LEGENDÁRIO OLHO CRAVEJADO DE BR 
ILHANTES DE UM TOTEM INCA." 
5430 DATA "DEPOIS DE TRAZE-LO, 
VOCE TERA QUE ENCONTRAR A SAÍDA 
CUIDADO COM O COLETOR DE IMPO 
STOS ! " 
5440 DATA "*" 



A técnica de compressão estatística 
utili/a um código baseado na lista dos 
caracteres mais frequentes no texto. Ca- 
da código ocupa uni nibblc (ou seja, 
quatro bits), e dois nibbles são compri- 
midos em um byte. Os quinze caracte- 
res mais comum têm códigos cie um nib- 
ble (um número de I a 15). Os quinze 
caracteres seguinies, na ordem de fre- 
quência, têm códigos de dois nibbles 
(um 0, seguido do código de 1 a 15); os 
próximos quinze têm códigos de irês 
nibbles (dois 0, seguidos de um código 
de I a 15) e assim por diante. Em geral, 
os quinze caracteres mais frequentes 
correspondem a 80% ou mais de todo 
o texio, e é por isso que se obtém uma 
compressão em torno dos 50%. 

Se usarmos uma lista dos caracieres 
mais freqiienies em textos em português, 
conseguiremos uma boa eficiência de 
compressão, mas não a ideal. Para al- 
cançar o nível máximo dc eficiência, de- 
vemos usar a ordenação de caracteres 
encontrada no próprio texto. Se você 
quiser determiná-la, siga estas etapas: 

- carregue no computador as linhas DA- 
TA com todas as mensagens; 

- acrescente as linhas do programa de 
contagem de letras fornecido no pri- 
meiro artigo da série (página 1332); 

- rode o programa e anote o resultado. 

Para poupar trabalho ao leitor, pre- 
paramos a lista de frequência de carac- 
teres no texto da aventura de INPVT 
(artigo da página 208 e seguintes). 
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O primeiro conjunto dc quinEe carae 
teres (KSU)) é formado por: branco, 
A,E,0,S,R,D,C,N,T,U,1,M,V e L. Os 
demais caracteres fazem parte, portan 
to, dos conjuntos seguintes. 

De posse dessa lista, podemos escre- 
ver um pequeno programa para testar 
se a compressão e a descompressão es 
tão funcionando com os textos de exem 
pio. Carregue novamente na memória 
somente as linhas DATA anteriores, e 
adicione este programa: 

El El OE GSM 

10 DIM FS(100) ,KS(3) 

20 KS(l)-" AE0SRDCNTUIMVL":KS(2 

) -"PHGQBFJ , . t-7XZC:KÍ(3>-")/" 

180 PRINT "CODIFICANDO..." 
190 I-0:K=1 

200 READ LS:IF LS-"*" THEN GOTO 
230 

210 GOSUB 710:I-I+1:FSÍI)-XS 
215 PRINT I;LS 
220 GOTO 200 
230 NL-I 

240 PRINT : INPUT "NUMERO DA MENS 
AGEM ";I 

242 IF 1-0 THEN GOTO 300 

245 IF Kl OR I>NL THEN PRINT " 

NAO EXISTE" : GOTO 240 
Z50 LS-FS(I) :GOSUB 870 
290 GOTO 240 
300 END 

Para os computadores das linhas 
TRS-80 e TRS-Color, adicione a linha: 

5 CLEAR 2000 



LET kS (2) ""PHGQBFJ , . ! -?XZ ( " r LET 

k3<3>-")/" 
180 PRINT "CODIFICANDO..." 
190 LET i-0:LET k-1 
200 READ LS:IF LS=""" THEN GOTO 

230 

210 GOSUB 710:LET i-i+l:LET f S ( 
i)-x3 

215 PRINT isLS 
220 GOTO 200 
230 LET nL-I 

240 PRINT : INPUT "NUMERO DA MENS 
AGEM ";1 

242 IF i=0 THEN GOTO 300 

245 IF i<l OR i>nL THEN PRINT " 

*** NAO EXISTE" :GOTO 240 

250 LET LS-fS(i) :G0SUB 870 

290 GOTO 240 

300 STOP 

As sub-rotinas que começam nas li- 
nhas 710 (codificação) e 870 (decodifi- 
cação) podem ser copiadas integralmen- 
te do programa listado no primeiro ar- 
tigo, para os computadores respectivos. 

A linha 20 do programa define os três 
conjuntos de códigos de caracteres. O 
laço formado pelas linhas 1-80 a 220 
comprime o lexto, lendo-o linha por li- 
nha em DATA e colocando o resultado 
no conjunto F$ (uma mensagem por li- 
nha). A sub-rotina de codificação é cha- 
mada em 210. 

Finalmente, as linhas 240 a 290 soli- 
citam ao usuário o número da mensa- 
gem que deseja imprimir. Digite 0, se 
quiser interromper o programa. 



ARMAZENAGEM DO RESULTADO 



Vamos agora desenvolver dois pro- 
gramas separadamente. O primeiro fun- 
ciona como o programa anterior, servin- 
do para comprimir todas as mensagens 
e instruções. O resultado, gravado em 
fita ou disco, em um arquivo sequencial, 
será depois carregado pelo programa de 
jogo propriamente dito. Assim, a roti- 
na que executa á compressão não preci- 
sa ser incluída no programa do jogo. 
Neste se introduzem apenas as rotinas 
responsáveis pelo carregamento, des- 
compressão e impressão. 

O segundo programa compõe-se de 
duas rotinas que podem ser acrescenta- 
das ao jogo de aventura. Uma delas lê 
o arquivo sequencial com o texto com- 




ACENTUANDO TEXTOS 
COMPRIMIDOS 

Para os perfeccionistas da progra- 
mação, é frustrante não poder usar ca- 
racteres acentuados em um texto que 
será comprimido pelo algoritmo esta- 
tístico discutido neste artigo. Mas. em 
geral, a falta de acentos não dificulta 

Entre as poucas exceções destaca - 
se a palavra é, que, sem acento, pode 
impedir a compreensão do texto. Para 
evitar esse problema sem aumentar o 
número de caracteres do conjunto uti- 
lizado, recorra ao apóstrofo: coloque- 
o logo após a letra que deve ter acen- 
to agudo, sem deixar espaço — o re- 
sultado será satisfatório. 



primido; a outra efetua a descompres- 
são quando solicitado. Explicaremos 
mais adiante como usá-las. 

No programa-exemplo, o texto com- 
primido foi armazenado em um conjun- 
to FS. Portanto, bastaria escrever uma 
sub-rotina de gravação desse conjunto 
(com texto comprimido) e, depois, uma 
sub-rotina para lê-lo, de volta à memó- 
ria, no programa de jogo. 

Parece tudo muito simples, mas há 
um senão: trabalhando com conjuntos 
alfanuméricos, como o FS, no progra- 
ma que utilizará o texto comprimido, 
ocuparemos um espaço de memória, 
que ultrapassará, em tamanho, o exigi- 
do pelo texto original, descomprimido. 

Devido ao modo como o BASIC tra- 
ta cadeias de caracteres (siring), è difí- 
cil evitar esse problema. Usaremos, as- 
sim, um conjunto numérico T% para 
armazenar os bytes comprimidos. Os 
dois bytes gerados pela compressão de 
cada quatro nibbles serão armazenados 
em um conjunto de T%, pois uma va- 
riável inteira (em todos os computado- 
res, exceto o Spectrum) ocupa dois 
bytes, e pode armazenar um número en- 
tre - 32768 e 32767. O tamanho de T°?o 
será igual ao número de caracteres com- 
primidos (no exemplo anterior, 447 bytes). 

Para localizar o início de cada men- 
sagem nessa sequência contínua de có- 
digos, temos que criar um segundo con- 
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jiinto A%, que conterá os apontadores, 
ou índices de T^o. O comprimento de 
A% será igual ao número de mensagens 
mais 1 (no nosso exemplo, 46). 

Se dimensionamos T% e A% em seu 
limite, obteremos o máximo de econo- 
mia de espaço de memória. 

A rotina de codificação é a seguinte 
(o programa de teste vem depois): 



QQVA 



700 REM - ROT IMA DE CODIFICAÇÃO 

710 N-0:LN-0 

720 FOR J-l TO LEN (L$) 

730 CS-MIDSÍLS. J.U 

740 P-INSTR{KS(K) ,CS> 

750 N-N+l :CI (N) -P:LN-N 

755 IF N<4 THEN GOTO 775 



760 TKNC)-(CtU) OR (16*Ct(2) 
))+256MCt(3) OR (16*Ct{4)))- 
32768 

765 NC-NC+1 :N-0 

775 IF P-0 THEN K-K+l :GOTO 740 

776 K-l 
7B0 NEXT J 

785 IF LN-4 THEN RETURN 
790 FOR J-LN+1 TO 4:Ct(J)-l 
792 NEXT J 

795 T%(NC)-(CtU) OR U6-C1 (2) 
))+256*(CI(3) OR (16*Ct(4)))- 
32768 

796 NC-NC+1: RETURN 



Para executar a rotina nos micros 
compatíveis com o Apple, acrescente: 



740 FOR P = l TO 15:IF CS=MI£>S(KS 
(K).P.l) THEN COTO 750 
745 NEXT P:P-0 

A sub-rotina é igual à apresentada no 
artigo anterior, com uma diferença: os 
nibbles são armazenados de quatro em 
quatro, no conjunto C%, e comprimi- 
dos pelas linhas 760 e 795. O valor 32768 
c diminuído do byte assim comprimi- 
do, para que seu conteúdo fique entre 
-32768 e 32767. 

Segue-se o programa principal: 

10 DIM K$(3) ,Tt (450) .At (46) 
15 DIM Nt (2) .Ct (4) 
20 KS(l)-" AEOSRDCNTUIMVL-:KS(2 
2)-"PHGQBFJ. . !-?X2(" :KS<3)-")/" 
1B0 PRINT "CODIFICANDO. . ." 
190 I-0:K-1:NC-1 

200 READ LS:IF L$-"*" THEN GOTO 
230 

205 I-I+l:At(I)-NC 
210 GOSUB 710 
215 PRINT I;At(I) ;LS 
220 GOTO 200 
230 NL-I:At(I+l)-NC 
300 INPUT "GRAVAR (S/N) " i RS 
310 IF RS-"S" THEN GOSUB 400 
320 END 



:omputadores das linhas 




?^ r*> c*j ,\t 



■ J 



MUNIU 
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TRS-80 e TRS-Color, acrescente a linha: 



5 CLEAR 2000 

A sub-rotina para o armazenamento 
em arquivo sequenciai começa na linha 
400, e grava os conjuntos T (com os có- r—r-] r-jri 
digos comprimidos) e A (apontadores): (j|J | Q | 



440 FOR I-l TO NL+l:PRINTIl,At 
(I) : NEXT I 

450 FOR 1-1 TO NC: PRINTtl , Tl (I 
) : NEXT I 

460 CL0SEÍ1 : RETURN 



400 REM - ROTINA DE GRAVAÇÃO 

410 INPUT "NOME DO ARQUIVO" ; N, 

420 OPEN "0-.I-1.NS 

430 PRINTi-l,NL.NC 

440 FOR 1 = 1 TO NL+1 : PRINT(-1 

[I) :NEXT I 

450 FOR 1 = 1 TO NC:PRINTÍ-1.TÍ 
) : NEXT I 

460 CLOSEI-1 :RETURN 



400 REM - ROTINA DE GRAVAÇÃO 
410 INPUT "GRAVADOR PRONTO ":NS 
430 PRINTl-1 . NL , NC 
440 FOR 1-1 TO NL+1 : PRINTI-1 , Al 
(I) : NEXT I 

450 FOR 1=1 TO NC:PRINT*-1,TI [I 
) : NEXT I 
460 RETURN 



400 REM - ROTINA DE GRAVAÇÃO 
410 INPUT "NOME DO ARQUIVO" ;N 
420 OPEN "CAS:"+NS FOR OUTPUT 
AS II 

430 PRINTI1.NL. NC 



400 REM - ROTINA DE GRAVAÇÃO 
410 NI (1) =NL:Nt (2)=NC 
420 INPUT "GRAVADOR PRONTO " ; NS 
430 STORE Nl:STORE AI:STORE Tl 
460 RETURN 

Para executar o programa completo 
de compressão, acrescente ao final as li- 
nhas DATA. O computador executará 
toda a tarefa automaticamente. À me- 
dida que codifica as linhas, o programa 
as exibe na tela, perguntando se o usuá- 
rio deseja gravar o resultado. Se a res- 
posta for S, os conjuntos A e T serão 
armazenados para uso posterior pela ro- 
tina de decodificaçào. 



No Specirum não há tratamento se- 
parado para arquivos sequenciais em fi- 
ta, a não ser que se disponha de um Mi- 
crodrive (não existente no Brasil). Por 
isso, o programa para essa máquina 
apresenta uma abordagem diferente dos 
demais micros. 




Inicialmente, carregue o jogo de 
aventura completo e acrescente as linhas 
abaixo (renumere-as para compatibilizar 
com o programa do jogo, se isto se fi- 
zer necessário): 

10 DIM kS<3. 15) , t [450) ,a{46) 
15 DIM c(4) 

20 LET kSU)=" AEOSRDCNTU1MVL" : 
LET kS (2) =*PHGQBFJ . . ! -?XZ ( " : LET 

kSOí-*)/" 
190 LET i-=0: LET k*l : LET nc=l 
200 PRINT " ENTRE A MENSAGEM ";: 
LINE INPUT LS:IF L$-"«" THEN GO 
TO 230 

205 LET l-i+l:LET a(l)-nc 

210 GOSUB 710 

215 PRINT l ; a (l ) ; LS 

220 COTO 200 

230 LET nl-i:LET a(i+l)=nc 
240 STOP 

O programa principal pedirá ao usuá- 
rio para entrar as mensagens pelo tecla- 
do, uma de cada vez. Quando chegar à 
última, responda com um asterisco, pa- 
ra assinalar o fim. 

Usaremos um conjunto numérico T 
para armazenar os bytes comprimidos. 
Os dois bytes gerados pela compressão 
de cada quatro nibbles serão armazena- 
dos em um elemento de T. O tamanho 
desse conjunto será igual ao número de 
caracteres comprimidos (no nosso exem- 
plo, 447 bytes). Para localizar o início 
de cada mensagem nessa sequência con- 
tínua de códigos, temos que criar um se- 
gundo conjunto, A, que conterá os 
apontadores, ou índices de T. O com- 
primento de A será igual ao número de 
mensagens mais 1 (no exemplo, 46). 

Se dimensionarmos T e A no limite, 
obteremos o máximo de economia de 
memória. Acrescente a rotina de codi- 
ficação: 
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720 FOR 3-1 TO LEN LS 

730 LET cS-LS(J) 

740 FOB p-1 TO 15:IF cS-kS(k.p) 

THEN GOTO 750 
745 NEXT p : LET p=0 
750 LET n»n+l : LET c(n)-P:LET L 

755 IF n<4 THEN GOTO 775 
760 LET tlnc)-(cU) OR <16*c 
12] ) )*256-(c(3) OB (16*c(4))) 
-32768 

765 LET nc-nc+l:LET n-0 

775 IF p=0 THEN LET k-k+l:GOTO 
740 

776 LET k*l 
760 NEXT 3 

7B5 IF Ln-4 THEN RETUHN 

790 FOB j = Ln+l TO 4 : c ( j ) -1 : NEX 



T 3 

795 LET t{rtc)-(c(l) OR (16"c 
(2) ) ) +256* (c(3) OR (16*c(4))) 
-32768 

796 LET nc=nc+l : RETURN 

A sub-rotina é igua! à apresentada no 
artigo anierior, com uma diferença: os 
nibbles são armazenados de quatro em 
quatro, no conjunto C%, e comprimi- 
dos pelas linhas 760 ou 795. O valor 
32768 é diminuído do byte assim com- 
primido, para que seu conteúdo tique 
entre -32768 e 32767. 

Depois de acrescentar o programa 
principal e a rotina de decodificação ao 
jogo da aventura, execute-o. Após en- 
trar todas as mensagens, grave o progra- 
ma e os dados juntos, em fita. 



895 Ct<3)-C2 AND 15:Ct(4)-(C2 
AND 240) /16 
900 FOR L-l TO 4 
910 IF CMD-0 THEN K-K+l:GOTO 
930 

920 PRINT MIDSÍKS(K) ,CI(L) .1) ; : 
K-l 

930 NEXT L :NEXT J 
950 PRINT r RETURN 

Complete o programa com a rotina 
de carregamento dos conjunios A e T, 
com os dados no arquivo sequencial: 



A descompressão do texto é feita por 
Uma segunda rotina, que deve ser acres- 
centada ao programa de aventura: 

coEiaiEiMr - 



500 REM - ROTINA DE LEITURA 
510 INPUT "NOME DO ARQUIVO" ; NS 
520 OPEN "I".»-1.N3 
530 INPUT#-1,NL,NC 
540 FOB 1-1 TO NL+1:INPUT|-1.AI 
(I) : NEXT I 

550 FOR 1-1 TO NC:lNPUT|-l,TttI 
) : NEXT I 

560 CLOSEI-l : RETURN 



500 REM - ROTINA DE LEITURA 
510 INPUT "GRAVADOR PRONTO ";NS 
530 INPUTt-l.NL.NC 
540 FOR 1-1 TO NL+1:INPUT#-1,AÍ 
(If :NEXT I 

550 FOR 1-1 TO NC:INPUT#-1.TÍ(I 
) : NEXT I 
560 RETURN 
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500 REM - ROTINA DE LEITURA 
510 INPUT "NOME DO ARQUIVO" rNS 
520 OPEN "CAS:"+NS FOR INPUT AS 
• 1 

530 INPUTH.NL.NC 

540 FOR 1-1 TO NL+l:INPUTtl.AI 

(I) :NEXT I 

550 FOR 1-1 TO NC:INPUTIl,Tt(I 
) :NEXT I 

560 GLOSEI 1 : RETURN 



500 REM - ROTINA DE LEITURA 
510 INPUT "GRAVADOR PRONTO ";NS 
530 RECALL NI : RECALL At : RECALL 
Tt:NL-NI(l) :NC-NÍ<2> 
560 RETURN 

Apresentamos a seguir um pequeno 
programa de teste. Com ele, você terá 
oportunidade de verificar o funciona- 
mento conjunto das rotinas de leitura e 
de descompressão: 



10 DIM KS<3) ,TI(450) ,AI(46) 
20 KStl)"" AE0SRDCNTUIMVL":KS(2 
)- p PHGQBFJ, . !-?XZ(":KS(3)-")/* 
30 GOSUB 510 

240 PRINT: INPUT "NUMERO DA MENS 
AGEM " j I 

242 IF 1-0 THEN GOTO 300 

245 IF Kl OR I>NL THEN PRINT " 

*** NAO EXISTE" :GOT0 240 

250 GOSUB 670 

290 GOTO 240 

300 END 

As linhas 10, 20 e 30 desse programa 
devem ser colocadas no inicio do pro- 
grama do jogo. Elas dimensionam os 
conjuntos de trabalho do descompres- 
sor de textos e chamam a rotina 510. Es- 
ta carrega os conjuntos T e A, a partir 
do texto comprimido que está armaze- 
nado na memória auxiliar. 




As linhas 240 a 300 simplesmente im- 
primem a mensagem solicitada pelo 
usuário e mostram como a sub-rotina 
870 (dc decodificação) deve ser usada 
dentro do programa de aventura. 



COMO ADAPTAR 0 PROGRAMA 



Carregue de novo o programa de 
aventura e localize as linhas que contêm 
mensagens incluídas na lista de compres- 
são. Suponhamos que você encontre a 
seguinte linha {abreviada, como reco- 
mendamos no começo deste artigo): 
345 PRINT "TIJOLO PESADO" 

Substitua-a por: 
345 LET I-17:GOSUB 870 

Essa linha iguala o apontador I ao 
número da mensagem na lista compri- 
mida, e passa o controle para a sub- 
rotina de descompressão. Esta localiza 
o início e o fim da mensagem, no con- 
junto de apontadores A, e imprime na 
tela o lexto descomprimido. 

Repita esse procedimento com todas 
as linhas onde ocorrem mensagens, e 
grave o resultado final. Não se esqueça 
de adicionar as linhas 1 0, 20 e 30 do nos- 
so exemplo (renumeradas, se for o caso). 



Para o Spectrum, o esquema é um 
pouco diferente. Carregue o programa 
de aventura que gravou em fita, junta- 
mente com o programa de compressão 
e o texto comprimido. Apague as linhas 
190 a 796 e modifique cada uma das li- 
nhas com mensagens, como foi explica- 
do antes. Em seguida, acrescente: 

860 REM - DECODIFICAÇÃO 

870 LET n-0 : LET k*= 1 

875 FOR j-a(i) TO a(i+l)-l 

880 LET c2-INT{(Uj)+32768)/256 

'■ LET cl-(t(jl+32768> c2*256 

890 LET c(l)-cl AND 15:LET c<2) 

= tcl AND 2401/16 

895 LET c:3)=c2 AND 15:LET c(4) 

-(c2 AND 240J/16 

900 FOR L-l TO 4 

910 IF ctL)-0 THEN LET k-k+1 -G 

OTO 930 

920 PRINT KSÍK.cCD) : : LET k = l 
930 NEXT LrNEXT j 
950 PRINT : RETURN 

Armazene a nova versão em fita. Pa- 
ra rodar o programa completo, use um 
GOTO para a primeira linha do progra- 
ma de aventura (não a linha 10 do pro- 
grama de codificação). Nunca empregue 
o comando RUN, pois você perderá to- 
do o texto das mensagens. 
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IHÂMÂCÃ© 



Muitos consideram o Pascal como a 
melhor alternativa para o BASIC. 
Com seus poderosos recursos, podem-se 
elaborar programas bem estruturados 
e fáceis de documentar e testar. 



Para quem está familiarizado com 
apenas uma linguagem de programação, 
o aprendizado de outra pode apresen- 
tar maior ou menor dificuldade — o que 
depende, sobretudo, do grau de seme- 
lhança entre as duas linguagens. 

Se a estrutura e sintaxe de ambas fo- 
rem parecidas, basta fazer uma tradu- 
ção: o novo "vocabulário" é aprendi- 
do, e as regras de formação de instru- 
ções são aplicadas da mesma maneira. 
As vezes, porém, a diferença entre as 
linguagens é tão grande, que o aprendiz 
se vê forçado a abrir mão das regras que 
conhece e adotar um outro raciocínio. 

A linguagem LOGO, por exemplo, 
examinada em artigos anteriores, foi 
projetada para facilitar ao máximo a in- 
trodução de iniciantes ao mundo da pro- 
gramação. Entretanto, para quem foi 
"criado" em BASIC — como a maio- 
ria dos usuários de micros pessoais — , 
a adaptação pode apresentar problemas. 
Algumas vezes, chega a ser difícil acei- 
tar as afirmativas de que LOGO foi fei- 
to para principiantes! 

Isso ocorre, fundamentalmente, por- 
que o LOGO tem uma estrutura inter- 
na bastante diferente da do BASIC, em- 
bora seu vocabulário seja mais simples. 
LOGO é uma linguagem mais bem es- 
truturada, e trabalha com listas hierár- 
quicas, como o L1SP. Essas caracterís- 
ticas estimulam o programador inician- 
te a adorar padrões estruturados de ra- 
ciocínio e de resolução de problemas. 



A programação estruturada lambem 
é um aspecto importante de uma lingua- 
gem imperativa, o Pascal. Como vimos 
no artigo da página 1288, ele faz parte 
da família de linguagens algorítmicas e 
declarativas iniciadas com o ALGOL. 
Sua filosofia pode parecer totalmente 
estranha ao programador BASIC. Ain- 
da que experiente, este está acostuma- 
do a elaborar programas no teclado, tes- 
tando e alterando seções à medida que 
progride, até chegar a um resultado que, 
muitas vezes, evidencia um objetivo não 
muito claro no começo do trabalho. O 
Pascal só lhe parecerá menos complica- 
do se ele tiver desenvolvido hábitos de 
programação estruturada — em BASIC 
ou outra linguagem. 

Por que então dar-se ao trabalho de 
aprender Pascal? Além de permitir a ela- 
boração de programas mais bem estru- 
turados e de simplificar a documenta- 
ção e a execução de testes, essa lingua- 
gem apresenta certas vantagens sobre o 
BASIC. Em programas muito comple- 
xos, o Pascal produz um código mais 
claro e curto. A facilidade em definir 
procedimentos possibilita a programa- 
ção modular e a formação de bibliote- 
cas de procedimentos, que podem ser 
aproveitados integralmente em outros 
programas. Finalmente, as versões mo- 
dernas do Pascal são adequadas tanto 
para programação científica (cálculos 
matemáticos) quanto para o desenvol- 
vimento de aplicações comerciais. 




FUNDAMENTOS DO PASCAL 



O Pascal foi criado em 1 970 pelo pro- 
fessor Niklaus Wirth, do Instituto Fe- 
deral de Tecnologia em Zurique, Suíça. 
Seu nome é uma homenagem a Blaise 
Pascal, filósofo e matemático do sécu- 
lo XVII, responsável por importantes 
descobertas cientificas e inventor de uma 
das primeiras máquinas de calcular me- 
cânicas, a Pascalina. 

O objetivo de Wirth era desenvolver 
uma linguagem destinada a ensinar os 
conceitos fundamentais de estruturas de 
programação. Essa linguagem deveria 
estimular o estudante a elaborar a estru- 
tura do programa antes de começar a 
escrevê-lo. Nela Wirth introduziu uma 
serie de recursos a fim de permitir que 
a solução programada contenha a pró- 
pria informação a ser processada. 

Em outras palavras, para se escrever 
um programa em Pascal é necessário 
planejar como resolver o problema. A 
solução escolhida é refinada sucessiva- 
mente, cobrindo detalhes cada vez me- 
nores, até se alcançar o nível de um pro- 
cedimento (unidade algorítmica). Só se 
trabalha no programa principal depois 
que todos os procedimentos necessários 
estiverem programados. 

Para desenvolver o Pascal, Wirth uti- 
lizou muitas das idéias em que se baseia 
o ALGOL 606. Originalmente orienta- 
do para o ensino de linguagens estrutu- 
radas em computadores de grande por- 
te, o PASCAL foi adaptado para uso em 
microcomputadores. Hoje, é extensa- 
mente empregado tanto no ensino quan- 
to em aplicações comerciais em micros. 



PASCAL PARA MICROS 



Existem versões do Pascal para diver- 
sas linhas de micros pessoais e profissio- 
nais. As versões reduzidas (que não têm 
todos os comandos do Pascal padroni- 
zado), chamadas Tiny-Pascal, podem 
ser carregadas de fita cassete. Porém, o 
Pascal é mais eficiente quando usado 
com sistemas baseados em disco, como 
o UCSD Pascal, para o Apple. 

Como são muitas as versões comer- 
ciais dessa linguagem, não forneceremos 
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listagens específicas para cada linha de 
microcomputador — como fizemos pa- 
ra o BASIC e o LOGO. Mas. mesmo 
que não tenha um compilador Pascal, 
não se preocupe: você poderá entender 
os elementos básicos da linguagem, sem 
precisar rodar o programa em um com- 
putador. Afinal, o desenvolvimento de 
programas longe da máquina é uma das 
principais características do Pascal. 

Existe outra diferença fundamental 
entre o BASIC usado em microcompu- 
tadores pessoais e o Pascal: ele é uma 
linguagem compilada. 

O BASIC adotado na maioria dos 
micros é uma linguagem interpretada — 
cada vez que o interpretador encontra 
uma instrução em BASIC, converte-a 
para códigos de máquina e a executa. 
Assim, para um laço simples como: 

10 FOR N-l TO 100 
20 PHINT N 
.10 NEXT, N 

cada declaração nas linhas 10 a 30 será 
traduzida cem vezes para código de má- 
quina! Não surpreende, portanto, que 
o BASIC seja considerado uma lingua- 
gem lenta. Outra desvantagem c que o 
interpretador precisa permanecer na me- 
mória o tempo todo, ocupando um es- 
paço valioso, que poderia ser utilizado 
pelo programa ou dados do usuário. 

Uma linguagem compilada funciona 
de maneira diferente. Uma vez que se te- 
nha entrado o programa na máquina, na 
forma de um texto (o programa-fonte), 
ele é traduzido de uma vez só para có- 
digo de máquina (o progratna-objeto), 
e é este que o computador executa. De- 
pois de feita a tradução, o programa 
compilador não é mais necessário, fican- 
do armazenado em fita ou disco. Em 
consequência, mais espaço na memória 
é liberado para uso do programa apli- 
cativo desenvolvido pelo usuário. 

As linguagens compiladas são muito 
mais rápidas que as interpretadas, pois 
o demorado processo de tradução para 
código de máquina é executado apenas 
uma vez. Embora existam compiladores 
para o BASIC, essa linguagem não foi 
projetada para ser compilada; assim, 
seus programas-objeto são longos e, fre- 
quentemente, tão lentos quanto o 




programa-fonte. O Pascal, ao contrário, 
foi projetado especificamente para ser 
compilado, permitindo a obtenção de 
programas tão compactos e rápidos 
quanto os escritos diretamente em As- 
sembler. E há uma vantagem adicional: 
é mais simples desenvolver um progra- 
ma em Pascal do que em Assembler. 

O Pascal apresenta, portanto, um 
equilíbrio bem satisfatório entre veloci- 
dade de desenvolvimento e de execução. 
Somente o C, uma linguagem semelhan- 
te a ele em estrutura e filosofia, apre- 
senta maior eficiência. 



PB0JET0 ALGORÍTMICO 



Como vimos, a programação em 
Pascal requer uma fase inicial de proje- 
to, antes de se chegar à máquina. Nessa 
fase, utilizam-se certas ferramentas de 
planejamento que ainda não discutimos 
em INPUT, entre as quais o fluxogra- 
ma. Este deve ser usado com cautela, 
pois, em si, não é estruturado. Uma fer- 
ramenta mais conveniente para o pro- 
jeto de programas é o algoritmo: úm de- 



talhamento passo a passo do método a 
ser empregado na solução do problema. 

Um exemplo familiar de um algorit- 
mo é a receita culinária: ela contém to- 
da a informação necessária para repro- 
duzir um certo prato. Um programa fi- 
nalizado tem, igualmente, toda a infor- 
mação de que o computador precisa pa- 
ra resolver um problema ou realizar uma 
tarefa de um determinado modo. 

Entretanto, o programador (ou o co- 
zinheiro), quando começa a escrever um 
programa (ou a receita), não tem uma 
idéia bem definida sobre o procedimen- 
to a seguir para chegar ao objetivo de- 
sejado. Como exemplo, vamos analisar 
o processo de elaboração de uma receita 
de torta. Em uma primeira tentativa, 
poderíamos dividir a tarefa (ou algorit- 
mo inicial) em quatro passos: 

1. Preparar a massa 

2. Preparar o recheio 

3. Colocar tudo numa forma 

4. Assar a torta 

Ao fazer uma torta, talvez você não 
precise cumprir lodos os passos (é pos- 
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sível comprar a massa pronta, por exem- 
plo!). Suponhamos, porém, que o com- 
putador é um "cozinheiro amador", 
que deve conhecer cada detalhe. 

A próxima etapa consiste em fazer a 
subdivisão dos passos em operações me- 
nores — processo denominado refina- 
mento gradativo. Você encontrará esse 
conceito na metodologia de desenvolvi- 
mento de programas muito extensos, 
que não podem ser projetados de uma 
só vez. No nosso exemplo, refinando o 
passo 1, teríamos: 

1.1 - Pesar a farinha 
1.2- Pesar a manteiga 

1 .3 - Misturar a manteiga com a farinha 

1.4 - Adicionar água 
1.5- Mexer 

Poderíamos refinar ainda mais cada 
passo, até chegarmos a um nível de sim- 
plicidade lai que fosse possível a qual- 
quer um fazer uma torta. 

O principal, nesse processo, foi ter- 
mos considerado previamente todos os 
passos da solução do problema, em vez 
de iniciarmos a tarefa em um ponto 
qualquer, ao acaso. Para a programa- 
ção em Pascal, o método a ser seguido 
é muito similar. No estágio inicial, es- 
creve-se cada passo em português mes- 
mo. Refinando-os sucessivamente, che- 
ga-se à formalização proporcionada por 
uma declaração ou instrução cm Pascal. 
Separados do algoritmo inicial, os pas- 
sos podem ser representados por proce- 
dimentos ou funções. Estes são poste- 
riormente reunidos em um programa 
só. Mas como escrever um programa 
em Pascal sem conhecer os comandos 
dessa linguagem? Examinemos alguns 
exemplos. 



UM PROGRAMA EM PASCAL 



Os programas em Pascal costumam 
parecer complicados demais em relação 
á simplicidade da tarefa a cumprir. Ve- 
ja, por exemplo, este programa, que so- 
ma dois números e exibe o resultado: 



ad (nl.nZJ : 
aultado:=nl+n2; 
Iteln (resultado) 



Como se pode notar, o programa e 
mais longo que um equivalente em BA- 
SIC, embora de execução mais rápida. 
Quanto maior a complexidade da tarefa, 
porém, maiores a economia e concisão 
I oferecidas por um programa em Pascal. 



O programa anterior poderia resul- 
tar de um algoritmo inicial como: 

1. Estabeleça as condições iniciais 

2. Inicie o procedimento 

3. Entre os números 

4. Acrescente os números 

5. Imprima o resultado 

6. Termine o procedimento 

O programa segue rigorosamente o 
algoritmo. Observe que é necessário de- 
clarar explicitamente os passos 1, 2 e 6 
— ou seja, precisamos especificar o que 
é trabalhado pelo programa, quando 
iniciá-lo e quando encerrá-lo. 

Este é um dos fatores que explicam 
a maior extensão de um programa escri-, 
to em Pascal em relação a um equiva- 
lente em BASIC. Vamos agora analisar 
o programa linha por linha: 
ptrogram exemplo ( ínput , output ) ; 
significa que o programa terá entradas 
(inputj e saídas (output) e se chamará 
exemplo. Se ele não precisasse ler dados 
externos, bastaria escrever: 
pi oaram exemplo (output) ; 

O ponto e vírgula no final de uma li- 
nha indica o fim de uma declaração. 

As características de todas as variá- 
veis usadas por um programa em Pas- 
cal devem ser especificadas. A linha: 



informa que usaremos irês variáveis in- 
teiras (inleger): nl, n2 e resultado. 

Feitas as declarações, assinalamos o 
início do procedimento propriamente di- 
to, com a palavra begin. Note agora que 
o texto do programa é recuado em rela- 
ção à linha anterior. Este é um recurso 
muito usado em programas estrutura- 
dos, pois indica para quem lê quais são 
as declarações deniro de um procedi- 
mento ou laço de repetição. 

A leitura dos dados pelo teclado é 
muito semelhante à do BASIC: read 
(nl,n2). Só podemos usar aqui esses no- 
mes de variáveis porque elas foram de- 
claradas antes, em var. 

A declaração aritmética lambém é se- 
melhante a uma instrução em BASIC: 
reaultado:-nl+n2; 

O símbolo de atribuição := foi as- 
sim definido para evitar a confusão cau- 
sada pelo = do FORTRAN e do BA- 
SIC, que dá a impressão errónea de se 
tratar de uma fórmula matemática. 

Finalmente, escrevemos o resultado: 
writeln (reaultado) 
que tem um efeito semelhante ao 



PRINT RBSULTADO de um programa 
em BASIC. Não há ponto e vírgula no 
final da linha, pois a declaração seguinte 
ê um end. Alguns compiladores permi- 
tem o uso desse sinal desde que se colo- 
que uma linha em branco depois. 

O Pascal conta, naturalmente, com 
vários outros comandos e funções, ad- 
mitindo também a introdução de notas 
e comentários no programa, entre cha- 
ves: lei. Com os microcomputadores que 
não têm essas teclas, pode-se utilizar 
uma combinação de parênteses com as- 
teriscos (* e *). 



EDIÇÃO DO PROGRAMA 



O processo de edição e teste de pro- 
gramas em linguagem compilada, como 
o Pascal, não é tão direto como com um 
interpretador. Normalmente, edita-se 




NGUAGINS 



apenas o programa-fonte, com o auxí- 
lio de um editor de linhas (quase sem- 
pre disponível como um utilitário do sis- 
tema operacional) ou de um processa- 
dor de textos. Depois, compila-se o pro- 
grama e testa-se o resultado, executan- 
do-o. Caso se verifique algum erro. to- 
do o processo deve ser repetido, a par- 
tir do programa-fonte. 

Alguns compiladores Pascal, como o 
UCSD e o Turbo-Pascal, dispõem de 
um editor próprio, o que evita esse vai- 
vém entre editor, sistema operacional e 
compilador. Nesse caso. tanto o progra- 
ma-fonte quanto o programa-objeto po- 
dem residir na RAM enquanto durar o 
processo, agilizando-o muito — se o 
programa não for muito longo, e se 
houver boa capacidade de memória. 

Como está em linguagem de máqui- 
na pura, sem comentários, rótulos, ou 
similares, o programa compilado ofere- 



ce a vantagem final de inviabilizar a O uso mais sério do Pascal requer 

ação de "espiões". Assim, depois de componentes mais caros, exigindo, no 

editar um programa em Pascal, você po- mínimo, um acionador de disquetes. Por 

derá ter a certeza de que ninguém copia- isso, máquinas como o Apple e a IBM- 

rá os algoritmos de sua criação. PC contam com as melhores versões. 



PROGRAMAS DISPONÍVEIS 



Existem compiladores Pascal para a 
maioria das linhas de microcomputado- 
res. Entretanto, como já mencionamos, 
eles variam muito entre si, quanto ao 
funcionamento e desempenho, e nem io- 
dos podem ser encontrados com facili- 
dade no Brasil. Antes de adquirir um 
programa desse tipo, convém fazer uma 
pesquisa em diferentes "software hou- 
ses" — de preferência nas especializa- 
das em uma determinada linha de com- 
putadores ou nas dedicadas exclusiva- 
mente à programação Pascal. 




O compilador Pascal para o Spec- 
trum é exclusivo para microdrives e dis- 
quetes (não disponíveis no Brasil). In- 
clui um editor de linhas, um gerador de 
números aleatórios e suporte gráfico em 
alta resolução. 



D 

Existem diversas versões do Pascal 
para o TRS-Color. Suas características 
variam conforme o sistema operacional 
utilizado: Flex, RS-DOS (original) ou 
OS-9 (semelhante ao Unix). Todas fun- 
cionam somente em micros dotados de 
acionadores de disquetes. 



Esse micro dispõe de duas versões do 
Pascal: um compilador que roda sob o 
sistema operacional TRSDOS e compa- 
tíveis, e outro, semelhante ao Turbo 
Pascal, que roda sob o sistema opera- 
cional CP/M. Ambas são bastante com- 
pletas, mas não incluem suporte gráfico. 



As duas versões mais utilizadas de 
Pascal para as máquinas compatíveis 
com a linha Apple são o UCSD e o 
Turbo-Pascal. O UCSD (abreviatura da 
universidade onde foi desenvolvida: 
University of Califórnia al San Diego) 
foi o primeiro e mais popular sistema 
Pascal (p-Syslem). Trata-se, na realida- 
de, de um sistema operacional comple- 
to, que substitui o DOS. e não apenas 
de um compilador. 

Já o Turbo-Pascal roda sob o sistema 
operacional CP/M {Contrai Program for 
Microcornpmers), que pode ser coloca- 
do em um Apple quando se troca a UCP 
por um microprocessador Z-80. 



O Pascal para o MSX é do tipo Mi- 
crosoft e destina-se a máquinas dotadas 
de acionador de disquetes de 5.25 ou 3.5 
polegadas, rodando sob o sistema ope- 
racional MSX-DOS ou compatível. 
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Se você tem problemas com a formatação 
de saída para valores monetários, 
poderá encontrar aqui uma boa solução; 
o uso de duas eficientes rotinas 
no lugar do comando PRINT USING. 

O comando PRINT USING é um dos 

recursos mais poderosos do BASIC de 
aleumas linha*, de computadores, como 
o TRS-80. o TRS-Color e o MSX. Com 
ele. podemos formatar de diferentes ma- 
neiras a saída de números e cadeias al- 
fanuméricas. Porém, esse comando apre- 
senta inconvenientes, sobretudo quanto 
à foi matacão de valores monetários. 

No Brasil, usam-se variáveis de pre- 
cisão dupla (quinze dígitos) para repre- 
sentar valores monetários, pois a preci- 
são simples não nos permite iidar com 
valores superiores a 10 milhões de cru- 
zados. E o PRINT USING, infelizmen- 
te, é muito lento quando se trata de for- 
matar variáveis de precisão dupla. 

Além disso, não é possível utilizar o 
PRINT USING dos computadores men- 
cionados para formatar valores mone- 
tários segundo a convenção brasileira, 
que impõe a separação dos milhares por 
pontos e dos centavos por vírgulas. 

As funções que explicamos nesle ar- 
tigo oferecem várias alternativas para a 
formatação de valores, e são muito mais 
rápidas (três a seis vezes) do que o 
PRINT USING normal. 



FORMATAÇÃO COM PARÊNTESES 



Esta rotina permite a formatação de 
valores monetários segundo as conven- 
ções dos balanços contábeis: com os nú- 
meros negativos entre parênteses: 



110 INPUT "Valor ";UI 

120 PRINT FNNS(V#.El) : GOTO 110 

A função FNFS, estabelecida na linha 
10, tem dois argumentos: V # , um va- 
lor monetário em precisão dupla (pode 
incluir centavos ou não), e F%, um va- 
lor inteiro que especifica o número de 
colunas a usar na formatação (com jus- 
tificação à direita). As linhas 100 e 120 
formam um laço simples de teste. 

O BASIC das máquinas mencionadas 
é capaz de definir em apenas uma linha 
expressões de grande complexidade — 
inclusive expressões condicionais que 
imitam a operação de um IF...THEN. 
Observe, por exemplo» a expressão; 

LEíTS í " ( " , ABS (VI <D) ) 

Pode parecer estranho utilizar um ope- 
rador de comparação (sinal de menor) 
dentro de uma expressão matemática. 
Mas podemos compreender sua função 
sc levarmos em conta que o resultado nu- 
mérico de uma expressão lógica é igual 
a -1 (ou 1. em alguns computadores), 
se ela for verdadeira, e a 0, se for falsa. 
Assim, se V # for menor que 0, a ex- 
pressão anterior resultará em um síríng 
contendo um parêntese à esquerda — 
LEFTSCCM). A linha 10 concatenará es- 
se parêntese (se o número for negativo) 
ou um espaço em branco (se o número 
for positivo) à cadeia de saída. A expres- 
são UEFTS (" ", ABS <V# > 0)) se en- 
carrega da operação, que depois é repe- 
tida para o parêntese direito. 



DINHEIRO À BRASILEIRA 



Examinaremos agora uma função ca- 
paz de formatar valores usando pontos 
e vírgulas, segundo a convenção bancá- 
ria brasileira. Símbolos especiais repre- 
sentarão números positivos (créditos) e 
números negativos (débitos). 

Como essa função é mais complexa, 
definiremos uma sub-rotina: 



■ 


0 PRINT USING 


■ 


VALORES MONETÁRIOS 


■ 


FORMATAÇÃO 


COM PARÊNTESES 


■ 


UMA ROTINA PODEROSA 



ISO INPUT "Valor " ;V# 

160 COSUB 1000: PRINT SS:GOTO 15 

0 

1000 1S=MIDS ISTRS1F1X <V#) ) . 2) :F 
S=MID$(STRS (1NTU00* !V#-FIX(V#) 
))) ,2) :SS-"" 

1010 IF LEN(IS)<=3 AND VAL(FS)> 
0 TKEN SS-t3+S$+"."+FS:(SOTÓ 103 
0 

1015 IF LENIISK'3 AND VAL(FS)= 
0 THEN SS=IS+SS:GOTO 1030 
1020 SS-"."+RICiHTS(IS,3)+S$:IS- 
LEFTS(IS.LEN(IS)-3) : GOTO 1010 
1030 IF V*<0 THEN X$=NS ELSE XS 
-PS 

1040 SS-RIGHTS (STRINGS ( E t , BS) + S 
S+XS.EÍ) : RETURN 

Os argumentos de entrada são: V # , 
valor monetário em precisão dupla (in- 
cluindo centavos ou não, após o ponto); 
£%, número de colunas para formata- 
ção; BS, caractere de preenchimento à 
esquerda (asteriscos, zeros ou um espa- 
ço em branco); PS e NS, símbolos à di- 
reita do valor, para indicar créditos e dé- 
bitos, respectivamente. O string de saí- 
da retorna em SS. As linhas 110 a 160 
testam a sub-rotina. 

Na linha 1000, V# t quebrado em 
dois valores inteiros, correspondentes 
aos cruzados e aos centavos. Esses va- 
lores são armazenados em duas cadeias, 
IS e FS, respectivamente. 

As linhas 1010 e 1015 verificam se IS 
tem três ou menos dígitos (um valor 
igual ou menor que 999 cruzados), e 
se existe um valor em centavos 
(VAUF$>>01. Conforme o resultado 
dos dois testes, a rotina termina, saltan- 
do para a linha 1030, que concatena o 
símbolo adequado para créditos e débi- 
tos ao final de SS. A linha 1040 enqua- 
dra o string SS de saída dentro de 
espaços. O laço formado pela linha Í020 
reduz progressivamente o tamanho de 
IS, separando cada grupo de três dígi- 
tos por um ponto, até que UEN(IS) seja 
menor ou igual a 3. 

Entre as aplicações dessa rotina, 
inclui-se o preenchimento de cheques — 
os caracteres de proteção de campo são 
colocados à esquerda do valor. Se qui- 
ser adicionar um cifrão (ou o símbolo 
Cz$) entre os caracteres de proteção e 
o valor numérico, na linha 1000 da ro- 
tina, que inicializa SS, substitua a ex- 
pressão SS= "" por SS = "CzS". 



10 DEF FNNS(VI,Ei)=RIGHTS(STRIN 
GSIEÍ." -)+LEFTS(" (" .ABS (VK0) ) 
+LEFTS ( " " ,ABS (Vt>-0) )+MID$(STR 
S(V*) .2) ,EÍ!+LEFT$<") " .ABS (Vl<0 
) ) +LEFTS ! " " .ABS (V|->0) ) 
■100 INPUT "Numero de colunas "; 



110 INPUT "Numero de colu 
Et 

120 INPUT "Caractere de p 
imento " :BS 

130 INPUT "Símbolo p/valo 
tivo ":P$ 

140 INPUT "Símbolo p/valo 
tlvo " rNS 
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■ROGRAMACAO BASIC 



IMPRIMA 
SEUS DESENTO! 



TIPOS OE IMPRESSORA 



DESPEJO DE TELA 



PROGRAMAÇÃO GRÁFICA 



MONTAGEM DA TELA 



PROBLEMAS COM CORES 



Ao desligar o micro, os maravilhosos 
desenhos que você criou na tela 
desaparecem sem deixar rastros. 
Com umas poucas linhas em BASIC, você 
poderá preservá-los em papel. 

A capacidade gráfica dos micros per- 
mite a elaboração de vários cipos de grá- 
fico ou desenho no vídeo. Quer você es- 
teja interessado nas aplicações práticas 
desses gráficos, quer seja um artista 
preocupado em adotar um novo meio de 
expressão, as imagens produzidas com 
a ajuda do computador apresentam uma 
grande limitação: existem apenas en- 
quanto a tela não for apagada. Se você 
quiser uma cópia permanente da ima- 
gem criada, precisará usar uma máqui- 
na fotográfica ou copiar a tela em uma 
impressora gráfica. 

Para guardar uma listagem, uma lis- 
ta de números ou um texto produzido 
por um programa, os usuários também 
têm que recorrer a uma impressora. Há, 
porém, uma grande diferença entre co- 
piar uma tela de textos, escritos em AS- 
Cil padrão, e uma tela gráfica, de bai- 
xa ou alta resolução. Com exceção dos 
:rocomputadores da linha Sinclair 
(ZX-81 e Spectrum), que possuem o co- 
mando COPY, os comandos de impres- 
são do BASIC, como LPRINT, PR # 1, 



PRINT#-2 ele, funcionam apenas com 
caracteres ASCII. Alguns fabricantes 
oferecem impressoras que têm o conjun- 
to ampliado dc caracteres. Este inclui os 
caracteres semigráficos, típicos dos mi- 
cros TRS-80, TRS-Color. TK-2000 c 
MSX, mas ainda assim não é suficiente 
para copiar uma tela com gráficos de 
média ou de alta resolução. 

Como vimos em um artigo da seção 
Periféricos (página 648), existem dois 
modelos de impressora para micros: as 
impressoras de tipo formado (como as 
baseadas na "margarida"), e as impres- 
soras matriciais. Embora algumas im- 
pressoras margarida possam fazer grá- 
ficos compostos de pontos, elas são mui- 
to lentas para ter alguma utilidade na 
cópia freqiiente de telas gráficas. 



As impressoras matriciais, por sua 
vez, imprimem os caracteres utilizando 
um conjunto de pontos, num processo 
idêntico ao da formação de caracteres 
na tela de vídeo. O sinal enviado pelo 
computador à impressora aciona uma 
série dc pinos ou agulhas situados na ca- 
beça de impressão, de modo a reprodu- 
zir um padrão de pontos que compõe 
um determinado caractere. 

Nas impressoras matriciais não- 
gráficas (impressoras de teMo), os pa- 
drões formados para cada caractere já 
estão pré-programados em uma memo- 
ria ROM na impressora, e não podem 
ser manipulados ou alterados indivi- 
dualmente. Nas impressoras matriciais 
gráficas, porém, pode-se programar ca- 
da agulha da cabeça de impressão por 
meio de software, o que permite a ela- 
boração de gráficos de alta resolução. 



Como funciona um programa desti- 
nado a copiar cada pontinho de alta re- 




IIIIIIIIIIIHH 



■■■■llllllllll 



solução de uma tela gráfica? O coman- 
do COPV dos micros da linha Sinclair 
é um bom exemplo disso. Esse coman- 
do efetua uma operação que chamamos 
despejo de tela(screen dump, cm inglês). 

Com o micro acoplado a uma im- 
pressora adequada (própria para a linha 
Sinclair), o comando COPV "traduz" 
as configurações de pontinhos de cada 
setor da tela em padrões dc atuação das 
agulhas da cabeça de impressão. Desse 
modo, o conteúdo da tela (texto e/ou 
gráfico) é fielmente reproduzido — me- 
nos a cor, evidentemente. 

Os sistemas operacionais de alguns 
micros (como o TRS-80) podem ter fun- 
ções de despejo de tela, que também só 
atuam se uma impressora compatível es- 
tiver acoplada à máquina. O CP-500 da 
Prológica, por exemplo, despeja a tela 
semigráfica na impressora P-500S, 
quando as teclas J, K e L são pressio- 
nadas simultaneamente no teclado. 

A maioria dos micros, porem, não 
tem comandos ou funções especiais pa- 
ra produzir despejos de tela. E mesmo 
que seu computador disponha desses re- 
cursos, lembre-se de que eles nada pro- 
duzirão sem a impressora adequada. 



PROGRAMAÇÃO DA IMPRESSORA 



Nãoé possível escrever na impresso- 
ra usando o mesmo método com o qual 
escrevemos na tela. Se dermos, por 
exemplo, o comando: 

PRINT CHHS (255) 

no TRS-Color, um bloco colorido será 
exibido na tela (255 é o código do ca- 
ractere gráfico correspondente). Entre- 
tanto, se você tentar fazer isso com a im- 
pressora, enviando o comando: 
PHINT|-2.CHR$(255) 

nada acontecerá, pois a impressora in- 
terpretará o código 255 de modo total- 
mente diferente. Dizemos, por essa ra- 
zão, que os códigos de controle dos dois 
periféricos, vídeo e impressora, produ- 
zem efeitos diferentes. 

Precisamos, assim, de um programa 
especial para efetuar o despejo de tela 
— um programa que prepare a impres- 
sora para receber gráficos. Algumas 
funções automáticas da impressora de_- 
vem ser desligadas, e outras, ligadas. É 
necessário acionar a cabeça de impres- 
são de forma que as agulhas possam ser 
controladas individualmente. Além dis- 
so, o avanço horizontal e vertical da ca- 
beça de impressão precisa ser feito em 
passos diminutos, sem deixar espaços 
entre cada ponto impresso. 

As impressoras gráficas podem ser 



programadas externamente para efetuar 
as funções mencionadas. Nesse modo- 
grúfico, é possível aluar sobre grupos de 
agulhas usando códigos de oito bits. A 
informação captada na memória de ví- 
deo é enviada para a impressora não sob 
a forma de códigos ASCII, mas como 
códigos binários correspondentes ao pa- 
drão de ativação das agulhas da cabe- 
ça. Assim, existem códigos binários pa- 
ra desligar q avanço automático de li- 
nha, para avançar a cabeça de uma li- 
nha para outra, para definir o espaço 
entre as linhas eic. O programa propria- 
mente dito simplesmente "varre" a te- 
la e produz as linhas de impressão cor- 
respondentes a cada grupo de bits. 

Mais adiante, apresentaremos pro- 
gramas desse tipo para os micros Spec- 
trum e TRS-Color. Antes disso, porém, 
precisamos examinar as combinações 
micro-impressora possíveis. 



COMPATIBILIDADE 



Os programas de despejo de tela de- 
pendem não só do tratamento dado à te- 
la gráfica pelo computador, como tam- 
bém da marca e do modelo da impres- 
sora que será utilizada. Isso ocorre por- 
que ainda não existe uma padronização 
dos caracteres de controle gráfico e da 
cabeça dc impressão. 

Nossos programas destinam-se às 
máquinas que adotam o padrão Epson. 
Este foi estabelecido para as impresso- 
ras do fabricante da marca Epson, c po- 
de ser encontrado em modelos muito 
populares, corno, por exemplo, o Epson 
MX-80, MX-120c FX-80. No Brasil, vá- 
rias empresas, entre elas a Elebra (im- 
pressoras Mônica e Alice), a Rima e a 
Grafix, seguem esse padrão. 

As impressoras compatíveis com o 
padrão Epson usam uma matriz de oito 
pontos de altura. Esta é a configuração 
mais conveniente, pois permite ao mi- 
cro enviar informações provenientes da 
tela, um byte de cada vez, pela interfa- 
ce paralela. O TRS-Color possui inter- 
face serial, mas o método é o mesmo. 
No Spectrum e no ZX-81, o usuário de- 
ve inserir uma interface paralela no co- 
nector de expansão. O Spectrum, além 
disso, precisa ser carregado com um 
programa em linguagem de máquina, 
para usar a impressora. 



TEORIA DE PROGRAMAÇÃO GRÁFICA 



A programação da sequência dc im- 
pressão das agulhas da cabeça para a ob- 
tenção de efeitos gráficos pode ser feita 
por meio de alguns comandos simples 



em BASIC. O processo é muito fácil. 
Para entendê-lo, devemos examinar co- 
mo certos bytes enviados para a impres- 
sora são interpretados pelos circuitos de 
controle da mesma. 

A impressora normalmente está capa- 
citada para reconhecer os códigos ASCI I 
e ASCII estendido, que estão pré-pro- 
gramados na memória ROM. Assim, se 
enviarmos uma sequência de códigos en- 
tre hexadecimal 20 (correspondente a es- 
paço em branco) e 7E (líl), a impresso- 
ra irá reconhecê-los como códigos de ca- 
racteres. Por exemplo, a palavra ABA 
é impressa quando enviamos: 
LPRINT CHR$(65) ;CHRS(32) ; 
CHRS (65) 

Entre hexadecimal 00 e 1F síiuam-se 
caracteres de controle com diversas atri- 
buições, que variam de impressora pa- 
ra impressora. No padrão Epson, 
CHRS(7) faz soar o alarme sonoro da 
impressora, CHRSM3) provoca um re- 
torno de carro, enquanto CHRSt 12) de- 
termina a mudança de página. 

Outras funções de controle podem ser 
acionadas por meio da combinação de 
vários caracteres. Essas sequências co- 
meçam sempre pelo caractere CHR$(27), 
que corresponde ao ESCAPE — por is- 
so, são chamadas dc sequências de es- 
cape. A sequencia ESC G, por exemplo, 
coloca a impressora em modo de im- 
pressão em qualidade carta (cada carac- 
tere é impresso duas vezes): 
LPRINT CHR$(27) ; "G" 

Para mudar o espaçamento entre li- 
nhas de impressão, utiliza-se ESC A n. 
onde n refere-se ao número de passos 
por avanço de linha: 
LPRINT CHRS (27) ; "A" ; CHRS (4) 

Um passo é equivalente a 1/48 ou 
1/72 de polegada, dependendo do mo- 
delo da impressora (com densidade sim- 
ples ou densidade dupla). No exemplo 
anterior, o deslocamento entre cada li- 
nha de impressão equivale ao espaça- 
mento entre quatro agulhas. 

A scleção do modo gráfico, no padrão 
Epson, é feita pela sequência F.SC K 
ou ESC L. Quando você seleciona o 
modo gráfico, o código binário envia- 
do à impressora aciona diretamente o 
padrão de agulhas da cabeça de impres- 
são: quando o bit for 1, a agulha cor- 
respondente é acionada; quando o bit 
for 0, a agulha fica inativa. O bit me- 
nos significativo (DO) controla a agulha 
inferior, e o bit mais significativo (D7), 
a agulha superior. Assim, se quisermos 
imprimir uma coluna de pontos, a agu- 
lha de cima e as duas últimas agulhas de 
baixo não serão acionadas; o código a 
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enviar é 1000001 1. ou 128 + 0 + 0 + 0 + 
0 + 0+2+1 = 131 em decimal. 

A sequência de escape precisa espe- 
cificar, ainda, o número de bytes de có- 
digo gráfico que serão enviados, e, em 
seguida, os bytes propriamente ditos: 
ESC K nl n2 dados. 

Os bytes nl e n2 são. respectivamen- 
te, o mais significativo e o menos signi- 
ficativo de um número de dczesscis bits, 
e devem ser apresentados no conhecido 
formato 256 * n2 + nl. 

Se vamos enviar 550 bytes gráficos, 
damos o comando: 

LPRINT CHRS(27) ;CHRS(38) ;CHRS 
(2) f 

pois 256*2 + 38 = 550. A expressão 
que se segue, em BASIC, serve para cal- 
cular nl c n2 a partir de n, que repre- 
senta o número total de bytes: 

Nl - INT (N/2S6) 
N2 - N-INT (N/256) 

Este programa ilustra o padrão de 
acionamento das agulhas: 




10 LPRINT CHRS(27) ; "A" ; CHRS (8) 
20 LPRINT CHRS (27) ;"K"; CHRS (16) 
; CHRS (0) ; 

30 FOR J-7 TO 0 STEP -1 

40 LPRINT CHRS(2**J); 

50 NEXT J 

60 FOR J-0 TO 7 

70 LPRINT CHRS (2**J> ; 

80 NEXT J 

90 LPRINT CHRS (10) : 

um 

10 LPRINT CHRS(27) ;"A";CHRS(8) 
20 FOR 1-1 TO 5 

25 LPRINT CHRS (2 7) ; "K" ; CHRS (16) 
;CHRS (0) ; 

30 FOR J-7 TO 0 STEP -1> 
40 LPRINT CBRS(2"J) i 
50 NEXT J 

60 FOR J-7 TO 0 STEP -1 
70 LPRINT CHRS(2*J) ; 
80 NEXT J 

90 LPRINT CHRS (10) ; 
100 NEXT I 

Q 

10 PRINTt-2,CHRS(27) j-A- ;CHRS 
(8) 

20 PRINT*-2,CHRS(27) ;-K" ;CHRS 

(16) ; CHRS (0) : 

30 FOR J-7 TO 0 STEP -1 

40 PRINT»-2,CHR$(2"J) ! 

50 NEXT J 

60 FOR J-7 TO 0 STEP -1 
70 PRINTt-2.CHRS(2-J) ; 
80 NEXT J 

90 PRINT»-2,CHRS(10) í 



5CE] 

5 PRI1 

10 PR INT CHRS (27) : "A" ; CHR$ (8) 
20 PRINT CHRS (27) ; "K" ; CHRS ( 16) ; 
CHRS (0) ; 

30 FOR J-7 TO 0 STEP -1 
40 PRINT CHRS(2"J) ; 
50 NEXT J 

60 FOR J-7 TO 0 STEP -1 
70 PRINT CHR3(2-J) ; 
80 NEXT J 
90 PRINT CHRS (10) ; 
100 PR|0 

A linha 1 0 estabelece um espaçamen- 
to de oiio passos entre linhas. A 20 pro- 
grama a impressora para o modo gráfi- 
co, avisando que a seguir serão envia- 
dos dezesseis bytes gráficos. Quando os 
dados não eslão incluídos imediatamen- 
te na sequência de escape, o ponto e vír- 
gula no final dessa linha é obrigatório. 
Os laços das linhas 30 a 50 e 60 a 80 im- 
primem, respectivamente, um padrão 
descendente e outro ascendente de pon- 
tos (determinados pelos códigos que cor- 
respondem a potencias de 2: 128, 64, 32 
Mc), Finalmente, a linha 90 alimenta 
uma linha. 



MONTAGEM DA TELA 



Para copiar um desenho na impres- 
sora, é necessário executar um progra- 
ma que o trace na tela. Existem duas al- 
ternativas para isso. Uma delas consis- 
te em carregar o programa de desenho 
no computador e, em seguida, combiná- 
lo com o programa de despejo (a nume- 
ração das linhas de ambos tem que ser 
diferente). O primeiro programa deve 
ser alterado na tela depois que o dese- 
nho estiver pronto, de modo que o pro- 
grama de despejo seja chamado auto- 
maticamente, ou quando se pressionar 
determinada tecla. Se achar convenien- 
te, poderá incluir permanentemente o 
programa de despejo no programa de 
desenho, na forma de uma suh-roiina. 

A segunda alternativa é a de mais fá- 
cil execução, mas depende da capacida- 
de do micro de armazenar o conteúdo 
de telas gráficas em disco ou fita (co- 
mandos BSAVE, SA VEM ele). Se seu 
computador tem essa capacidade, car- 
regue e execute o programa de desenho 
e armazene a tela resultante em fita ou 
disco. Depois, carregue o programa de 
despejo usando um comando na linha 
10 (essa linha não foi colocada nos pro- 
gramas que se seguem justamente para 
criar um espaço para o seu comando de 
carregamento). Com esse procedimen- 
to, o programa irá ler, em primeiro lu- 
gar, a tela armazenada. 



Para os usuários do TRS-Color, o 
sistema é um pouco diferente: algumas 
linhas do programa de despejo têm que 
ser executadas antes que o desenho seja 
traçado na tela. 



IMAGEM DE LADO 



A imagem despejada por este progra- 
ma é imprimida de lado — ou seja, no 
sentido longitudinal c não transversal, 
relativamente à imagem que aparece na 
tela. Com isso. obtemos uma imagem 
maior e mais margem no papel. 



15 LPRINT CHRS5; 

20 LPRINT CHRS2 7 1 "A"; CHRS8; 

30 FOR x=0 TO 255 STEP 4 

40 LPRINT CHRS 1 3 ; CHRS27: "K" ; 

CHRS0; CHRS96: CHRS1; 

50 FOR y-0 TO 175 STEP 8 

60 FOR d"0 TO -7 STEP -1 

70 LET bt- (POINT (x ,y-d) *128) + (P 

01NT (x.y-d) *64)+ (POINT (x+1 ,y-d> 

* 32) +■ (POINT (x; 1 . y-d) * 16) + (POINT 

<x+2.y-d)"B)+IPOINT(x+2,y-d>«4) 

+ (POINT fx+3 . y-d) *2) * (POINT (x + 3 . 

y*d) ) 

72 LPRINT CHRSbt ; 
74 LPRINT CHRSbt ; 
80 NEXT d 
00 NEXT t 
100 NEXT x 

1Í0 LPRINT CHRS4 : STOP 

A linha 15 desliga o conjunto de ca- 
racteres ASCII na impressora. O co- 
mando LPRINT da linha 20 informa à 
impressora que não deve haver espaça- 
mento entre as linhas impressas. 

O laço que vai da linha 30 à 100 var- 
re uma linha da tela, em blocos de qua- 
tro pixels de cada vez. A linha 40 passa 
para a impressora um código de retor- 
no de carro (código 13) e, em seguida, 
o código *0, que se encarrega de prepa- 
rar a máquina para receber o número de 
bytes que a linha corrente de tela irá en- 
viar. Esse byte é composto dos códigos 
96 e 1 (também na linha 40), que são in- 
terpretados como 1*256 + 96 — ou se- 
ja, 352 bytes. 

O laço da linha 50 à tinha 90 percor- 
re a tela de cima para baixo: o laço da 
linha 60 à 80 toma um bloco de oito pi- 
xels de cada vez. Antes de incrementar 
os laços, a linha 70 usa o comando 
POINT para ler os pixels na tela. Estes 
são condensados pela expressão numé- 
rica no byte bl, que é enviado duas ve- 
zes à impressora, pelas linhas 72 e 74. 
A segunda impressão fará a imagem 
aparecer duas vezes maior que na tela, 
na direção horizontal. 

Finalmente, a linha 1 10 retoma a im- 
pressora ao conjunto ASCII e encerra 
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a execução. Se você quiser transformar 
esse programa em sub-roiina, não se es- 
queça de substituir o STOP dessa linha 
por um RETURN. 



El 



2 DIM AIH . 1) 

4 FOR K J 0 TO B: REA!) AIK,0},A(K 
.1) : NEXT 

6 DATA 3,3,2.1,0.0.3,1.3,3.0.0, 
1,2,3,1.3. 3 

20 PR [NT t-2. CHRS(27) :"A";CHRS 
(8) 

30 FOR L = 0 TO 255 STEP 4 

40 PRIN1' t-2 ,rHRS(H) :CHHSUn . 

-K- ;CHRS (01 1CHR5U28) ; CHRS El) i 

50 FOR K-191 TO 0 ÍTKf ' 1 

60 T=0:S=0:FOH M-0 TO 3;P"PPOIN 

TIL*M,K) :T-TM + A(P,0) ;S*SM+MP 

, 1 ) : NEXT 

70 PRINT |-2,CHRS(T) ;CHHS(SI { 
80 NEXT K.L 

90 PRINT |-2.CHRS(27) ;"«*" 

É importante que as três primeiras li- 
nhas do programa (2, 4 e 6) precedam 
a rotina de geração da tela gráfica que 
será impressa. Na linha 10. reservada 
para o seu programa, você deve estabe- 
lecer o tipo de SCREEN e de PMODE. 
Em virtude da forma de armazenagem 
de telas gráficas no TRS-Color, o pro- 
grama de despejo precisa levar em con- 
ta as cores empregadas. 

A linha 2 dimensiona um conjunto 
A, para armazenar o padrão de pontos 
usado em cada cor. Existem nove cores, 
mas nem rodas podem aparecer na tela 
ao mesmo tempo. Os padrões estão de- 
finidos em DATA. na linha 6, c são car- 
regados no conjunto A pela linha 4. 
Dois itens em DATA determinam cada 
cor; o segundo é impresso sobre o pri- 
meiro. Por exemplo, o primeiro par de 
números (3,3) indica preto, formando 
um padrão binário de 3 ( 1 1 ) sobre 3(11). 
O segundo par (2,1) especifica verde, 
formando um padrão de 1 (01) sobre 2 
(10). Note que há repetição de pares na 
sequência, mas isso não importa: a se- 
gunda ocorrência determina uma cor 
que não pode aparecer na tela junto 
a primeira especificação. 

A linha 20 prepara a impressora pa- 
ra receber gráficos. A sequência de es- 
cape que contém instrui a impressora a 
não dar espaçamento entre linhas. 

O laço que vai da linha 30 à 
80 percorre uma linha da tela, 
em blocos de quatro pixels. A 
linha 40 envia à impressora um 
código de retorno de carro (13) 
e, em seguida, o código *, que 
coloca a impressora em modo 
gráfico. Ainda nessa linha, 
CHRS(0) define a densidade de 
I impressãoeCHR$U28);CHR$(l) 



diz à impressora para esperar 128 + 
1*256 bytes gráficos, ou seja, um total 
de 384 bytes. 

O laço da linha 50 à 80 percorre a te- 
la de cima para baixo (192 pixels de al- 
tura); o da linha 60 toma quatro pixels 
de cada vez, examina-os com PPOINT, 
calcula as cores e coloca o resultado nos 
bytes S e P. A linha 70 imprime esses 
bytes. Finalmente, a linha 990 reinicia- 
liza a impressora. 



PROBLEMAS COM CORES 



O programa de despejo de tela, em 
BASIC, imprime apenas uma represen- 
tação binária, em preto e branco, da te- 
la de alta resolução, pois reproduz o pa- 
drão de pixels sem diferenciar as cores 
presentes na imagem original. Em con- 
sequência, a imagem obtida apresenta 
densidade igual para todas as cores, não 
representando com fidelidade o desenho 
copiado. 

É possível, porém, escrever um pro- 
grama de despejo de tela em que as co- 
res sejam representadas por diferentes 
tonalidades de cinza e preto. Esse efei- 
to é conseguido por impressões sobre- 
postas de partes da imagem, de modo 
a obter tons mais escuros ou claros de 
cinza, conforme a cor presente. Em uma 
tela com quatro cores, por exemplo, po- 
dem-se definir quatro diferentes padrões 
de pontos, para representar o vermelho, 
com um cinza bem claro; o verde, com 
um cinza mais escuro etc. Isso é feito ini- 
bindo-se o avanço da cabeça de im- 
pressão. 

Evidentemente, o tempo total de im- 
pressão é muito longo, nesse caso. Um 
despejo de tela simples demora quase 
meia hora em alguns micros; se levar- 
mos em consideração a cor, esse tempo 
será aumentado para várias horas! Um 
programa em código de máquina — co- 
mo o que apresentamos a seguir para 
duas linhas de computadores — pode re- 
solver esse problema. 



10 CLEAR 59999 

20 LET L-100: RESTORE L : FOR N- 

60000 TO 60247 STEP 8 

30 LET T-0:FOR M-0 TO 7 

40 READ A : LET T-T+A:POKE N+M. A. 

NEXT M 

50 READ A:IF AOT THEN PRINT "E 
RR O NOS DADOS DA LINHA " ; L : STO 
P 

60 LET L-L+10: NEXT N : STOP 
100 DATA 243.62.3.205,1.22.33,7 
0.639 

110 DATA 235.6,4.205.9.235.62.0 
,756 

120 DATA 50 ,83,235,62.0.50.64.2 
35. 799 

130 DATA 6.175.221,33.85,235.19 
7.62. 1014 

140 DATA4.237. 75.83. 235, 245. 205 
,15.1099 

150 DATA 235.245.205,30,235.241 
,126,32.1349 

160 DATA 6.203.63.203.63,203,63 
. 230, 1034 

170 DATA 7.214,7.237.68.221.119 
.0.873 

180 DATA 221.35,241.12.61.32.22 
2.58.882 

190 DATA S4 , 235 , 660 . 50 . BA\ 235. 1 
93. 16,957 

200 DATA 205.6.7,197.33.74,235. 
6,763 

210 DATA 9. 205. 'i. 235. 221 . 33,85, 
235. 1032 

220 DATA b. 175. 197.6.4. 30.0, 19/ 
,615 

230 DATA203. 35, 203. 35, 221. 12--..0 
. 254. 1077 

240 DATA 0,40, 7. 221,53. 01,62.3. 3 
86 

250 DATA 24.2.62.0,131,95.221,3 




Illll 
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270 DATA 193,16.215.193.16.197, 
33,65,928 

280 DATA 235.6.5,205.9.235,62.1 
0. 767 

290 DATA 215.58.83.235.198.4.50 
.83.926 

300 DATA 235,210,115,234.62.4.2 
15.251.1326 

310 DATA 201.126,35,215,16,251, 
201,197,1242 

320 DATA 205.170.34.71.4.126,20 
3. 7,820 

330 DATA 16,252,230.1.193.201,1 
97.62.1152 

340 DATA 175, 144. 230 . 240. 71 .88. 
2Z. 0.978 

350 DATA 203.35.203.18.203,35,2 
0J, 18, 918 

360 DATA 121.203.63,203.63.203, 
63. 111 .1030 

370 DATA 38.0.25.17,0.88.25,193 
. 386 

380 DATA 201,27,64,27,65,8,5.27 
,424 

390 DATA 65.8,27.65.0,13.27.42. 
247 

400 DATA 0.96.1.0,0.48,48,193.3 



mm 



10 CLEAR 200,29992 

20 CLS:F0R K-0 TO 12:T=0:FOR L= 

0 TO 23 : READ A 

30 POKE 29993+24*K+L.A:T=T+A 
40 NEXT : READ A:IF AOT THEN PRI 
NT "ERflO NOS DADOS DA LINHA" ; 10 
00+10*K.END 
50 NEXT 

1000 DATA 0.0.0.3,27,51,24.134. 
254,151.111.111.140,242.111,140 
.240.150.182.133,1,39.3,108.235 



1010 DATA 140.231.77.39.4,129,2 
,38,3.108.140.220.150,193,68,16 
7.140.216.48.140,214.23.0.142,2 
632 

1020 DATA 95,52,4,51,141.1.1.19 
0,191.166.228,52,6,134.4,52.2.2 
3.0.134.48.140,10 7,166.1996 
1030 DATA 134,167,192,108,97.10 
6, 228, 38, 240. 5 3,2, 53,6, 166. 228, 
90.193,255,38,223,198,3.52,6,28 
76 

1040 DATA 51,141.0,212,198.192. 
231. 228.48. 140 . 65 , 141 . 81 . 79 . 198 
,4.72.72,106,192.43.2.138.3,263 

7 

1050 DATA 90,38,245,173.159.160 
, 2 , 173. 159. 160, 2. 106,228, 38,230 
, 1 34. 13, 173. 159, 160. 2. 106,97. 38 

, 2845 

1060 DATA 207.53,6.134.10,173.1 
59, 160,2. 53,4, 17 3,159,160,0. 1 29 
.3,39.4.203.4.38,138.48,2059 
1070 DATA 140.17,32,18,5,27,42, 
4. 128. 1.3. 1.0, 2. 3.0.1,2,3,2,27. 
64 , 230. 128.880 

1080 DATA 166,128,173.159,160,2 
.90, 38. 247. 5 7.134 , 32.109. 141 .25 
5.48, 39, 1 ,68. 52, 2, 166. 101 ,214. 2 
582 

1090 DATA 182.193.1,34,1,68,230 
.224.61,211.186,31,1,2 30,99,84. 
84.84,109,141.255,18.39,1,2567 
U00 DATA 84,58.166.99.109.141. 
255.8.39.8.132,15,64,139,15,68. 
32.5.132. 7,64,139, 7.198,1984 
1110 DATA 1,74,43.3,88.32,250,1 
09,141,254,2 38,39,14,52,4,197.8 
5,39,5,88,235,224,32,3.2250 
1120 DATA 84,235.224,52.4.166,1 
32,164,224,84.3 7,3.68.32.250,17 
1 . 141 , 254 , 206, 171 , 141 , 254 , 203 , 5 



7, 3357 

Embora o código de máquina esteja 
comido em uma lisla de números em 
DATA, cada linha inclui somas de ve- 
rificação, cuja finalidade é evitar que se 
cometam erros de cópia. 

Não se esqueça de observar as pre- 
cauções usuais ao rodar um programa 
em linguagem de máquina: para não 
correr riscos, armazene o programa, as- 
sim como suas versões corrigidas, em fi- 
ta ou disco, antes de executá-lo. 

Depois de testar o programa comple- 
to, rode-o com RUN e, em seguida, apa- 
gue-o (o programa em código de máqui- 
na ficará armazenado em uma porção 
protegida da memória RAM). Digite ou 
carregue seu programa de desenho e exe- 
cute-o. Para imprimir a imagem na te- 
la, chame este comando: 



RANDOMIZE USR 60000 



D 



EXEC 30000 

E importante desligar a alimentação 
automática de linha em sua impressora, 
antes de usá-la para despejos de tela. Pa- 
ra isso, siga as instruções do manual de 
operação. 

Imprima a tela em uma fita de im- 
pressão já usada, pois isso proporciona- 
rá um contrasie melhor entre as diferen- 
tes tonalidades. 



Já examinamos a filosofia e os 
princípios básicos do Pascal. 
Mostraremos agora como as estruturas 
dessa linguagem são organizadas 
na construção de um programa. 



ESTRUTURAS 
DO PASCAL 



Como vimos no artigo da página 
1436, ê fundamental estudar a maneira 
de solucionar determinado problema an- 
tes de iniciar a elaboração de um pro- 
grama em Pascal. O algoritmo para a re- 
solução do problema deve ser aperfei- 
çoado e refinado até se tornar semelhan- 
te a um programa que possa ser com- 
preendido pelo microcomputador. 

Para realizar essa tareia, você preci- 
sará conhecer as ferramentas disponíveis 
HO seu micro, ou seja, as estruturas e os 
comandos aceitos pelo Pascal. Esse pro- 
cedimento não é muito diferente daquele 
que adotamos ao elaborar um progra- 
ma cm BASIC. A partir de nos^i expe- 
riência com a máquina, sabemos quais 
comandos são válidos, o que nos permi- 
te esboçar uma solução adaptável ao mi- 
crocomputador. 

No BASIC, diversos recursos podem 
ser utilizados em cada etapa da resolu- 
ção de um problema. Esses recursos não 
se resumem a simples comandos, mas a 
combinações de vários deles. Por exem- 
plo, quando precisamos repetir uma ta- 
refa várias vezes, um laco FOR...NEXT 
costuma ser uma boa saída; para uma 
tomada de decisão, basta um 
IF...THEN. Existem estruturas seme- 
lhantes em Pascal — mas elas exigem 
um grau de refinamento maior que no 
BASIC. Neste artigo, examinaremos as 
mais simples e úteis dessas estruturas. 



mostram a estrutura geral de uma decla- 
ração. Suponhamos que se queira defi- 
nir um identificador; mu identificador é 
definido como uma leira ou um dígito. 
Em um diagrama de sintaxe, teríamos: 





nmiiii 



iiiiiiim 



repeal < instrução > until < expressão 
lógica > 

As instruções entre repeal e unlil são 

repetidas até que a condição Final se tor- 
ne verdadeira. Todas elas são executa- 
das pelo menos uma vez, pois o teste só 
i feito ao final. Ao contrário da forma 
whilc.do. não é necessário acrescentar 
begin e end a um conjunto de instruções. 
Usando-se essa técnica, o programa an- 
terior pode ser escrito da seguinte 



ralmente usado quando a seleção depen- 
de de um ou outro de dois eventos. Po- 
rém, se a decisão depende de um núme- 
ro maior de eventos, costuma-se utilizar 
case...of. Não há nenhuma estrutura si- 
milar a case no BASIC. 



A declaração case permite ao progra- 
ma selecionar uma instrução de uma lis- 
ta de várias possibilidades. 
A forma geral de case é: 



writf(sum) 

Esse programa é mais eficiente que o 
anterior, pois, com o uso de repeal. ..un- case expressão of 
til, economiza-se uma instrução 
read(no). Para efetuar uma soma cor- cl : instrução; 
rente, é melhor que o programa entre di- c2 : instrução; 
retamente no laço inicializado por re- 
peal. No programa exemplo2, o progra- 
ma chega à solução por intermédio de 
uma estrutura menos adequada que a cn : instrução 
utilizada no exemplo3. end; 



No Pascal, ao contrário do que acon- 
tece no BASIC, o laço inicializado por 
FOR só pode caminhar em passos 
(STEP) de + I ou - I . Adaptando o pro- 
grama anterior ao uso dessa técnica, tere- 
mos que introduzir inicialmente a quan- 
lidade de números a serem somados, 
program exemplo4; 
var no , sum, quant , i : integer ; 

°read (quant) : 

for ít=1 to quant do 

'read (no) : 
sum : =aum*no 



Como o BASIC, o Pascal dispõe de 
vários recursos para verificar qual deci- 
são deve ser tomada diante de determi- 
nado resultado. O primeiro deles, co- 
I mum ao BASIC, é o if...then...else, ge- 



O valor da expressão deve correspon- 
der a um dos c e ser do mesmo tipo. No 
Pascal padrão, se o valor da expressão 
não for enconirado na lista, uma men- 
sagem de erro será exibida. Em algumas 
versões, porém, o programa simples- 
mente ignorará o case. 

Note que há um end associado ao ca- 
se que não corresponde a nenhum be- 
gin. Esse tipo de estrutura não é fre- 
quente, e pode trazer inconvenientes du- 
rante a busca de um erro dentro do pro- 
grama. Geralmente, a primeira coisa 
que se faz é verificar se há correspon- 
dência entre o número de begin e end. 
A associação do end ao case provoca- 
ria uma diferença. Para contornar o 
problema, coloca-se um rótulo, em ca- 
da end — por exemplo, end; jcase|. 

As instruções equivalentes a cada op- 
ção (c) podem ser instruções compostas, 
sempre entre um begin e um end. 

Veja este exemplo do uso de case: 

program exemploS; 
var nod ia : integer 1 

r ead 1 n (nod ia) i 

xí (nodia>0) and tnodia<8) 

then 



case nodia of 

1 :wr iteln ( 1 Segunda-f e ira ' ) ; 

2 :wr í telnt ' Terça- f eira 1 > ; 

3:writeln< ' Quarta-f ei r a ' ) ; 

A :wr iteln( 'Quinta-f ejra ' } : 

5:begin 
wr iteln ( ' Sexta-íeira ' ) : 
writeln('Dia de pagamento') 
end; 

6, 7:begin 



if < expressão lógica > then < insirução 
1 >else<instrução 2> 

Essa estrutura indica que, se a expres- 
são lógica for verdadeira, o programa 
executará a instrução 1; se for falsa, a 
instrução 2. Como mostra o diagrama 
FBN, o else é opcional; uma construção 
alternativa seria if...lhen. 



else begin 

writelnCUse valores 1 ) | 
writelnCentre 1 e 7 1 ) 

Em algumas variações do Pascal, os 
rótulos 1, 2, 3, 4, 5, 6 e 7 devem ser co- 
locados entre parênteses, fugindo, por- 
tanto, do Pascal padrão. Na verdade, 
em algumas implementações para a 
adaptação ao sistema BASIC, a mudan- 
ça na sintaxe é necessária. 

O programa exemploS mostra co- 
mo superar um problema bastante fre- 
quente no uso do case. Muitas vezes, o 
identificador pode assumir valores não 
encontrados entre os rótulos de case, o 
que provocaria uma interrupção e uma 
mensagem de erro. Assim, utilizamos 
um desvio condicional if...Ihen...else 
para mudar o curso do programa, caso 
os valores de nodia não se encontrem 
no intervalo apropriado. Observe tam- 
bém que foram empregados rótulos com 
mais de um valor e instruções compos- 
tas após alguns deles. 



DESENVOLVIMENTO DE PROGRAMAS 



Com um conhecimento mais detalha- 
do dos procedimentos disponíveis no 
Pascal, podemos passar ao exame de um 
programa escrito nessa linguagem. 

O programa que apresentamos a se- 
guir verifica se uma palavra ou frase é 
um palindromo — ou seja, se ela pode 
ser lida de trás para frente sem sofrer al- 
teração (como "radar" ou "Socorram- 
me, subi no ônibus em Marrocos"), ig- 
norando-se os espaços em branco e os 
sinais de pontuação. Suponhamos que 
você queira testar se esta frase é um pa- 
lindromo: 

Arara é ave rara 

O algoritmo inicial poderia ser: 
begin 

leia uma cadeia de caracteres 
teste se é um palindromo 
end 



IIIIIIIIIIIHHH y linguagens ■■■■■■■IIIUIIII 



Essa frase inicial é bem simples, con- 
sistindo só de duas elapas, além do be- 
gin e do cnd requeridos pelo Pascal. Po- 
deríamos elaborar um algoritmo mais 
detalhado para a primeira etapa: 

início 

leia o número de caracteres (n) 
teia os caracteres colocando-os na 
matriz A(i) 
firo 

Traduzindo essa primeira etapa pa- 
ra o Pascal, temos: 



o que, em Pascal, corresponderia a 
if pai then 



0 PROGRAMA COMPLETO 



Refinando algumas partes anteriores 
e reunindo-as, chegamos ao seguinte 
programa em Pascal: 
program exemplo6; 
conat comp=30; 

var a : array | 1 . . comp ] o£ char ; 



a[dccr|.] Tudo o que precisa ser feito é 
tornar pai igual a false quando o teste 
a|crsc| = a[decr] apresentar esse resul- 
tado. No momento em que o programa 
voltar para o cabeçalho do laço, encon- 
trará um desvio condicional dentro de 
while. A técnica empregada em BASIC 
seria a seguinte: 



100 TF AlCRÍiaOAUiKCR) THKN 



Passando para a segunda etapa, che- 
gamos ao seguinte algoritmo: 

inicio 

faça crsc igual a 1 
faça decr igual a n 
enquanto crsc <decr faça 

se a|crsc| é pontuação então 

incremente crsc 

senão 

se a|decr| é pontuação então 

decremenle decr 

senão 

se alcrsc] = a|decr| então 
incremente crsc 
decremente decr 
senão 

faça a variável booleana 
(pai) igual a false 

fim 

Esse algoritmo poderia ser refinado 
para o Pascal desta maneira: 



while (crsc < decr) and | 
if UlcrBC]*' -Jorlalcruc 
or (alcrsc]- ' , ' ) or (alcrsc 



Precisaríamos de uma terceira etapa, 
na qual o programa mostraria o seguinte 
resultado: 

se pai é igual a true então 
escreva "palindromo" 
senão 

escreva "não é palindromo" 



decr) and pai do 



then cr ac : ■ 
else 

if <a[decr]= 



l"a|decr ] the 



else pai : =f ai se 
if pai then 
writelnl 'ral índrom. 



itelnC 



ha palindn 



1 ) 



O Pascal apresenta um tipo de variá- 
vel desconhecido do BASIC, a variá- 
vel booleana, que não assume valores 
numéricos nem guarda caracteres. Ela 
assume o valor de resultados lógicos — 
true (verdadeiro) e false (falso). Note 
que é desnecessário dizer: 

if pai = true Ihen... 

bastando apenas: 
if pai then... 



RERNAMDO 0 PROGRAMA 



Se o seu sistema Pascal dispõe de al- 
gumas formas adicionais de manipular 
dados, diversos aperfeiçoamentos po- 
dem ser incorporados ao programa. En- 
tretanto, como está, ele deve funcionar 
na maioria dos sistemas. 

A variável booleana é usada para des- 
viar o programa do laço while quando 
se determina que a(crsc| não é igual a 



2J0 NEXT I 

A1Q !'H1NT "fAí.fNDUi 

2b0 GOtO 2/0 

260 PR1NT "NÃO Ê P, 

2/0 ENI) 



Um algoritmo melhor estruturado 
poderia ser apresentado assim: 



defina o conjunto pontuação 



se a(crsc| estiverem pontuação então 
incremente crsc 

se a|decr| estiver em pontuação então 

decremenle decr 

senão 



Uma declaração desse tipo economi- 
zaria exaustivas comparações do tipo: 

if (a|crsc] = ' ') or (a|crsc] = ',') or 
(afcrscl = '.') or <a[crsc| = "") then... 

O Pascal aceita a definição de con- 
juntos (alguns compiladores mais sim- 
ples podem não aceitar essa declaração). 
Assim, modifique o programa anterior 
aproveitando essa definição: 

program exemplo7; 

const comp"30 ; 

type carac - ' ' . . ' z ' ; 

simb » set of caraci 
var a : array I 1 . . comp 1 of char; 

i , n, crsc , decr : integer ; 

pai : boolean; 

pont : si mb: 

pont :-[ ' ','.■.'.',■"]; 
pal:= true; 
readln(n) ; 

for i:-J to n do read(a[i]); 

cr*c:*l] 

decr :-n; 

while (crac<decr ) and pai do 
if alcrsc] in pont then 



+1 



eis 
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decr : -decr-1 
elae 

if alcrscj-aldecr] then 

decr:-decr-l; 

elae pai : -false ; 
if pai then 
wnteln ( ' palindrome - ) 
tln 

writelnCnao ha palindrome') 



Finalmente, temos a melhor estrutu- 
ra para o problema do palindromo, ori- 
ginalmente dividido em três etapas: 

* enlrar a cadeia de caracteres 

* verificar se ela é um palindromo 

* mostrar o resultado 

Cada etapa foi refinada em etapas 
menores até que os resultados fossem as 
próprias declarações em Pascal e, jun- 
tas, formassem um programa. No nos- 
so caso, o programa era bem simples. 
Porém, em situações mais complexas, é 
aconselhável construí-lo por partes se- 
mi-independentes (procedures) e testá- 
las separadamente. Um procedure é uma 
sub-rotina nomeada com um rótulo e 
declarada junto com as variáveis. Du- 
rante a execução do programa, basta 
chamar o procedure através de seu ró- 
tulo, como se fosse um comando. Essa 
técnica permite modularizar os progra- 
mas, tornando-os bem estruturados. 

Há dois grupos de sistemas Pascal. 
Um deles usa compiladores em código 
específico — ou seja, escritos exclusiva- 
mente para as máquinas em que irão ro- 
dar. Como várias máquinas são simila- 
res, usando sistemas operacionais CP/M 
ou MS DOS, as adaptações de uma pa- 
ra outra são muito simples. 

O segundo grupo é conhecido como 
Pascal UCSD (Universidade da Califór- 
nia, em San Diego). Nesse sistema, o 
Pascal é compilado para o código de um 
computador hipotético denominado má- 
quina p, e seu código é conhecido por 
código p. Isso significa que o compila- 
dor é o mesmo para todas as máquinas. 
Na verdade, o UCSD é escrito em Pas- 
cal, possuindo um programa especifico 
para cada máquina. Sua vantagem é a 
incrível compatibilidade. Porem, a ve- 
locidade da compilação nesse sistema é 
bem menor que a proporcionada pelo 
compilador específico. 



EXPERIÊNCIAS COM 0 PASCAL 



Se você possui um sistema Pascal pa- 
ra seu microcomputador, tente colocar 



em execução alguns dos exemplos ante- 
riores. Para isso. depois de ter acessa- 
do o compilador Pascal, digite o progra- 
ma c compile-o. Os programas devem 
funcionar para qualquer compilador 
que aceite letras minúsculas. 

Os microcomputadores que usam o 
CP/M dispõem de um compilador po- 
deroso, o TURBO PASCAL. Paraaces- 
sá-lo, basta chamar do disquete o nome 
TURBO, seguido de <ENTER>. Vo- 
cê irá obter a seguinte saudação na tela: 

TURBO Pascal syslem Version 2.00A 
CP/M-80, Z80 
Copyright (C) 1983, 1984 hy 
BORLAND Inc. 
Include error messages (Y/N)? 

Pode-se optar por mensagens de er- 
ro escritas por extenso (V) ou simples- 
mente descritas pelos seus códigos (N). 
Se você estiver iniciando seu contato 
com o Pascal, digite Y e <ENTER>. 
O sistema apresentará um menu: 

Logged drive: 

Work file: 
Main file: 

Edit Compile Run Save 

eXecule Dir Quit compiler Oplions 

Texl: 
Free: 



Para iniciar qualquer trabalho, você 
terá que digitar W seguido do nome de 
um arquivo. Se ele já existir no disque- 
te, o computador irá trazê-lo para a me- 
mória; caso contrário, criará um arqui- 
vo com esse nome. 

Suponhamos que você queira criar o 
arquivo exemplo7. Tendo escrito esse 
nome seguido de < ENTER > . entre no 
modo de edição digitando a letra E. 

No manual de instruções que acom- 
panha o compilador, você encontrará 
orientações para movimentar o cursor 
por meio das teclas. Recorra a ele para 
escrever seu programa. Ao terminar, 
saia do modo de edição usando o co- 
mando apropriado (veja manual). An- 
tes de tentar compilar o programa, guar- 
de-o no disquete digitando S. 

Para compilar o programa, pressio- 
ne a tecla C. Caso haja algum erro, o 
compilador indicará em que posição ele 
ocorreu. Depois de corrigi-lo, tente 
compilar o programa novamente. Se o 
computador indicar que completou a ta- 
refa, execute o programa com X. 

Lembre-se de que cada declaração 
precisa ser seguida de um ponto e vir- 
gula, exceto quando depois dela houver 
um end. Uma instrução composta deve 
vir entre um begin e um end. Se você co- 
locar um ponto e virgula imediatamen- 
te após um while, um repeal ou um for, 
o computador entenderá que aquele é o 
fim da declaração e ignorará os coman- 
dos seguintes a serem repetidos. 
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ORGANIZAÇÃO 
DE FIROJETOS 



■ 


CAMINHO CRITICO 


■ 


REDE PERT 


■ 


ATIV IDADES, TEMPOS 


E EVENTOS 


■ 


CÁLCULOS 



Se você deseja montar e controlar 

qualquer tipo de projeto - da 

reforma de um automóvel à compra de um 

imóvel -, utilize este programa 

para se organizar e economizar tempo. 



Algumas vezes temos que realizar ta- 
refas que incluem várias ações, cada 
qual exigindo um tempo diferente de 
execução, e todas dependendo do suces- 
so das etapas anteriores. Sem uma boa 
dose de organização e planejamento, é 
quase impossível saber quais etapas exe- 
cutar, e em que ordem. A situação fica 
ainda mais difícil quando há um prazo 
para o término da atividade. 

Se calcularmos o tempo de execução 
de todas as ações envolvidas, veremos 
que há sempre uma certa sequência de 
eventos que determina o tempo total do 
projeto. A essa sequência chamamos ca- 
minho crítico. Qualquer atraso ou 
adiantamento no caminho crítico se re- 
fletirá numa alteração do tempo toma- 
do pelo projeto. Por outro lado, uma 
atividade que não pertença a essa se- 
quência especial poderá ser atrasada sem 
causar alterações no tempo total. 



O cálculo do caminho crítico né 
tão fácil se estivermos limitados ao 
pel e caneta, mas, com o auxílio do ct 
putador e do programa que aqui forne- 
cemos, torna-se bem mais simpies e rá 
pido. O programa permite a construção 
de um banco de dados contendo todas 
as atividades, seu tempo de execução (ou 
estimativas, caso não se conheça o tem- 
po real) e a ordem em que elas deverão 
ser executadas. Baseado nessas informa- 
ções, calcula o caminho crítico bem co- 
mo o tempo livre das atividades não 
criticas (aquelas que não pertencem à se- 
quência especial). Esse último dado in- 
dica ao usuário por quanto tempo é pos- 
sível interromper o projeto sem alterar 
seu prazo final. 

Para o cálculo do caminho crítico, 
utilizam-se as técnicas de programação 
conhecidas como CPM (do inglês Criti- 
cai Palh Method, Método do Caminho 
Crítico), CPA (do inglês Criticai Palh 
Analysis, Análise do Caminho Critico) 
e PERT (do inglês Program Evaluation 
and Review Technique, Técnica de Ins- 
peção e Estimativa de Projeto). 

Não só projeios empresariais, mas 
qualquer projeto, por menor que seja, 
pode ser avaliado pelo programa. 

Vamos tomar como exemplo um pro- 



jeto que envolve a coordenação de vá- 
rias etapas diferentes, muitas vezes sob 
prazos rigorosos: a compra de uma ca- 
sa. O diagrama da página 1452 mostra 
como deveria ser o fluxo PERT para a 
execução dessa tarefa. Os círculos assi- 
nalam os eventos, ou seja, momentos 
entre atividades cujo tempo depende de 
outras. Eles marcam, assim, o início ou 
o fim de uma atividade. As atividades 
estão descritas ao longo das linhas que 
ligam os eventos, junto com as estima- 
tivas do tempo necessário. 

Até aqui. muitas atividades parecem 
incertas e várias linhas se cruzam. Em- 
bora o diagrama contenha toda a infor- 
mação necessária, ainda é difícil saber 
que atividades merecem prioridade. Não 
se pode garantir, também, que o proje- 
to seja concluído dentro do prazo esti- 
pulado. Além disso, à medida que avan- 
çamos no projeto de aquisição da casa, 
é possível que surjam outros fatores ca- 
pazes de afetar as expectativas iniciais, 
exigindo que o diagrama seja modifica- 
do e atualizado. 

Nosso programa se encarrega de to- 
das essas questões. Na primeira parte, 
apresentada a seguir, cuida do banco de 
dados das atividades; na segunda, cal- 
cula o caminho critico. 
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5 BOHDEB 0: PAPER 4: INK 0: 

CLS 

7 POKE 23658,8: POKE 2361)9. 

20 

10 CLS : LET falae=0: LET ma= 
100: Í.ET me-100: LET mh=212; 
LET S«— 1: LET fp = -l: COEUB 
12: LET ck-false: LET M*0i 
LET ee-0: GOTO 50 
12 LET ".cz^9999 : LET truci: 
LET p$ - " í ntroduza " : LET n$=" 

at i vidade" 
14 DTM uS (85. 32) : LET wS(l)=" 
Nenhuma"+aS+" = PHF.CEDE o evenL 
o": LET wS (2)"" EXCEDEU" 
16 LET wS(3)-"VOCE NAO PODE U 
SAR ESTE NUMERO ": LET wS(4)= 
p5*"texto paia este(a) " 
18 LET wS(5)-aS+"REFERE A EVE 
NTO NAO DEFINIDO " 
22 DEF FN a<X)~x«(x<0) : 
DEF FN z(x)^x*(x>0) 
26 DIM a{ma) : DIM g(ma) 
30 DIM w(ma): DEF FN w(x)=ABS 
x*(x<J)+ABn (2-x)*(x>l) : 

DEF FN x(x)=x* (2. 37572+x*x* ( 
15.9402-x*x* (184 . 744 -x*x* 
688.472)))/! -20667 
34 DEF FN I$|x)=(STH5 (x)+" 

-) ( TO 6) 
36 DEF FN b(x)=x-INT (x/2S6)* 
256 

38 DEF FN p$(x)=" — "( TO TNT 

((6-x)/21): DEF FN <i$ (x) «" 
" ( TO TNT ( (6-x) /2) í 
40 DIM u (me) 
42 DIM x(8) 

44 DIM 3(mh): DIM í (tnh) : DIM 
u(mll): DIM t (mh) : DIM n(mh): 
DIM uS(mh,20): DIM Y(rah): DIM 
i (ah) 

46 DIM p(mh): DIM g(tnh) 

48 DEF FN u(x)=u[ABS x+(x=0)) 

* (x>0) : RETURN 

50 CLS : PRINT "l=de£ine " ; a$ 
'"2=apaga ";aS: PRINT "3=defi 
ne evento" ' "4=apaga evento" 
60 PRINT "5-salva no gravador 



~'"6=carrega do gravador "*" 7- 
testa gravador "' "8=mo3tra det 

62 PRINT "9 = SAIDA" "10=verifl 

ca e ordena a rede" 

64 PRINT "Jl-cralc com tempog 

66 PRINT "12=calc com inrerte 
zaa": PRINT 

70 INPUT I : PRINT t: IF t = 9 
TilEN STOP 

72 ÍF Kl OR t>12 THEN PRINT 

■t-";tí" NAO RECONHECIDO": 
COTO 114 

74 ] F I >1 0 AND NOT ck THEN 
PR TNT "FACA VERIFICAÇÃO DE DA 
DOS PRIMEIRO": GOTO L14 
76 IF aa = 0 AND (t>7 OR t-5) 
THEN PRINT "IMPOSSÍVEL - NAO 

FOI INTRODUZIDA NENHUMA" ; aS : 

GOTO 114 
80 IF t>7 THEN COTO 100 
82 IF t = 6 THEN Ct.F.AR :' LET t 



fS: GOTO 100 

86 LET £$»*S: IF t>2 THEN 
LET ÍS-"even1o" 
88 PRINT pS;t3i" numero": 
PRINT "ou zero para sair "; 
90 INPUT u: PRINT u: LET u~ 
INT u: IF u=0 THEN GOTO 50 
92 IF u<[ OH u>zz THEN PÍ1INT 
WS (3) : GOTO 88 
94 IF t>2 THEN LET U="-« 
96 GOSUB 480: LET ck=falae 
98 IF (t=2 OR t=4) AND (0=u(x 
) OR zz<u[x)l THEN PRINT "VO 
CE NUNCA USOU ESTE NUMERO": 
GOTO 114 

100 GOSUB 20» (t = l) + l00*t+900* ( 

t-10)"(t>l0) 

112 GOTO bO 

114 FOR t-1 TO 500: NEXT t: 
GOTO 50 

120 IF 0<u{x) AND zz>=u(x) 
THEN GOSUB 942: GOSUB 932: 
GOTO 130 

122 IF aa=ma THEN PRINT uS(2) 
ifS: RETURN 



124 LET aa-a+1: LET a<aa)-x: 
LET u(x)=u 

130 PRINT wS(4) ifSi':"i : INPUT 
uS{x): PRINT uS(x): LET xa=x 
140 PRINT pS;"iniciar evento, 
tinalizar evento*;: INPUT a.f: 
PRINT s:" ";£: LET s=INT a: 
LET t = TNT f 

142 IF,a<l OR B>zz OR f<l OR £ 
>zz THEN PRINT wS(3): GOTO 
140 

150 LET u=-s: GOSUB 450: IF u( 

x)<0 THEN GOTO 156 

152 IF ee=me THEN PRINT u$(2) 

;"eventoa": GOTO J40 

154 GOSUB 350 

156 LET b (xa) -X 

160 LET u^-f: GOSUB 450: IF u( 

X)<0 THEN GOTO 166 

162 IF ee=me THEN PRINT wS(2) 

: "eventos": GOTO 140 

164 GOSUB 350 

166 LET t (xa) 

170 PR [NT p$| "tempo provave 1 p 
ara executar ":: INPUT t fKa) : 
PRINT Wxa) 

172 TF 1 (xa)'-0 THEN PIIINT "NA 
O PODE SER FEITO COM ESTA VELO 
CIDADE": GOTO 1/0 
1H0 PRINT "Introduza BSClMtlV 
a de tempo com 90* de certess 
a": PRINT "Pode aer executado 
em ";: INPUT n(xa): PRINT n(xa 
) 

182 IF n(*a}<t(xa) THEN print 
"ISTO NAO E COMPATÍVEL COM O 
TEMPO PlluVAVEL": GOTO 170 
190 RETURN 

200 FOU b-1 TO aa: IF x=a(b) 
THEN LET a = b 

220 NEXT b: LET a(a)=a(aa): 
LET u(x)=zz+l: LET aa=aa- 1 : 
RETURN 

300 IF u(x)<0 THEN GOSUB 9"46 : 

GOSUB 933: GOTO 330 

310 IF ee^me THEN PRINT wS(2) 

:f3: HFTURN 

3J 2 GOSUB 350 



H]E] 



5 CLEAR 

10 MA - IOOiME - 100:FA - 0:MH 
= 212: GOSUB 12:CK - FA: GOTO 5 
0 

12 TR = 1:2S - CHRS (13):DOS ■ 

ZS + CHRS (4):2Z = 32766:QTS 
- CHRS (34) 

14 PS = " FORNEÇA " : AS - " ATIVI 
D ADE " 

16 DIM W${5):US(J) - "NENHUMA" 
+ AS + " PRECEDE EVENTO" :W3 (2) 
= "EXCEDEU " 
18 WS (3) » "NAO PODE USAR ESTE 
NUMERO":WS(4) * PS + "TEXTO PAR 
A ESTE (A) " 

21) WS(b) - " REFERE A EVENTO NA 
O DF F T N T DO " 

22 DEF FN A(X) = X * (X < 0) : 

DEF FN ZtX) = X * (X > 0) 
28 DIM A (MA) , G ( MA ) 
30 DIM- W(MA) : DEF FN W(X) = 
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ABS (X) * (X < - 1) + ABS (2 
- X) « (X > 1) 

32 DEF FN X(X) ■ X * (2.37572 
+ X * X * (15.9402 - X * X " { 
184. 744 - X * X * 688.472) ) ) / 
1.20667 
40 DTM E (ME) 

44 DIM S(MH) .F(MH) .U(MH) .T(MH) 

, N (MH) . US (MH) . Y (MH) ,Z(Mt() 

46 DTM P(MH) , Q (MH) 

48 DEF FN U(X) * U( ABS (X) + 

(X = 0) ) * (X > 0) : RETURN 
50 HOME : PRINT TAB ( /);"MENU 

PRINCIPAL": PHINT : PHINT "01 
= DEFINE";AS: PHINT "02 o DELET 
A";A$: PBINT "03 - DEFINE EVENT 
Ò": PBINT "04 - DELETA EVENTO" 
52 PBINT "05 = SALVA DADOS" : V 
RI NT "06 = CARHEGA DADOK" : PRIN 
T "07 = DELETA ARQ DO DISCO" : P 
B1NT "08 = MOSTRA DETALHES" 
54 PR TNT "09 - REINICIA" 
56 PBINT "10 - VERIFICA E ORDE 
NA REDE" 

58 PRINT "11 ■ CALC COM DURACA 
O MEDIA" 

60 PBINT "12 = CALC COM INCERT 
EZAS": PRINT "13 - SAÍDA PARA " 

62 IF KKS = "S" THEN INVEBSE 
: PRINT " IMPRESSORA" ! NOBMAL 

63 IF KKS < > "S" THEN INVEB 
SE : PRINT "TELA": NORMAL 

64 PBINT "14 = TERMINA" 

66 PRINT : PRINT :T = 0: INPUT 
"SUA OPCAO (1-14) " :T 

68 IF T = 14 THEN INPUT "TEM 
CERTEZA (S/N) ? ";AN5: IF LEFTS 

IANS.1) ■ "S" THEN HOME : END 

69 IF T = 13 OR T = 14 THEN 10 
0 

72 IF T = 9 THEN 900 
74 IF T < 1 OB T > 13 THEN PR 
INT "CÓDIGO" ;T; "NAO EECONHECIDO 
" : GOTO 1 14 

76 IF T > 10 AND NOT <CK) THE 
N PBINT "USE OPCAO (10) PRIMEI 
RO": GOTO 114 

78 IF AA ■ 0 AND (T > 7 OR T = 
5) THEN PRINT " IMPOSSÍVEL - N 

KNlillMA" ; AS : GOTO 114 

80 IF T > 7 THEN 100 

B2 I F T - 6 THEN CLEAB :DOS * 
CHRS (13) + CHRS (4) :T - 6 

84 IF T > 4 THEN HOME : PBINT 
"FORNEÇA NOME DO ARQ ":: INPUT 
FS: GOTO 100 

86 FS = AS: IF T > 2 THEN FS = 

" EVENTO" 

88 HOME : PRINT PS ; "NUMERO DO ( 
A)";FS: PHINT "OU 7.EBO PARA TER 
MINAR" 

90 INPUT U:U - INT (U) : IF U 
= 0 THEN 50 

92 IF U < 1 OB U > ZZ THEN PB 
INT WS O): FOR E ~ 1 TO 1000: N 
EXT : GOTO 88 

94 IF T > 2 THEN U - - U 

96 GOSUB 450 :CK ■ FA 

98 IF (T = 2 OB T - 4) AND (0 

= U(X> OB ZZ < U(X)) THEN PBIN 

T *VOCE NUNCA USOU ESTE NUMFBO" 



: GOTO 114 

100 IF KKS ■ "S" AND (T > 7 AN 
D T < 12) THEN PRINT DOS"PB#l" 

101 HOME : ON T GOSUB 120,200. 
300,400,500,600.700,800,900,100 
0,2000,3000,960 

105 IF KKS = "S" AND (T > 7 AN 
D T < 13) THEN PHINT DOS"PRI 0 

11 2 GOTO 50 

114 FOR T - 1 TO 1000: NEXT : 
GOTO 50 

120 IF 0 < U(X) AND ZZ > - U( 
X) THEN GOSUB 942: GOSUB 932: 
GOTO 130 

122 IF (AA - MA) THEN PRINT W 
$(2) ;F$: RETURN 

124 AA - AA + 1:A(AA) - X:U<X) 
- U 

130 PBINT WS(4);FS: INPUT U$ (X 
) :XA - X 

140 PBINT PS; "EVENTO INICIAL . 

EVENTO FINAL": INPUT S.F:S = 
INT (S) :F = INT <F) 
142 IF S < 1 OR S > ZZ OR F < 
1 OR F > ZZ THEN PRINT WS (3): 
GOTO 140 

150 U - - S: GOSUB 450: IF U(X 
) < 0 THEN 156 

152 IF EE - ME THEN PRINT WS ( 
2) : "EVENTOS" : GOTO 140 
154 GOSUB 350 
J56 S(XA) - X 

160 U - - F: GOSUB 450: IF U(X 
) < 0 THEN 166 

162 IF EE = ME THEN PBINT WS ( 
2) ; "EVENTOS" : GOTO 140 
164 GOSUB 350 
166 F(XA) = X 

170 PBINT PS;"TEMPO PROVÁVEL D 

E EXECUÇÃO": INPUT T(XA) 

172 IF T(XA) < 0 THEN PRINT " 

MUITO RÁPIDO !!*: GOTO 170 

180 PBINT "ESTIMATIVA COM 90» 

DE CEBTEZA" : PRINT "PODE SER FE 

ITO EM": INPUT N (XA) 

182 IF N(XA) < T(XA) THEN PRI 

NT "NAO CONFERE COM O TEMPO PRO 

VAVEL": GOTO 170 

190 RETURN 

200 FOR B = 1 TO AA: IF X = A( 
B) THEN A = a 

220 NEXT B : A (A) = A(AA):U(X) = 

ZZ+1:AA=AA-1: RETURN 
300 IF U(X) < 0 THEN PRINT "E 
VENTOS" : XP = U(X) : GOSUB 950: P 
RINT US (X) : GOTO 330 
310 IF EE = ME THEN PBINT WS ( 
2) ;FS: RETURN 
312 GOSUB 350 

330 PRINT WS(4);F$: INPUT US [X 

) :S(X) =0: RETURN 

350 EE - EE + 1:E(EE) - X:S(X) 

= - 1:F(X) - 0:U(X) = U 

360 T(X) - 0:N(X) - 0:US(X) = " 

" : RETURN 

400 Z =• X: FOR F - 1 TO EE : IF 

E(F) - Z THEN E = F 

420 NEXT F : E (E) - E(EE):U(Z) - 

ZZ + 1 : EE = EE - 1 : RETURN 
450 Z - U - INT ((U - 1) / MH) 

* MH : Y ■= 2:X = 0 
460 IF X = 0 AND (0 " U(Z) OR 



ZZ + 1 = U(Z)) THEN X * Z 

470 IF U - U(Z) THEN X - Z: BE 

TURN 

4B0 IF Y - 1 OR U(Z) - 0 THEN 
RETURN 

490 Z-Z+Y-MH* INT ( (Z + 
Y-l) / MH) :Y ■ Y + Y - MH * 
INT ( (Y + Y - 1) /MH): GOTO 4 

60 

500 HOME : PRINT DOS'OPEN "FS 

505 PRINT DOS"DELETE "FS 

510 PBINT DOS"OPEN "FS 

515 PRINT ROS"WRITE "FS 

520 PHINT MA;ZS;ME;ZS;MH;ZS;AA 

; ZS : EE; ZS :CK 

525 IF CK THEN PRINT BI i 29 i PI 
530 FOR A - 1 TO AA:X = A (A) 
5Jb PRINT X : ZSU (X) ZSS (X) ZpF ÍX) 
■/Sr(X)ZSN(X)ZSG(A)/5US(X) 
540 NEXT A 

545 FOR E - 1 TO KE:X ■ E(E) 
'.50 PHINT X ;7.$U (X) ZSS (X) Z$F (X) 
Z$T(XJZ$NtX)2$US(XJ 
555 NEXT L 

560 FOR X = 1 TO MH: IF U(XI 

ZZ 4 I THEN PRINT X 
565 NEXT X: PHINT 0 
5/0 PBINT DOS"CLOSE "FS 
5 75 RETURN 



4 MAXFILESO 

6 OPEN "CRT : " FOR OUTPUT AS#1 
8 OPEN "LPT:" FOR OUTPUT AS#2 
10 CLEAR 2000:MH-212:ME-100:MA- 
100:FA-0:GOSUB 20 :CK-FA: GOTO 14 

0 

20 ZZ-9999.TR— 1 :PS-"INTRODUZA 
":AS-" ATIVIDADE":ES-CHRS(13) 
30 DIMW$(5) :W$(1)-"NENHUMA"+AS+ 
" PRECEDE O EVENTO":WS(2)-"EXCE 
DEU" 

40 WS(3)-"VOCE NAO PODE USAR ES 
TE NUMER0":W$(4)-PS+"TEXT0 PARA 

ESTE (A) " 
50 WS(5)="REFERE A EVENTO NAO D 
EFINIDO" 

60 DEFFNA(X)— X* (X<0) :DEFFNZ(X) 
—X* (X>0) 

70 DIM A (MA) , G (MA) 

80 DIM W (MA) : DEFFNW (X) "-ABS (X) * 

(X<-1)-ABS(2-X)MX>1) 

90 DFFNX(X)=X*(2.37572+X*XM15. 

9402-X*X*(184. 744-X*X*688.472] ) 

)/l. 20667 

100 DIM E (ME) 

110 DIM S (MH) , F (MH) , U (MH) , T (MH) 

, N (MH) . US (MH) , Y (MH) . Z (MH) 

120 DIM PCMH) , Q (MH) 

130 DEFFNU(X)«-U(ABS(X)-{X-0))* 

(X>0) : RETURN 

140 CLS:PR-l:LOCATE 12,1: PRINT" 
MENU PRINCIPAL" : PRINT" 1 "DEFINE" 
;AS;" OU EVENTO" : PRINT" 2"APAGA" 
;AS:" OU EVENTO" 

150 PRINT" 3-SALVA DADOS" : PRINT" 
4-CARREGA DADOS" : PRINT" 5-IMPRIM 
E DETALHES" : PRINT"6-TERMINA" 
160 PRINT" 7-VERI FICA E ORDENA A 
REDE" 

170 PRINT"8-CALC COM TEMPOS MED ie 
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PRINT"9-CALC COM INCERTEZAS 



190 TS-INKEYS:IF TS<"1" OR TS>" 

9" THEN 190 

200 T-VAL (TS) : PRINT T 

210 IF T>7 AND NOT ICK) THEN PRI 

NT" FACA VERIFICAÇÃO (7) PRIMEIR 

O*: GOTO 380 

220 IF AA-0 AND (T>40 OR T-3) T 

BEN PRINT-IMPOSSIVEL - NAO FOI 

INTRODUZIDO" : AS : GOTO380 

230 IF T>4 THEN 350 

240 IF T-4 THEN CLEAR 2000:T-4 

250 IF T>2 THEN PRINT"NOME DO A 

RO.UIVO":INPUTFS:GOTO 350 

260 CLS : PRINT AS;" OU EVENTO (A 

/E) ?"i 

270 TS-INKEYS : IF TSO"A" AND TS 
<>"E" THEN 270 

280 PRINT TS:IF TS-"A" THEN FS- 

AS ELSE FS-" EVENTO" 

290 PRINT : PRINT PS;FS;" NUMERO" 

:PRINT"OU ZERO PARA SAIR" 

300 INPUT U:U=INT(U) :IF U-0 THE 

N 140 

310 IF U<1 OR U>ZZ THEN PRINT U 

S{3) :GOTO 280 

320 IF TS-"E" THEN U=-U 

330 GOSUB 70D:CK«FA 

340 IF(T-2 OT T-4) AND (0-U (X) OR 

ZZ<U(X) THEN PRINT"VOCE NUNCA 
USOU ESTE NUMERO" : GOTO 380 
350 ON T GOSUB 390.590,750.830, 
890 . 960 .10 70.1550. 1660 
360 IF T<3 THEN 290 
370 GOTO 140 

380 FOR T-l TO 1000:NEXT T:GOTO 
140 

390 IF FSOAS THEN 620 

400 IF 0<U<X) AND ZZ>-U (X) GOSU 

B 1030:GOSUB 1000:GOTO 430 

410 IF AA-MA THEN PRINTWS ( 2 ) ; FS 

: RETURN 

420 AA-AA+1:A(AA)-X:U(X>-U 

430 PRINT WS(4) ; FS : INPUT USIX) : 

XA-X 

440 PRINT PS;"INICIAR EVENTO. F 
INALI2AR EVENTO" : INPUT S,F:S=IN 
TIS) :F-INT<F) 

450 IF S<1 OR S>ZZ OR F<1 OR F> 
ZZ THEN PRINT WS 13) :GOTO 440 
460 U = -S:GOSUB 700:IF U(XK0 TH 
EN 490 

470 IF EE-ME THEN PRINT US (2);" 
EVENTOS" :GOTO 440 
480 GOSUB 660 
490 S(XA)-X 

500 U— F:COSUB 700:IF UIXX0 TH 
EN 530 

510 IF EE-ME THEN PRINT WS(2);" 
EVENTOS" : GOTO 440 
520 GOSUB 660 
530 F (XA) -X 

540 PRINT PS; "TEMPO PROVÁVEL PA 
RA EXECUTAR* : INPUT T (XA) 

550 IF T(XAX0 THEN PRINT"NAO P 
ODE SER FEITO COM ESTA VELO 
CIDADE" :GOTO 540 

560 PRINT" INTRODUZA ESTIMATIVA 
DE TEMPO COM 90* DE CERTEZA" : 
PRINT"PODE SER FEITO EM" : INPUT 



N (XA) 

570 IF N{XAXT(XA) THEN PRINT 1 
NAO E COMPATÍVEL COM O TEMPO 

PROVÁVEL" :GOTO 540 
580 RETURN 



10 PC LEAR 1 : CLEAR 2000 : MH-212 : M 
E-100 :MA-100 ; FA-0 :GOSUB 20:CK-F 
A: GOTO 140 

20 Z2-9999:TR — 1 : PS = " INTRODUZA 
":AS-" ATIVIDADE" : ES-CKRS (1 3) 
30 DIMWS (5) :WS (1) - "NENHIJMA" + A5+ 
" PRECEDE O EVENTO":WS(2)-"EXCE 
DEU" 

40 WS(3)="VOCE NAO PODE USAR ES 
TE NUMERO" : WS Í4) =PS + " TEXTO PARA 

ESTEIA) " 
50 WS (5) ""REFERE A EVENTO NAO D 
EFINIDO" 

60 DEFFNA(X)--X*IX<0) iDEFFNZÍX) 
— X* (X>0) 

70 DIM AIMA) , C (MA) 

80 DIM W (MA) : DEFFNW (X) --ABS (X) * 

(X<=1)-ABS(2-X)*(X>1> 

90 DFFNXIX)-X*(2.37572 + X*X*U5. 

940 2-X*X* (184. 744-X*X*688.4 72) ) 

) /l . 20667 

100 DIM E (ME ) 

110 DIM S(MH) , F (MH ) ,U(MH) . T (MH) 

, N (MH ) . US [MH ) , Y (MH) , Z (MH I 

120 DIM P IMH) , Q IMH) 

130 DEFFNU(X)--U<ABS(X> tX-0))* 

(X>0) : RETURN 

140 CLS:PR=0:PRINT #8. "MENU PRI 
NCIPAL":PRINT"l=DEFINE";ASi" OU 

EVENTO":PRINT"2=APAGA";AS;" OU 

EVENTO" 

150 PRINT" 3-SALVA DADOS" : PRINT" 
4-CARREGA DADOS" : PRINT" 5=IMPRIM 
E DETALHES" r PRINT" 6-SAI DA" 
160 PRINT"7=VERIFICA E ORDENA A 
REDE" 

170 PRINT"8=CALC COM TEMPOS MED 
IOS" 

180 PRINT"9-CALC COM INCERTEZAS 
" : PRINT"?" ; 

190 TS=INKEYS:IF TS<"1" OR TS>" 

9" THEN 190 

200 T-VAHTS) :PRINT T 

210 IF T>7 AND NOT(CK) THEN PRI 

NT "FACA VERIFICAÇÃO (7) PRIMEIR 

O": GOTO 380 

220 IF AA-0 AND (T>40 OR T-3) T 

HEN PRINT"IMPOSSIVEL - NAO FOI 

INTRODUZIDO" :AS:GOTO380 

230 IF T>4 THEN 350 

240 IF T-4 THEN CLEAR 2000:T-4 

250 IF T>2 THEN PRINT "NOME DO A 

RQUIVO" : INPUTFS : GOTO 350 

260 CLS:PRINT AS;" OU EVENTO (A 

/E) ?"i 

270 TS-INKEYS :IF TSO"A" AND TS 
<>-E" THEN 270 

280 PRINT T$:IF T$-"A" THEN FS- 

AS ELSE F5-" EVENTO" 

290 PRINT : PRINT PS;FS;" NUMERO" 

:PRINT"OU ZERO PARA SAIR" 

300 INPUT U : U-INT (U) : IF U-0 THE 

N 140 

310 IF UCl OR U>ZZ THEN PRINT W 



S<3) :GOTO 2B0 

320 IF TS="E" THEN U--U 

330 GOSUB 700:CK=FA 

340 IFIT-2 OT TMIAND(O-UIX) <)R 

ZZ<U(X) THEN PRINT"VOCE NUNCA 
USOU ESTE NUMERO" :GOTO 380 
350 ON T GOSUB 390.590.750.810. 
890.960.1070,1550,1660 
360 IF T<3 THEN 290 
370 GOTO 140 

180 FOR T-l TO IOOOiNEXT T : COTO 
140 

390 IF FSOAS THEN 620 

400 IF 0<U(X) AND ZZ-=U(X) COSU 

B 1030:GOSUB 1000:GOTO 430 

410 IF AA-MA THEN PRINTWS I 2 J ; FS 

: RETURN 

420 AA=AA+1:A(AA)»X:U(X)=U 

110 PRINT US (4) ; FS : INPUT US(X): 

XA-X 

■140 PRINT PS:"INICIAR EVENTO. F 
1 MALI ZAR EVENTO" : INPUT S.F:S-1N 
TIS) ; F- TNT (F ] 

450 IF S<1 OH S>ZZ OR F<1 <JR F> 
ZZ THEN PRINT W$(3>:GOTO 440 
460 U-~S:GOSUB 700:IF UIXXO TH 
EN 490 

470 IF EE-ME THt.N PRINT US<2);" 
EVENTOS" ;LÍOTO 440 
480 GOSUB 660 
490 S(XA)=X 

500 U--F:GOSUB 700:IF UlXl^O TH 
EN 530 

510 IF EE-ME THEN PRINT US ( 2 1 : " 
EVENTOS" :GOTO 440 
520 GOSUB 660 
530 F(XA)-X 

540 PRINT PS;"TEMPO PROVÁVEL PA 

RA EXECUTAR" : INPUT TIXA) 

550 IF T(XA)<0 THEN PRI NT "NAO P 

ODE SER FEITO COM ESTA VELO 

CIDADE" ;GOTO 540 

560 PRINT" INTRODUZA KSTIMATIVA 

DE TEMPO COM 90» DE CERTEZA": 

PRINT"PODE SER FEITO EM" ; INPUT 

N(XA) 

570 IF NÍXA)<T(XA) THEN PRINT " 
NAO E COMPATÍVEL COM O TEMPO 

PROVÁVEL" :GOTO 540 
580 RETURN 



PLANEJAMENTO DA REDE PERT 



Antes de usar o programa para ava- 
liar um projeio. você terá que dividi-lo 
em atividades individuais e estimar o 
tempo de execução de cada uma delas. 
Para isso, o mais conveniente, como já 
vimos, é desenhar um esquema de blo- 
cos: a rede PERT. 

À medida que for desenhando o dia- 
grama, descreva as atividades ao longo 
das linhas de conexão entre eventos. 
Dentro dos círculos, coloque a descri- 
ção dos eventos. Se estes forem apenas 
passos intermediários entre atividades, 
não é necessário atribuir-lhes nomes es- 
pecíficos. 

A versão do programa para o Spec- 
trum permite o uso de até vinte caracte- 
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res por evento ou atividade; nos demais 
micros, podem-se utilizar 255 caracteres. 
Entretanto, dê preferência a títulos su- 
cintos, para não sobrecarregar a memó- 
ria disponível. 

Se você tem uma noção mais ou me- 
nos precisa da duração de cada ativida- 
de, escreva esse valor no diagrama. Pos- 
teriormente, veremos como estimar os 
tempos. Lembre-se, porém, de que a 
unidade de medida de tempo escolhida 
(hora, dia, semana etc.) deve ser sem- 
pre a mesma em toda a rede. 

O programa só funcionará correta- 
mente se a rede for viável do ponto de 
vista lógico — deve ter apenas um pon- 
to de partida e um de chegada, e não 
formar laços ou caminhos circulares. 

O passo seguinte ao desenho da rede 
PERT é a numeração de todas as ativi- 
dades e eventos e sua introdução no pro- 
grama. A ordem dos números não é im- 
portante, mas o computador precisa de- 
les para trabalhar. Um método bastan- 
te simples consiste em numerar os even- 
tos de dez em dez, como se faz com um 
programa em BASIC — o que permite 
inserir números extras entre os já exis- 
tentes, se for necessário. 

Quando você for definir os eventos 
e as atividades, o computador pedirá o 
número e a descrição de cada um deles, 
além de uma estimativa do seu tempo 
médio e do seu tempo pessimista (aque- 
le que conta com 90% de possibilidade 
de não ser ultrapassado). 

Na vida real, raramente podemos cal- 
cular com precisão o tempo que levare- 
mos para realizar uma atividade — mes- 
mo que a tenhamos executado muitas 
vezes. Entretanto, não é difícil estimar 
sua duração média, bem como sua du- 
ração aproximada. Isso é tudo o que o 
programa exige em termos de estimati- 
va de tempo. No entanto, como você ve- 
rá, os cálculos que ele faz não são tão 
simples, pois devem levar em conta qua- 
tro diferentes situações. 

A primeira situação é aquela em que 
estamos absolutamente seguros quanto 
ao tempo que uma certa atividade leva- 
rá. Por exemplo, se as instruções para 
a construção de uma casa recomendam 
que deixemos o cimento secar por 48 ho- 
ras, é exatamente isso que vamos fazer! 
Nesse caso, ao usar o programa, deve- 
mos indicar o mesmo valor para o tem- 
po médio e o pessimista. 

A segunda situação ocorre quando es- 
tamos razoavelmente seguros sobre a du- 
ração de determinada atividade. Sabe- 
mos, por exemplo, que uma viagem en- 
tre as cidades de São Paulo e Campinas, 
de automóvel, demora cerca de 90 minu- 
tos, porque já a repetimos muitas vezes, 
sem observar grandes variações (mais ou 



menos 10%, devido a eventuais dificul- 
dades de trânsito). Portanto, entramos 90 
minutos como tempo médio, e 100 mi- 
nutos como tempo pessimista. Essa si- 
tuação corresponde à curva conhecida 
como curva normal ou gaussiana. 

A terceira situação é a que chamamos 
"espere até acontecer". Por exemplo: 
você só terá a certeza de que a reforma 
no telhado foi bem feiía quando come- 
çar a chover. Aqui, o tempo pessimista 
é cerca de 2,5 vezes maior que o tempo 
médio. Este pode ser obtido a partir do 
número de dias de chuva naquele mês 
específico. 

A quana e última situação correspon- 
de ao tempo do "ludo ou nada". É mui- 
to improvável, por exemplo, que uma 
determinada peça do carro quebre, mas, 
se isso ocorrer, o veículo ficará na ofi- 
cina durante dez dias. Nesse caso, tome 
o valor máximo (dez dias) como o tem- 
po pessimista, e a média aritmética (10 
vezes 1/100, ou 1/10 de dia) como o 
tempo médio. 

Não é necessário indicar ao micro- 
computador o gráfico em que se encai- 
xa cada atividade. A máquina simples- 
mente toma as duas estimativas de tem- 
po, e efetua os cálculos. Se a diferença 
enire os dois valores for de 0 a 30%, ele 
usa a curva gaussiana; se for de 30 a 
130%, usa uma curva gaussiana modi- 
ficada. Por outro lado, se o valor da mé- 
dia estiver entre 130 e 300%, o progra- 
ma recorre à curva exponencial e, se es- 
tiver acima dessa porcentagem, utiliza 
a curva bimodal. 

Depois de entrar todas as atividades 
e suas respectivas estimativas de tempo, 
você deverá entrar os eventos. Para isso, 
basta digitar o número e a descrição de 
cada evento no diagrama. Se você come- 
ter algum erro, chame as opções de apa- 
gamento ou de modificação de eventos 
ou atividades. 

A informação entrada no computa- 
dor pode ser exibida em vários tipos de 
tabela. A opção "Mostre Detalhes" 
mostrará uma lista de tudo o que foi en- 
trado. Se você tem uma impressora, po- 
derá também obter uma cópia cm papel. 



CONSISTÊNCIA DE DADOS 



eventos de inicio e de fim. Entretanto, 
se encontrar alguma inconsistência na 
rede, emitirá uma mensagem de erro, 
identificando caminhos circulares ou in- 
terrupções. 



0 CAMINHO CRÍTICO 



Finalmente, selecione a opção para 
calcular o caminho critico. Existem duas 
alternativas: a primeira usa o tempo mé- 
dio de cada atividade, e a segunda, o 
tempo incerto (pessimista). Peça antes 
a primeira alternativa. 

O vídeo mostrará todas as atividades. 
seu número de código e descrição. Em 
seguida, dirá quando cada uma deve ser 
iniciada e concluída, se existe alguma 
íolga, e se a atividade é crítica — ou se- 
ja, se está no caminho crítico, com fol- 
ga igual a zero. 

O tempo é expresso na mesma uni- 
dade que foi entrado. Assim, se você 
usou dias, todos os tempos irão se refe- 
rir a dias, contados a partir do evento 
inicial da rede. Suponhamos que a ta- 
bela indique que a atividade 3 deve co- 
meçar no dia 6. terminar no dia 10, e 
tem uma folga de dois dias. Você pode- 
rá começar aquela atividade no mínimo 
seis dias depois de iniciado o projeto, 
com uma tolerância de dois dias (ou se- 
ja, se você atrasar a atividade até o dia 
8. o tempo total do projeto não será al- 
terado). 

As atividades que têm folga zero de- 
vem começar exatamente no dia indica- 
do; caso contrário, haverá um atraso no 
projeto. Se isso ocorrer, você precisará 
recalcular toda a rede, com a nova esti- 
mativa para a atividade ou atividades in- 
fratoras. 

Se a maioria dos tempos que você en- 
trou são incertos, e o tempo pessimista 
é muito distinto do médio, use a segun- 
da opção de cálculo, pois o caminho 
critico será diferente. 

Quando você escolhe essa opção, o 
computador considera cada atividade e, 
usando o gráfico de distribuição mais 
apropriado, seleeiona um tempo ao aca- 
so, dentro dos limites propostos. A par- 
tir desse tempo, ele calcula o caminho 
crítico para toda a rede, exatamente co- 
mo na opção anterior, e armazena os va- 
lores de início ede folga das atividades. 
O processo se repete 44 vezes: em cada 
uma delas um novo número aleatório é 
escolhido para as atividades incertas. As 
45 repetições (todas são exibidas na te- 
la) proporcionam uma amostra razoá- 
vel para a derivação dos valores médios 
de tempo. 

Os tempos de inicio e fim do projeto 
correspondem à média de 45 repetições 



Antes que o computador prossiga 
com os cálculos, é necessário checar se 
há consistência lógica na rede entrada. 
Se esta contiver caminhos circulares, o 
programa cairá em uma alça sem fim de 
cálculos e, eventualmente, apresentará 
um defeito de execução. 

Escolha a opção de verificação e ob- 
serve o resultado. Se tudo estiver bem, 
o programa imprimirá os números dos 
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ao acaso; portanto, são bastante confiá- 
veis. A folga média das atividades não 
críticas também é indicada. 

Os valores críticos mostram a porcen- 
tagem da participação de certa ativida- 
de no caminho crítico — 100% signifi- 
ca que a alividade será sempre critica; 
0%, que ela nunca é crítica. 

O último valor mostra o desvio pa- 
drão do tempo de folga, indicando a va- 
riação possível da folga e, também, a 
confiabilidade da estimativa. Por exem- 
plo, se há uma folga de 1 ,5 dia e o des- 
vio é igual a 1, a folga pode variar en- 
tre 0,5 dia e 2,5 dias. Nesse caso, con- 
cluí-se que a folga é pouco confiável. 
Ao contrário, um desvio padrão de 0,1 
mostra que o valor atribuído à folga é 
bastante confiável. 




330 print w$M> ítSi":"-.: INPUT 
U$(x): PHINT u$(x)- t.ET a (x) " 
0 : BETURN 

350 LET ee-ee+1: LET e(ee)=x: 
LET atx)=-l: LET r(x)=0: LET u 
(x)=u 

360 LET t(X)-0! LET n(x)=0: 

LET uS txl : RETURN 

40D LET Z"x: FOB t=l TO ee: IF 

e(t)-z NUM LET e-£ 

420 NEXT t: LET e(e)=e(ee): 

LET u(K)-»+l! LET ec = efi-l: 

BETURN 

450 LET z=u-INT ( (u-1 } /mh) *mh : 

LET Y=Z: LET x^0 

460 TF x=0 THEN IF 0 = il|z> OR 

ÍÍ+1»U(Z) THEN LET X-B 

470 IF u-utíí THEN LET x-z: 

BETURN 

480 IF Y-l OR 0'U(x) THEN 
RETHBN 

49Q LET z-z+y-mh*TNT (<«♦»-!>/ 
mh) : t.ET y" y+y-mh* TNT ((v+y-il 
/mtil BOTO 460 

500 LET x(l>-ma: LET «U)"M! 
LET mll-uh: LET x{4)-a.i: LET 
x(5)'e*: LET x(6)=<-k: I ET x|/l 
-3f. LET x(Bl"te: PR 1 NT "preLia 
LOMI <KNTER> dez V»**»" ! SAUE 
f5+-x" DATA Xt): FOR X-l TO 
101): NEXT X 

510 SAUE tê*'»' DATA a[): SAUE 
tS-»"e" DATA ■(): SAUE f3+"t" 
DATA f(l; ^AVE ÍS+"<r" DATA 0(1 

: SAUE E3+"tl" DATA n<): SAUE 
fS+"s" DATA 3(): SAUE íS*"t" 
DATA LO: SAUE 1 $+"u" DATA u() 

; SAVE tS+"»S" DATA uS I ) I 
RETURN 

600 LUAD tS+"x" DATA x(): LET 
md*x{L): LET w>=X CZ) : LET mh^x 
(3) : LET aa-x(4) : LET ee"X(!i) ! 
LET ck-xtb) : LET ae>x(/) : LET 
íp-x(8) : COSUB 12 
610 LOAD t5+"a" DATA •() I LOAD 
fS+"e" DATA eO: LOAD ti**t" 
DATA ft): LOAD ÍS+"«" DATA g() 



: LOAD íS+"rT DATA n(): LOAD 
fS+"s" DATA a<): LOAD fS+"t" 
DATA t.(): LOAD É$+"tJ" DATA u() 
: LOAD fS+"uS" DATA uS O : LET 
talse»0: BETURN 
700 LET xtl>=ma: LET x(2)=me: 
LET x{3)-itih: LET x(4)=aa: LET 
x{5)=ee: LET xC6)=ck: LET x(7) 
-ae: LET x<8)=fe: UERIFY fS+"x 
" DATA x() 

710 UERIFY !S+"a" DATA a(): 
UEHIFY £$+"e" DATA e<>: UERIFY 
f$+"f" DATA fO: UERIFY fS+"g" 
DATA g() : UERIFY fS+"n" DATA n 
() : UERIFY tS+"a" DATA a{) : 
UF.HIKY £S+"r" DATA L(): UERIFY 
fS+"u" DATA ut): UERTFY tS+"u$ 
" DATA uS O : BETURN 
800 COSUB 942 

810 FOR a = l TO aa: LET x=a (a) : 
COSUB 932 

820 LET y=y+l+[LEN u$(x)>4): 
IF y>20 AND a<aa THEN COSUB 

«40: COSUB 942 
830 NF.XT a: COSUB 940 
840 G03U8 946: FOR c=l TO ee: 
LET x = e (o) : COSUB 933 
aSO LET y-y+l.+ (LEN uS(x)>4): 
TF y 70 AND B<ee THEN GOSUB 
940: COSUB 946 
H60 NEXT e: GOTO 940 

932 PR TNT FN ISIFN utatx)));FN 
ISiFN u(f(x)));FN I$(Ux));FN 
IStn(x)) :ABS u(x) ;" ";u$tx) : 
RETURN 

933 PRINT ABS u(x).uStx): 
RETURN 

940 PRINT "pressione <ENTER> P 
dld sair* ! INPUT f$: CLS : 

RETURN 

942 CLS : PHINT " INTCI FINAL T 

EMPO 90* CÓDIGO TEXTO" 

944 PRINT "FINAL INICT PHOUL E 

ÍJTIK "i LET V = 3: RETURN 

946 PRINT "CODTGO" , "TEXTO" : 

RETURN 

94H PRINT "PnEU FINAL MIN MAX 

" ! LET Y=3: RETURN 
1000 LET CR-trU»! FOH a-1 TO aa 
: LET x^-a(a) 

1020 LET z=a(x): IF stíXO OR z 
z<u(z) THEN PRINT u (x) ; wS (5 ) ; u 
(z) : LET ck=f alse 

1030 LET z=f(x>: IF aUKO OR z 

z<u(2> THEN PRINT u[x)iW$(5);u 

(z) : LET rk-falae 

1040 NEXT a: IF ck-falae THEN 

GOTO 1750 

1050 LET e=l 

1060 LET z=ete): IF a(z)<0 THEN 
COSUB 400: IF e<-ee THEN GOT 
O 1060 

1070 LET e=e+l : IF e< = ee THEN 
GOTO 1.060 

1080 FOR e = l TO ee: LET z-e(e): 
LET s(z)=0: LET f(z>=0: NEXT e 

1082 FOR a^l TO as: LET x-a(a): 
LET a(£ (x) ) =x : NEXT a 

1090 LET ae-0: FOR e=l TO ee : L 

ET z-e{e): IF BÍ!t)>0 THEN COTO 
1096 

109Z IF ae=0 THEN LET ae-z : GO 
TO 1096 



1094 PRINT wS(l):u(z): IF aeOm 
h THEN PHINT uSíl) ;utae) : LET 
ae-mh+l 

1096 NEXT e: IF se=0 THEN PHIN 
T "TODOS OS EUENTOS TEM* : aS ; " P 
RECEDENDO" 

1098 IF ae=0 OR se>mh THEN GOT 
0 1750 

1J00 FOR p-1 TO ee: LET z=e (e) : 
LET ttz)=0: LET n(z)-0: NEXT e 
: LET t. (ae)=l 

1110 LET l»at-l: FOR c=2 TO ee+ 
2- IF last<>c-i THEN COTO 1170 
1120 FOH TO aa: LET x=a ta) : 

LET y-a(X): IF t(y)Oc-t THEN 

GOTO 1160 
11.30 IF y=f(x) THEN GOSUB 1200 
: COTO 1160 

1140 IF yOae THEN LET yaíy): 

GOTO 1130 
1150 LET Y-f(x): LET sty)'S(x): 

LET f(a(Y))-Y: LET t(Y)^<:: LET 

fe-y: LET laat=c 
1160 NEXT a 

1170 NEXT c: PRINT "evento mie 
ia! =" ; u (se) ; "evento final=";u(£ 

1180 FOR e=l TO ee : LET y-e(e) 
1190 IF ftY)=0 AND yOEe THEN 
PHINT u(y)i"NAO CONECTADO AO EU 
ENTO FINAL": LET ck=talae 
1192 NEXT e: IF ck THEN GOTO 1 
300 

1194 GOTO 1750 

1200 CLS : PHINT "EXISTE O SEGU 
INTE LOOP": PRINT "EVENTOS...": 

LET xa = a ta) 
12)0 LET x=E(xa): PRINT u (x) : L 
ET y-a(xa): PRINT u[y) 
1220 LET Y-3ÍY): PRINT ufv): IF 

yOx THEN GOTO 1220 
1230 RETUBN 

1300 LET k«l: LET ak=aa : IF aa- 
1 THEN LET k-0 

1310 LET ak-INT (tak*k)/2): IF 
ak^O THEN GOTO 1500 
] 320 t.ET k = 0: FOR a-ak+1 TO aa : 
LET ti-a-ak: LET n"a(a): LET v- 
a(b>- LET xa=s(xí: LET ye-aly) 
1330 IF r (ye)+ye/zz<-t(xe)+xe/z 
z THEN GOTO 1360 
1340 LET a(a)-y: LET atbi^x: LE 
T k-1 

1360 NEXT h: GOTO 1310 

1500 LET ntt>)"laat; Fort <i laat 
-I TO 1 BTEP -1 

l^O KOn d^l TO da: LET x^a(a). 
IF Q(í(*)X>d+l THEN COTO ISA 

D 

1550 LET y^Ei(x): LET tlyl-tfx): 

LET n(y) «d 
1560 NEXT d: NEXT d 
1600 FOH a I TO aa: LET g(a)-a( 
a): NEXT d: LET k-1: LET «R-MS 

IK aa^l THEN LET k'-0 
1610 LET rfk-lNT [ ( ak+k ) /2) : IF 
ak=0 THEN COTO 1700 
1620 LET R»0: FOR a=ak+1 TO aa : 

LET b-h-ak: LET x--q(J) ! LET y- 
g(b): LETxe-ttX): LETyr--£(y) 
1630 IF titye)+yn/z-/<=n(xe)*xe/z 
z THEN COTO 1660 
1640 LET g(a)*y: LET g(b)=X: LE 
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T k-1 

1660 NEXT a: GOTO lblO 
1700 LET ck^true: RETURN 
1750 LET ck=falae: PRINT AT 21. 
8; "QUALQUER TECLA PARA CONTÍNUA 
R": PAUSE 0: RETURN 
2000 FOR a= I TO da: LET x-a(a): 
LET t(x)»t(x): NEXT a: GOSUB 2 
100 

2020 FOR a=l TO ms LET x-a(«}: 
LET y (x) - (z (t (x) > -y {a !x) ) = z{x) 
)*100: NEXT d 

2030 FOR b=l TO aa STEP 5: Cts 
: FOR a=b TO aa+FN a(b-M-aa): L 
ET x-d(d) 

2040 PRINT ã3i" " ;u(x) ; " = " :uS U 
) { TO 16) 

2050 LET c-y(3(x)l: LET d = z (£ (x 
)): PRINT "pode iniciar ";ci".d 

2060 PRINT "tempo livre "id-c-í 
[X)I- (critico ";y{x)i"í)": 1F 
t=12 THEN PRINT "degvio-" ; q (x) 

20/0 PRINT : NEXT a: GOSUB 940: 

NEXT b: RETURN 
2100 FOR e=l TO ee: LET y(e(e)) 
=0: NEXT e 

2110 FOR a~l TO aa: LET X«a(a) : 
LET y(f{x) } =y ( f (x) ) +FN z(y(3(x 
) )-y (f (x) )*z(x) I : NEXT a- 
2120 FOR e = i TO ee f LET z(e(e)I 
-y(te): NEXT e; FOR a=aa TO 1 S 
TEP -1 : LET x=g (a) 
2130 LET z (3(x) )-z (s (x) )+FN a(z 
(f (x) )-z(s (x) )-z (x) ) : NEXT d: R 
ETURN 

3000 FOR a=l TO aa: LET x=a(a): 
LET p{x)=0: LET q(x)=0: LET y( 
x)=0: NEXT a 

3020 FOR e-1 TO ee : LET z=e(e): 
LET p(z)'0: LET qUXO: NEXT e 
3030 FOR m-1 TO 43 STEP 3: FOR 
a--l TO aa: LET w(a)-2*ílND-l: NE 
XT a 

3040 FOR n=0 TO 4 STEP 2: CLS : 
PRINT "CASO » ";m+n/2;" EM 45" 

3050 FOR a-1 TO aa: LET x-a(a): 
LET Lx»t(x)> IF tx=0 THEN LET 
2 lx) -0 : GOTO 3080 

3052 LET nx-n[x) : TF nx-T.x THEN 
LET z(x)--tx: GOTO 3080 

3054 LET w FN w ( w ( d ) i-n/ 3 ) : IF n 

X>-tx»3 THEN LET t (x)-n(x) * («< 

tx/nxl : OOTO 3OH0 

3060 IF RX>tx*2. 34 THEN LET z{ 

X)--lx'LN w: GOTO 3080 

JU/0 LET w-FN xíw-.b): LET z(x) 

-ABS ( Lx+w* (nx-tx) ) 

3080 NEXT a 

3090 nosua 2100 

J100 FOR ,j-1 TO aa. LET x-a(a): 

LET z = z(t (x) ) -y {s [x> 1 -z (s) 
3110 LET p(x)=p(x)+z: LET q(x!= 
q(x)+z*z: I.ET y(x) -y U> +(zvl .c- 
6) : NEXT a 

3120 FOR e-1 TO ee: LET z = c (e) : 
LET p (z ) -p (z ) +y ( z) : LET q (z ) -q 
lz)+z(z): NEXT e: NEXT n: NEXT 

3200 FOR e-1 TO ee r LET z-e(e): 

LET y(z}-VAL (FN IS(p(z)/45)) 
3210 LET z(z)=vAL (FN TS(q(z)/4 



5) ) : NEXT e 

3220 FOR a-1 TO aa : LET x==a(a): 
LET y = y[x): LET y (x) -VaL I (t-JTR 
3 (y/45*100)+" ") ( TO 4)) 
3230 IF ptxXl.e-2 THEN LET p[ 
x)-0 

3240 LET z^ (45-y)+l.e-9: LET z( 
x)=z íf (x) >-y (s(xí)-VAL (FN i$(t> 
(x) /Z) ) 

3250 LET q(x)=SGH ABS ( <q (x) -p ( 
x) *p(x)/z) / ( (z-l) + . ] t— 9) ) : IF .j 
(x)<l.e-6 THEN LET q(x)"Q 

3260 NEXT d: COTO 2U.10 



Q 

590 IF FSOAS THEN 680 

600 FOR B = l TO AA : IF X=A(B) THE 

N A-B 

610 NEXT B:A(A)-A(AA) :U(X)=ZZ+1 
: AA-AA- 1 : RETURN 

620 IF UIXKO GOSUB 1050:PRINT 
USINGdilil ":ABS(U(X)) ; : PRINT 

US (X) : GOTO 650 
630 IF EE = ME THEN PRINT WS(2);F 
S : RETURN 
640 GOiJUB 660 

650 PRINT WS(4) i FS : INPUT US(X): 
S(X)*0:RETURN 

660 EE-EE+1:E(EE)-X:S(X) — 1 : F (X 
)-0:U(X) -U 

670 T(X)-0:N<X)-0:U$(X)«"":RETU 
RN 

680 Z-X:FOR F-l TO EE : IF E(F)-Z 

THEN E = F 
690 NEXT F:E(E)=E(EE) :U(Z)-ZZ+1 
: EE=EE- 1 ; RETURN 

700 Z-U-INT ( IU-1 ) /MH) *MH : Y-2 : X- 
0 

710 IF X-0 (O-U(Z) OR ZZ+1-U(Z) 
) THEN X-Z 

720 IF U-U(Z) THEN X=Z:RETURN 
730 IF Y=l OR 0-U(Z) THEN RETUH 
N 

740 Z=Z+Y-MH*INT ( (Z+Y-l) /MH) : Y- 

Y+Y~MH*INT( (Y+Y-l) /MH) : GOTO 170 

750 OPEN "O" , i-1 , F3: PRINT *-l,M 

A ; ME ; MH ; AA ; EE ; CK 

760 IF CK THEN PRINT*-1 , SE ; FE 

770 FOR A-1 TO AA : X-A (A) : PRINT 

#-l,X;U(X);S(X);F!X);T(X);N(X); 

C(A) :U5(X) : NEXT A 

780 FOR E = l TO EE : Z-E (E) : PRINTi 

- 1 ,2;U(Z) ;S(Z) ;F (Z) ;T(Z):N(Z) ;U 

$(Z) : NEXT E 

790 FOR X-l TO MH : I F U(X)-ZZ+1 

THEN PRINT #-l,X 

800 BEXT X:PRINT|-1.0 

810 CLOSEt- 1 : MOTORON : FOR X-l TO 

100:NEXT X : MOTOROFF : RETURN 
820 CLS:PRINT"SALVAR DADOS - er 
ro:FOR K=l TO 1000:NEXT:RETURN 
830 OPEN"I" , |-1 . FS : INPUT*-1 ,MA. 
ME .MH . AA , EE . CK : GOSUB 20 
840 IF CK THEN INPUT |-1,SE.FE 
850 FOR A=l TO AA:INPUT i~l,X,U 

(X) ,S (X) ,F(X) ,T(X) ,N(X> .G(A) ,U$ 

(X) :A(A)-X:NEXT A 

660 FOR E-1 TO EE : INPUT#-1 , Z . U ( 
Z).S(Z),F(Z),T(Z),N(Z),U$(Z):E{ 
E) -Z:NEXT E 



870 INPUT »-l.X:IF X>0 THEN U (X 

)-ZZ+l:GOTO 870 

880 CLOSE |-1:RETURN 

890 GOSUB 1870:A-0:GOSUB 1030 

900 FOR A-1 TO AA : X-A (A! : GOSUB 

1000 

910 Y=Y+1:IF Y>8 AND A<AA GOSUB 

1020:GOSUB 1030 
920 NEXT AiCOSUB 1020 
930 E=0:GOSUB 1050:FOR E-1 TO E 
E :X-E (E) : PRINT »PR . USING" MiM 
";ABS(U(X)) ; :PRINT fPR.U$(X) 
940 ]f«Y+Í:XF Y>15 AND E<EE GOSU 
B 1020:GOSUB 1050 
950 NEXT E:GOTO 1020 
960 CLS ! PRINT"TEM CERTEZA ? |S 
/N) " 

970 TS-INKEYS:IF TSO"S" AND TS 

<>"N" THEN 970 

980 IF TS="N" THEN RETURN 

990 CLS : END 

1000 PRINT IPR.USING"|||tl tttt 
I lt*H tllll 1 1 ■ » « : 

,FNU(F (X) ) ,T(X) ,N(X) .A3S(U(X) ) ; 
:IF PR=0 THEN PRINT 
1010 PRINT #PR." " ; US (X) : RETURN 
1020 IF PR-0 THEN PRINT"<ENTER> 
PARA CONTINUAR" ; INPUT FS:CLS:fl 
ETURN ELSE RETURN 
1030 CLS:IF PR-0 OR A-0 THEN PR 
INT #PR. "INICIO ULTIMA VEZ 90 
í ATIVTDADE " : Y-3 
1040 RETURN 

1050 CLS:IF PR-0 OR E-0 THEN PR 
INT IPR." EVENTO TEXTO" : Y-3 
1060 RETURN 

1070 CK=TR : FOR A-1 TO AA:X-A(A) 
1080 Z=S(X)-IF S(Z)<0 OR ZZ<U(Z 
) THEN PRINT AS;U(X) :WS(5) ;U(Z) 
: CK'FA 

1090 Z-F(X):IF S{Z)<0 OR ZZ<U!Z 
) THEN PRINT AS ; U (X) ; WS ( 5) ; U (Z) 
:CK-FA 

1100 NEXT A:IF CK=FA THEN 1540 
1110 E-1 

1120 Z-E{E):IF SIZX0 GOSUB 680 
: IF EOEE THEN 1120 
1130 E=E+1:IF E<=EE THEN 1120 
1140 FOR E=l TO EE:Z-E(E) :S(Z)= 
0:F(Z)-0:NEXT E 

1150 FOR A-1 TO AA:X-A(A) :S(F(X 
) )*X:NEXT A 

1160 SE-0:FOR E'l TO EE:Z=E(E): 

IF S(Z)>0 THEN 1190 

1170 IF SE-0 THEN SE=Z:GOTO 119 

0 

1180 PRINT W$<1) ;U(Z) : IF SEÍ-MH 
THEN PRINT MS 11) ; U (SE) : SE-MH + 1 
1190 NEXT E:IF SE-0 THEN PRINT" 
TODOS OS EVENTOS TEM" : PRINT AS; 
" PRECEDENDO" 

1200 IF SE-0 OR SE>MH THEN 1540 
1210 FOR E-1 TO EE:Z=E(E) :T(Z>- 
D:N[Z)=0:NEXT E:T(SE)-1 
1220 LA-l:FOR C=2 TO EE+2:IF LA 
OC-1 THEN 1280 

1230 FOR A-1 TO AA:X=A(A) :Y-S(X 

) :IF I(Y)OC-l THEN 1270 

1240 IF Y-F(X) GOSUB 1330:C;OTO 

1270 

1250 IF YOSE THEN Y>S(Y):GOTO 
1240 

1260 Y-F(XÍ :S(Y) -S (X) :F (S(Y) ) - Y ms 7 
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:T(Y)-C:FE-Y:LA-C 
1270 NEXT A 

1280 NEXT C:PRINT"EVENTO INICIA 
L";U(SE);", EVENTO FINAL " , U tf E 

1 

1290 FOR E-l TO EE:Y-E(E) 

1300 IF F(Y)-0 AND YOFE THEN P 

H1NT U(Y) ;"NAO CONECTADO AO EVE 

NTO FINAL" :CK-FA 

1310 NEXT E:IF CK THEN 1370 

1320 GOTO 1540 

1330 CLS:CK-FA:PRINT"EXISTE O S 
EGUINTE LOOP":PRINT"EVENTOS ... 
" :XA"A(A) 

1340 X=F(XA) : PRINT U(X) :Y=S(XA) 
:PRINT U{Y) 

1350 Y-S(Y):PRINT U(Y):IF YOX 
THEN 1350 

1360 FOR X-l TO 1 000 ; NEXT : HETUH 
■ 

1370 K-1:AK-AA:IF AA-1 THEN K=0 
1380 AK-INTI (AK+K1/2) : IF AK=0 T 
HEN 1430 

1390 K-0:FOR A-AK+1 TO AA:B-A-A 
K:X-A(A) :Y-AÍB) iXE-SÍX) :YE*SÍ5M 
1400 IF T(YE)+YE/ZZ<-XE/ZZt-T(XE 
) THEN 1420 

1410 A(A)=Y:A(B)=X:K=1 

1420 NEXT A:GOTO 1 360 

1430 N (FE ) -LA : FOR D-LA-1 TO 1 8 

TEP-1 

1440 FOR A-l TO AA;X-A(A):IF N( 

F[X))OD+l THEN 1460 

1450 Y-S(X) :F(Y)-FÍX) :N(Y)-D 

1460 NEXT A : NEXT D 

1470 FOR A-l TO AA: G (A) -A [ A) : NE 

XT A:K-1 :AK-AA: IF AA-1 THEN K=0 

1480 AK-INTf (AK+K) /2) : IF AK-0 T 

HEN 1530 

1490 K-0: FOR A-AK+1 TO AA : B-A- 
AK:X-G(A) :Y-G(B) :XE-F(X) : YE-F ! Y 
) 

1500 IF N(YE)+¥E/ZZ<-XE/ZZ*-N(XE 
) THEN 1520 

1510 C(B)-X:G(A)-Y:K=1 

1520 NEXT A:GOTO 1480 

1530 CK-TR : RETURN 

1540 CK"FA : FOR X-l TO 1000:NEXT 

X : RETURN 
1550 GOSUB 1870:FOR A-l TO AA . X 
-AIA) : Z (X) -T (X) : NEXT A : GOSUB 16 
20 

1560 FOR A=l TO AA:X-A(A) :¥(X)- 
- (Z(F (X) >-Y(S(X) ) -2(X) ) "100.NEX 

T A 

1570 FOR B-l TO AA STEP 3:CLS:F 
OH A-B TO AA+FNA{B+2-AA) :X=A(Ai 
1580 PRINTIPR. AS;UtX) ;"-":US(Xl 
1590 C-Y(SIX) ) :D=Z(F (X) ) :PR1NT 
IPR."PODE INICIAR" ; C: "DEVE TERM 
IN AR" ;D 

1600 PRINTIPR . "TEMPO LIVRE" ; INT 
(100" (D-C-Z(X) ) ) /100 ; " (CRITICO" 
; Y (X) ;"»)": IF T-9 THEN PRINTIPR 
,USING"DESVIO = MII - II" ;Q(X) 
1610 PRINTIPR : NEXT A:G05UB 1020 
; NEXT B : RETURN 

1620 F^R E-l TO EE : Y ( Ê (E ) ) '0 : NE 
XT E 

1630 FOR A-l TO AA : X-A í A) ; í ( F [X 
1 ) -Y (F (X) )+FNZ{Y(S(X))-Y(F(X) i+ 
Z(X) ) : NEXT A 
. 1640 FOR E-l TO EE: Z(E(E) ) -Y (FE 



):NEXT E : FOR A- AA TO 1 Í!TEP-1:X 
-G(A) 

1650 Z(S(X) )-Z(S(X) >+FNA(Z(F (X) 
) -Z(S (X) 1 -Z(X) ) :NEXT A : RETURN 
1660 GOSUB 1870:FOR A-l TO AA : X 
-A (A) :P(X!=0:Q(X)-0:YfX)-0:NEXT 
A 

1670 FOR E-l TO EE : Z-E (E ) : P (Z 1 - 
0:Q(Z)-0:NEXT E 

1660 FOR M=l TO 43 STEP 3 : FOR A 

-1 TO AA:W(A)-2*RND(0)-1:NEXT A 

1690 FOR N-0 TO 4 STEP 2:CLS:PR 

INT"CASO";M+N/2:" EM 45" 

1700 FOR A-l TO AA : X-A (A) : TX-T ( 

X):IF TX-0 THEN Z(X)-0:GOTO 175 

D 

1710 NX=N(X):IF NX-TX THEN Z(X) 
-TX:GOTO 1750 

1720 W-FNW(W(A)+N/3> : IF NX>-TX* 
3 THEN Z(X)— NX«(W<TX/NX) :GOTO 
1750 

1730 IF NX>TX*2.34 THEN Z(X)— T 

X*LOG(W) :GOTO 1750 

1740 W-FNX(W-.5) : Z (X) -ABS (TX+W* 

(NX-TX) ) 

1750 NEXT A 

1760 GOSUB 1620 

1770 FOR A-l TO AA : X-A (A) : Z-Z ( F 
(X) )-YÍS(X) ) -Z (X) 

1780 P(X)=P(X)«-Z:Q(X)-Q(X1+Z*Z: 

Y (X ) = Y (X) * (Z<]E-6) : NEXT A 

1790 FOR E-l TO EE : Z-E (E ) : P (Z) - 

p(z)+y(z) :q (z) -q{2) +2 (2) :next e 
.n,m 

1600 FOR E-l TO EE : Z- E ( E) : Y ( Z) - 
VAL ( LEFTS (STRS ( P ( Z ) 745) .6) ) 
1810 Z(ZJ-VAL(LEFT3(STRS!Q(Z)/4 

5) .6)) : NEXT E 

1820 FOR A-l TO AA : X-A ( Al : Y-Y (X 
) :Y(X)'-VAL(LEFTS(STRS(Y/45*100 
1 .4) ) 

1830 IF P(X)<lE-2 THEN P(X)-0 
1840 Z-45-Y+. 1E-9:Z(X) =Z (F (X) > - 
Y (S (X) ) -VAL (LEFTS (STRS (P (X) /Z) . 

6) ) 

1850 Q(X) -SQRIABS ( ((í (X)-P(X) *P( 

X)/Z)/( (Z-l J + .1E-9) )) :IF Q(X)- J 

. E-6 THEN Q (X) =0 

1860 NEXT A:GOTO 1570 

1870 IF(PEEK(65314)AND1)-1 THEN 

RETURN ELSE CLS : PRINT"TELA OU 
IMPRESSORA (T/I) ?" 
1880 QS = INKEYS:IF QSO"T" AND Q 
SO"I" THEN 1680 
1890 IF QS="I" THEN PR--2 
1900 CLS : RETURN 



) - ZZ ♦ 1 : GOTO 640 
645 PRINT DO3"CL0SE "F9 
650 RETURN 

700 PRINT DOS"OPEN "FS 
710 PRINT DOS"DELETE "FS 
720 PRINT DOS"CLOSE "FS 
730 RETURN 
800 GOSUB 942 

810 FOR A = 1 TO AA:X - A (A) : 
GOSUB 932 

820 Y - Y +■ 1 + ( LEN (US(X) ! > 
12): IF Y > 20 AND (A < AA) TH 
EN GOSUB 940: GOSUB 942 
630 NEXT A: GOSUB 940: PRINT " 
EVENTOS" : Y = 3 

840 FOR E = 1 TO EE:X = E(E):X 
P = U(X): GOSUB 950: PRINT US(X 
) 

850 Y = Y + 1 + (LEN (US (X) ) > 
12): IF Y > 20 AND E < EE THEN 
GOSUB 94 0: GOSUB 946 

860 NEXT E ! GOTO 940 

900 INPUT "REINICIA O PROGRAMA 
(S/N) ? ";ANS: IF LEFTS (ANS.l 

) = "N" THEN 50 

910 IF ANS < > "3" THEN 9D0 
92 0 RUN 

932 XP = FN UíS(X)>: GOSUB 950 
:XP = FN U(F(X)): GOSUB 950:XP 

= T(X): GOSUB 950:XP - N (X) 

933 GOSUB 950:XP = ABS (U (X) ) 
: GOSUB 950 

935 PRINT : PRINT "TEXTO = " iU 
S (X) : RETURN 

940 IF KK5 < > "S" THEN PRIN 
T "<RETURN> PARA CONTINUAR" ; : I 
NPUT FS: HOME : RETURN 

941 RETURN 

94 2 HOME : PRINT "ATIVIDADES : " 
943 PRINT "—EVENTOS-- TEMP 



600 HOME : PRINT DOS"OPEN "FS 
605 PRINT DOS "READ "FS 
610 INPUT MA, ME .MH . AA , EE . CK ; G 
OSUB 12 

615 IF CK THEN INPUT SE, FE 
620 FOR A = 1 TO AA 
625 INPUT X.U(X) ,S(X) ,F(X) ,T{X 
) ,N<X) ,C(A) ,US(X) :A(A) - X: NEX 
T A 

630 FOR E = 1 TO EE 
635 TNPUT X,U(X) .S(X) . F (X) ,T(X 
) ,N(X) .US(X) ;E(E) - X: NEXT E 
640 INPUT X: IF X > 0 THEN U(X 



944 PRINT "FINAL INICI PROVL E 
STIM CODIGO":Y - 3: RETURN 
950 XPS = LEFTS ( STRS (XP) + 
-.61: PRINT XPS;: RETURN 

960 HOME : PRINT "SAÍDA P/ IMP 
RESSORA (S/N) 7" 

970 GET KKS: I F KKS < > "N" A 
ND KKS < > "S" THEN 970 
980 RETURN 

1000 CK - TR : FOR A-l TO AA:X 
= A (A) 

1020 XE - S(X) : IF S(XE) < 0 OR 
ZZ < U(XE) THEN PRINT U(X);WS 
(5) :U(XE) :CK = FA 

1030 Z = F(X) : IF S(Z) < D OR Z 
Z < U(Z) THEN PRINT U(X):WS(5) 
;U(2) :CK = FA 

1040 NEXT A: IF (CK = FA) THEN 

1750 
1050 E = 1 

1060 X = E(E): IF S(X) < 0 THEN 

GOSUB 400: IF E < = FE THEN 
1060 

1070 E - E + 1: IF E < - EE TH 
EN 1060 

1080 FOR E-l TO EE:X - E(E) : 

S(X) = 0:F(X) = 0: NEXT E 

1082 FOR A 1 1 TO AA:X = AIA): 

S(F(X) 1 = X: NEXT A 

1090 SE = 0: FOR E = 1 TO EE:X 

- ElE): IF StX) > 0 THEN 1096 
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1092 1F SE - 0 THEN SE - X: GO 
TO 1096 

1094 PRINT WS(1) ;U(X) : IF SE < 
= MH THEN PRINT H5[l) ;U(SE! : 
SE - MH ♦ 1 

1096 NEXT E: IF SE ■ 0 THEN P 
RI NT "TODOS EVENTOS TEM ";AS;" 
PRECEDENDO" 

1098 IF SE = 0 OB (SE > MH) TH 
EN 1750 

3100 FOR E M TO EE:X = E{E): 
T[X) = 0:N(X) = 0: NEXT E:T(SE) 
- 1 

1110 LA = 1: FOH C - 2 TO EE + 
2: IF LA < > C - 1 THEN 1170 
1120 FOR A = ] TO AA:X = A (A) I 
Y ■ S(X> | IF T(Y) < > C - 1 TH 
EN 1160 

1130 IF Y = F(X) THEN GOSUB 1 
200: GOTO 1160 

1140 IF (Y < > SE) THEN Y - S 
(Y) : GOTO 1130 

1150 Y - F(X):S(Y) - S(X):F(S(Y 
) ) = Y:T(Y) = C:FE - Y : LA - C 
1160 NEXT A 

1170 NEXT C: PR TNT "EVENTO INI 
CIAL »";U(SE):". EVENTO FINAL - 
■ iU(FE) 

1180 FOR E = 1 TO EE : Y - E(E) 
1190 IF F(Y) - O AND (Y < > F 
E) THEN PRINT U(Y);"NAO CONECT 
ADO AO EVENTO FINAL" : CK - FA 
1192 NEXT E : IF CK THEN 1300 
1194 GOTO 1750 

1200 HOME ! PRINT "EXISTE O SE 
GUINTE LOOP PRINT "EVENTOS . . 

" : XA - A(A) 
1210 X = F(XA): PRINT U(X)rY - 
S(XA) : PRINT U(Yi 

1220 Y ■ S(Y): PRINT U(Y): IF Y 

< > X THEN 1220 
12 30 RETURN 

1300 K - 1:AK - AA: IF AA = 1 T 
HEN K = 0 

13)0 AK - INT ( (AK ♦ K) / 2) : 
I F AK - 0 THEN 1500 
1320 K - 0: FOR A » AK + 1 TO A 
A : B - A - AK:X ■ A(A):Y = A < B ) : 
XE = S(X) : YE - S(Y) 
1330 IF T ( YE) + YE / ZZ < - T 
(XE) + XE / ZZ THEN 1360 
1340 A (A) - Y : A (B) = X:K = 1 
1360 NEXT A: GOTO 1310 
1500 N (FE) ■= LA: FOR D ■ LA - 1 

TO 1 STEP - 1 
1520 FOR A - 1 TO AA:X = A (A) ; 

1 F N ( F ( X > ) < > D * 1 THEN 156 



1550 Y 



S(X) :F(Y) - F(X) :N(Y) 



1560 NEXT A. D 

1600 FOR A - 1 TO AA : G (A) - A( 
A): NEXT A: K - 1:AK - AA: IF AA 

- 1 THEN K = 0 
IMO AK = INT ( (AK + K) / 2) : 
IF AK " 0 THEN 1700 
1620 K «■ 0: FOR A ■ AK + 1 TO A 
A : B = A - AK:X = G(A]:Y ■ G<B) : 
XE ■ F (X) : YE - F(Y) 
1630 IF N (YE) + YE / ZZ < * N 
(XE) + XE / ZZ THEN 1660 
1650 G(B) - X:G(A) - Y:K - 1 
lb60 NEXT A: GOTO 1610 



1700 CK ■ TR : RETURN 

1750 CK - FA: TNPUT "TECLE <RET 

URN>" : HGS I RETURN 

2000 FOR A = 1 TO AA : X - A (A) : 

Z(Xi - T(X): NEXT A: GOSUB 2100 

2020 FOR A - 1 TO AA:X - A (A) ] 

Y(X) = (Z(F(X)l - Y(S(X)) = Z(X 

)) * 100: NEXT A: GOSUB 2100 

2030 FOR B = 1 TO AA STEP 5: H 

OME : FOR A = B TO AA + FN A (B 

+ 4 - AA) : X = A (A) 
2040 PRINT : PRINT AS:U(X)i" = 

" :U5(X) 

2050 C = Y(S(X) ) :D = Z(F (X) ) 
2055 PRINT " PODE INICIAR IN 
T (C * 100) / 100;", DEVE TERMI 
NAR " INT (D * 100) / 100 
2060 PRINT "TEMPO LIVRE - ": I 
NT ( (D - C - Z(X)) * 100) / 100 
!" ("; INT (Y[X) * 100) / 100; 
"t CRITICO)" 

2065 IF T - 12 THEN PRINT "DE 
SVIO - "i INT (Q(X) * 100) / 10 
0: 

2070 PRINT : NEXT Ai HOSUB 940 
: NEXT B: RETURN 

2100 FOR E = 1 TO EE r Y (t! ( E) ) ■ 

0 : NEXT E 
2110 FOR A - 1 TO AA : X - A(A): 
Y(F(X)) - Y(F(X)) + FN Z(Y(S(X 
) ) - Y(F(X) ) + Z(X) ) : NEXT A 
2120 FOR E ■ 1 TO EE:Z(E{E)) - 

Y (FE) : NEXT E: FOR A - AA TO 1 

STEP - 1 :X = G (A) 
2130 Z(S(X)) = Z(S(X)) +■ FN A( 
ZÍF(X)) - Z(S(X)1 - Z(X)): NEXT 

A: RETURN 
3000 FOR A = 1 TO AA : X = A ( A) : 
P(X) = 0:Q.(X) = 0:Y(X) - 0: NEX 
T A 

3020 FOR E * 1 TO EE:X - E(E): 
P(X> = 0:Q(X) - 0: NEXT E 
3030 FOR M ■ 1 TO 43 STEP 3: F 
OR A = l TO AA:U(A) - 2 • RN D 
(1) - 1 : NEXT A 

3040 FOR N - 0 TO 4 STEP 2: HO 
PRINT "CASO i";M + N / 2;" 



/45' 

3050 FOR A - 1 TO AA : X ' A (A) : 
TX ■ T(X): IF TX ■ 0 THEN Z (X) 
• 0: GOTO 3080 

3052 NX - N(X) : IF (NX - TX) TH 
EN ZIX) - TX: GOTO 3080 
3054 W = FN W(W(A) + N / 3) : 1 
F NX > = TX * 3 THEN Z(X) - NX 

* (W < TX / NX) : GOTO 30B0 
3060 IF NX > TX * 2.34 THEN Z( 
X) = - TX * LOG (W) : GOTO 308 
0 

3070 W = FN X (W - . 5) : Z (X) = 
ABS (TX + W * (NX - TX) ) 
30B0 NEXT A 
3090 GOSUB 2100 

3100 FOR A = 1 TO AA : X - A (A) : 
Z - Z(f(X) ) - Y !S (X) ) - Z<X) 
3110 P(X) - P(X) + Z:Q(X) - Q(X 
) + Z • Z:Y(X) - Y(X) - (Z < 1. 
E - 6) : NEXT A 

3120 FOR E = 1 TO EE:X = E(E): 
P(X) - P(X) + Y(X) :Q(X) - Q(X) 
+ Z(X) : NEXT E.N.M 
3125 IF KKS = "S" THEN PRINT 
DO$"PRI 1" 



3200 FOR E = 1 TO EE:X = E(E): 
Y(X) = VAL ( LEFTS ( STRS ÍP (X 
) / 45) ,6) ) 

3210 Z(X) - VAL ( LEFTS ( STRS 
(Q(X> / 45) ,6) ) : NEXT E 

3220 FOR A - 1 TO AA : X - A (A) : 

Y = Y(X):Y(X) = - VAL ( LEFTS 
( STRS (Y / 45 * 100) ,4) ) 

3230 IF P (X) < 1 . E - 2 THEN P( 

X) 



3240 Z - (45 - Y) + .1E - 9:1 
l - Z(FIXÍ) - Y(SOO) - VAL 
LEFTS ( STRS (f(X) / Z),6)) 
3250 Q(XI = SOR ( (Q(X> - 1M> 
• P(X) I Z) / ( (Z - 1) ♦ .1E 
9) ) : IF (XX) < l.E - 6 li.l-.N t 
) - 0 

3260 NEXT A: GOTO 2030 



mi 



590 IF FSOAS THEN 680 

600 FOR B-l TO AA : IF X=A(B) THE 

N A-B 

610 NEXT B : A (A) »A (AA) : U (X) -ZZ + 1 
:AA-AA-1 : RETURN 

620 IF UÍXX0 GOSUB 1050:PRINT 
USINGtMM* " rABSUJ (X) ) ; : PRINT 

US(X) :GOTO 650 
630 IF EE-ME THEN PRINT US(2);F 
S: RETURN 
640 GOSUB 660 

650 PRINT WSI4) ;FS:INPUT US (X) : 
S(X)=0:RETURN 

660 EE-EE + 1:E(EE)=X:S[X1 — 1:F(X 
) =0:U(X)-U 

670 T(X)-0:N(X)»0.US(X>-"":RETU 
RN 

680 Z«X:FOR F-l TO EE : IF E(F)~2 

THEN E=F 
690 NEXT F: E (E) -E (EE) :U ÍZ) -2Z+1 
:EE=EE-1:RETURN 

700 Z-U-INT( (U-l) /MH) «MH: Y-2 :X- 

0 

710 IF X-0 (O-U(Z) OR ZZ+l-UIZ) 
) THEN X-Z 

720 IF U-U(Z) THEN X«Z:RETURN 
730 IF Y-l OR 0=U(Z) THEN RE TUR 
N 

740 Z-Z+Y-MH*INT({Z+Y-1)/MH) :Y= 
Y+Y-MH*INT( (Y+Y-l) /MH) :GOTO 170 
750 OPEN "CAS:"+FS FOR OUTPUT A 
S »3 

755 PRINTI3, MAZSMEZSMHZSAAZSEE 

ZSEEZSCKZS 

760 IF CK THEN PRINTI 3 . SEZSFE 
770 FOR A-l TO AA : X-A (A) : PRINT 
13. X : ZSU (X) ZSS (X) ZSF (X) ZST(X) ZS 
NIX)ZSG(A)ZSUSÍX) : NEXT A 
780 FOR E = l TO EE : Z = E ( E) : PRINT» 
3 .Z ; ZSUIZ) ZSS (Z) ZSF (Z) ZST (Z) ZSN 
(Z)ZSUS(Z) : NEXT E 
790 FOR X-l TO MH : IF U(X)-ZZ+1 
THEN PRINT 13. X 
300 BEXT X:PRINT|3,0 
810 CLOSEI3:MOTORON:FOR X=l TO 
100:NEXT X :MOTOROFF : RETURN 
820 CLS : PRINT"SALVAR DADOS - er 
ru:FOR K"l TO 1000 : NEXT ! RETURN 
830 OPEN "CAS:"+FS FOR INPUT AS 
l.l:INPUT I3.MA.ME.MH.AA.EE.CK: 
GOSUB 20 
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840 IF CK THEN INPUT I3.SE.FE 
850 FOR A=l TO AA: INPUT I3,X,U( 
X) .S(X) ,F<X) .T{X) .NIX) .GfA) ,U$( 
X) :A(A)-X:NEXT A 

860 FOR E-l TO EE : INPUT* 3 . Z . U ( Z 
l.S(Z).F(Z) ,T(Z).N(Z),US(Z):E{E 
)-Z:NEXT E 

870 INPUT |3.X:IF X>0 THEN U(X) 

= ZZ + 1 :GOTO 870 

880 CLOSE *3:RETURN 

890 GOSUB 1B70:A-0:GOSUB 1030 

900 FOR A=l TO AA:X-A(A) :G0SU8 

1000 

910 Í*Í+1:IF Y>8 AND A< AA GOSUB 

1020:GOSUB 1030 
920 NEXT A:GOSUB 1020 
930 E=0;GOSUB 1050:FOR E=l TO E 
E:X=E!E) :PRINT t PR . USINO" I t I I I 
" ;ABS (U<X) ) , :PRINT IPR,US(X) 
940 Y-X+1:IF Y>15 AND E<EE GOSU 
B 1020:GOSUB 1050 
950 NEXT E-GOTO 1020 
960 CLE : PRINT"TEM CERTEZA ? (S 
/N) " 

970 T$-INKEY$:IF T$< AND TS 

O-N" THEN 970 

980 IF TS="N" THEN RE TU RN 

990 CLE : END 

1000 PR 1 NT tPR.USING~l*lll «Ml 
f 1IIM llllt #MI»":FNUÍSÍX)} 
,FNU(FiX) 1 . T (X) . N (X ) .ABS(UIX) ) ; 
: IF PR=0 THEN PRINT 
1010 PRINT IPR," " ; US (X ) : RETURN 
1020 IF PR-1 THEN PRINT "< ENTEH> 
PARA CONTINUAR" : INPUT F$:CLS:R 
ETURN ELSE RETURN 

1030 CLS:IF PR = 1 OR A-0 THEN PR 
1NT |PR. "INICIO ULTIMA VEZ 90 
t ATIVIDADE" :Y'3 
1040 RETURN 

1050 CLS:IF PR-1 OP. E = 0 THEN PR 
INT IPR." EVENTO TEXTO" : Y = 3 
1060 RETURN 

1070 CK-TR : FOR A-l TO AA:X-A(A) 
1080 Z-S{X):IF S(Z)<0 OR ZZ<U!Z 
) THEN PRINT AS;U(X) :WS(5) ;U(Z) 
: CK-FA 

1090 Z-F(X1:IF SIZK0 OR ZZ<U(Z 
} THEN PRINT AS r U (X) ; WS ( 5 ) ; U (Z) 
:CK-FA 

1100 NEXT A:IF CK-FA THEN 1540 
1110 E-l 

1120 Z=E{E,):IF SÍZK0 GOSUB 680 
:IF E<-EE THEN 1120 
1130 E-E*1:IF E<-EE THEN 1120 
1140 FOR E-l TO EE:Z-EÍE) :S(Z>- 
0:F(Z)-0:NEXT E 

1150 FOR A-l TO AA:X=A[A) :S(F(X 
))=X:NEXT A 

1160 SE=0:FOR E=l TO EE:Z-E(E): 

IF S (Z) >0 THEN 1190 

1170 IF SE=0 THEN SE-Z:GOTO 119 

0 

1180 PRINT WSU) ;U(Z) :IF SEC-MH 
THEN PRINT W$ (1 ) ; U (SE) : SE = MH + 1 
1190 NEXT E:IF SE-0 THEN PRINT" 
TODOS OS EVENTOS TEM" : PRINT AS; 
"PRECEDENDO" 

1200 IF SE-0 OR SE>MH THEN 1540 
1210 FOR E=l TO EE :Z-E (E) :T CZ) - 
0 : N (Zl "0 : NEXT E:T(SE)-1 
1220 LA-l:FOR C-2 TO EE+2 : IF LA 
m OC-1 THEN 1280 



1230 FOR A-l TO AA : X-A ( A) : Y-S (X 

):IF T(I)OC-l THEN 1270 

1240 IF Y-FÍX) GOSUB 1330:GOTO 

1270 

1250 IF YOSE THEN Y-S(Y):GOTO 
1240 

1260 Y = F (X) :S(Y)-S (X) :F(S(Y) ) =Y 

:T(Y)=C:FE-Y:LA=C 

1270 NEXT A 

1280 NEXT C:PRINT"EVENTO INICIA 
L";U(SE);", EVENTO FINAL " ; U ( FE 

) 

1290 FOR E=l TO EE : Y = E ( E) 

1300 IF F(Y)-0 AND YOFE THLN P 

BI NT U(Y);"NAO CONECTADO AO EVE 

NTO FINAL" : CK-FA 

1310 NEXT E:IF CK THEN 1370 

1320 GOTO 1540 

1330 CLS:CK=FA:PRINT"EXISTE OK 
EGUINTE LOOP":PRINT"EVENTOS ... 
" :XA-A(A) 

1340 X=F(XA) :PRINT U(X) ;Y-S(XA) 
:PRINT U(Y) 

1350 Y-S(Y):PRINT U(Y):IF YOX 
THEN 1350 

1360 FOR X-l TO 1000:NEXT:RETUR 
N 

1370 K-1:AK=AA:IF AA=1 THEN K-0 
1380 AK= INT ( (AK+K) 72 ) : IF AK-0 T 
HEN 1430 

1390 K-0:FOR A-AK+1 TO AA : B=A - A 
K:X=A(A) :Y-A(B) :XE-S(X) :YE=S(Y) 
1400 IF T(YE)+YE/ZZOXE/ZZ+T(XE 
) THEN 1420 

1410 A{A)=Y:A(B)=X:K-1 

1420 NEXT A:G0T0 1380 

1430 N (FE) -LA : FOR D-LA-1 TO 1 S 

TEP-1 

1440 FOR A-l TO AA:X-A(A):IF N( 

F(X)K>D+1 THEN 1460 

1450 Y-S(X) :F(Y)-F(X) :N[Y)=D 

1460 NEXT A : NEXT D 

1470 FOR A-l TO AA : G í A) =A (A) : NE 

XT A:K-1:AK-AA:IF AA-1 THEN K-0 

1480 AK-INT ( (AK+K) 72) : IF AK-0 T 

HEN 1530 

1490 K=0: FOR A-AK+1 TO AA : B-A- 
AK:X=G(A) :Y=G(B) :XE-F!X1 : YE-F (Y 
) 

1500 IF N(YE)+YE/ZZOXE/ZZ+N(XE 
) THEN 1520 

1510 G(B)-X:G<A)-Y:K=1 
1520 NEXT A:GOTO 1480 
1530 CK-TR: RETURN 

1540 CK-FA : FOR X=l TO 1000:NEXT 

X : RETURN 
1550 GOSUB 1870:FOR A-l TO AA:X 
-A ÍA) : 2 (X) "T (X) :NEXT A : GOSUB 16 
20 

1560 FOR A-l TO AA: X-A (A) : Y (X) ■ 
-(Z{F(X))-Y(S(X))=Z(X))*100:NEX 
T A 

1570 FOR B-l TO AA STEP 3 : CLS : F 
OR A=B TO AA+FNA (B+2-AA) : X=A (A) 
1580 PRINTIPR, AS;U(X) ;"=":US(X) 
1590 C=Y (S (X) ) : D=Z ( F (X) ) : PRINT 
#PR."PODE INICIAR"iC;"DEVE TERM 
INAR" ;D 

1600 PRINTIPR . "TEMPO LIVRE" ; INT 
(100* (D-C-Z(X) ) ) / 1 0 0 i " (CRITICO" 
; Y (X) : **} " : IF T = 9 THEN PRINTIPR 
,USING"DESVIO=l*l* - It" ;Q(X) 
1610 PRINTIPR : NEXT A:GOSUB 1020 



: NEXT B : RETURN 

1620 FOR E=l TO EE : Y ( E I E) ) -0 ! NE 

1630 FOR A-l TO AA: X=A (A) i Y (F (X 
) )-Y !F (X) )+FNZ(Y (S (X) )-Y(F(X) )+ 
Z ( X ) ) ' NEXT A 

1640 FOR E-l TO EE : Z (E (E ) ) =Y ( FE 
) :NEXT E : FOR A=AA TO 1 STEP"1:X 
■G (A) 

1650 Z(S(X) )=Z (S (X) )+FNA{Z<F (X) i 
)-Z(S(X))-Z(X)); NEXT A : RETURN 
1660 GOSUB 1B70:FOR A=l TO AA:X 
=A(A) :P(X)=0:Q(X)-0:Y(X)-0:NEXT 
A 

1670 FOR E-l TO EE : Z-E (E) : P (Z) = 
0:Q(Z)-0:NEXT E 

1680 FOR M=l TO 43 STEP 3 : FOR A 

-1 TO AA:W(A)-2*RND(0)-1:NEXT A 

1690 FOR N = 0 TO 4 STEP 2:CLS:PR 

INT"CASO";M+N/2;" EM 45" 

1700 FOR A-l TO AA : X-A (A) : TX-T ( 

X):IF TX-=0 THEN Z(X)=Q:GOTO 175 

0 

1710 NX=N(X) :IF NX-TX THEN Z (X) 
-TX:GOTO 1750 

1720 W=FNW!U(A)+N/3) :IF NX>-TX« 
3 THEN Z (X) — NX* (U<TX/NX) : GOTO 
1750 

1730 IF NX>TX*2.34 THEN Z(X)— T 

X*LOG(W) :GOTO 1750 

1740 U-FNX(U-.5> : Z (X) =ABS (TX+W* 

(NX-TX) ) 

1750 NEXT A 

1760 GOSUB 1620 

1770 FOR A-l TO AA ; X=A (A) : Z-Z [F 
(X) ) -Y (S(X) ) -Z(X) 

1780 P(X)=P(X)+Z:Q(X)=Q(X)+Z*Z: 
Y(X)=Y(X)+(Z<lE-6) : NEXT A 
1790 FOR E=l TO EE : Z-E ( E ) : P (Z J - 
P(Z)+Y(Z) :Q!Z)=Q(Z)+Z(Z) :NEXT E 
. N . M 

1800 FOR E-l TO EE : Z = E (E) : Y (Z) = 
VAL (LEFTS (STRS (P(Z) 7451 .6) ) 
1810 Z(Z)=VAL(LEFTS(STRS(Q(Z!74 

5) .6) ) : NEXT E 

1820 FOR A=l TO AA : X=A (A) : Y= Y (X 
) :Y(X)=-VAL(LEFTS(STRS(Y/45*100 

) .4) ) 

1830 IF PIXK1E-2 THEN P (X) -0 
1840 Z=45-Y+.1E-9;Z(X)-Z(F(X))- 
Y (S (X) ) -VAL (LEFTS (STRS (P (X) 7Z) , 

6) ) 

1850 Q(X)=SQR(ABS((Q(X)-P(X)*P{ 

X) /Z)/ ( (Z-D + . 1E-9) ) ) :IF 0(X)<1 

.E-6 THEN Q(X)-0 

1860 NEXT A:GOTO 1570 

1870 CLS : PRINT "TELA OU IMPRESSO 

RA (T7D ?" 

1880 QS = INKEYS:IF QSO"T" AND Q 

$<>"I" THEN 1880 

1890 IF QS="I" THEN PR»2 

1900 CLS: RETURN 

Se você lem um acionador de disque- 
te acoplado ao seu MSX. proceda às se- 
guintes modificações: 

750 OPEN "A:"+F$ FOR OUTPUT AS 
13 

830 OPEN "A:"+FS FOR INPUT ASI3 
: INPUTI 3 . MA , ME . MH , AA . E E . CK : GOSU 
B 20 
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UM INDEXADOS 
DE PROGRAMAS 



0 utilitário que apresentamos neste 
artigo localiza e substitui qualquer 
palavra ou comando em programas BASIC. 
Com ele, os usuários do Spectrum e do 
TRS-Color economizarão esforço e tempo. 

Como lodos os utilitários, o progra- 
ma de referencia cruzada fornecido nes- 
te artigo não faz nada sozinho: é empre- 
gado como uma ferramenta para desen- 
volver outros programas. Escrito em có- 
digo de máquina, pode ser carregado na 
memória do computador junto ao pro- 
grama em BASIC ali residente. O utili- 
tário permanece na memória RAM até 
que o computador seja desligado. As- 
sim, é possível utilizá-lo repetidamente, 
sempre que for necessário. 

O programa de referência cruzada, 
ou indexador, funciona como um "ca- 
çador". Muitas vezes, ao desenvolver 
um programa em BASIC, precisamos 
localizar palavras, comandos, funções, 
cadeias de caracteres ou números escri- 
tos em algum ponto da listagem. Depen- 
dendo do tamanho do programa, a ta- 
refa é bastante morosa e cansativa. Mas, 
se você informar ao programa aquilo 
que está procurando, em um "piscar de 
olhos" ele percorrerá toda a listagem e 
imprimirá as linhas em que se encon- 
tram os caracteres procurados. 

O indexador oferece uma alternativa 
ainda mais interessante: a substituição 
de uma cadeia de caracteres por outra. 
Se você quiser, por exemplo, trocar os 
PRINT de um programa por LPRINT, 
ele passará a enviar todas as saídas de 
tela para a impressora. O indexador 
também se encarrega de buscar e subs- 
tituir variáveis no programa, dispensan- 
do o uso do comando EDIT. 

Quando se pretende fazer a adapta- 
ção de um programa para determinado 
computador, o indexador mostra-se um 
valioso auxiliar. Não só a tradução de 
uma versão de BASIC para outra fica 
muito mais fácil (por exemplo, trocar 
cada comando HOME, do Apple, por 
CLS), como o fluxo lógico do progra- 
ma torna-se mais compreensível, já que 
é possível listar todas as ocorrências das 
instruções GOTO e GOSUB. 



Outra aplicação de grande utilidade 
consiste na localização de erros em um 
programa. Suponhamos que você des- 
cubra que uma variável está recebendo 
valores errados em algum lugar do pro- 
grama. O processo normal seria percor- 
rer linha por linha, checando todos os 



■ USOS DO PROGRAM A 

■ BUSCA E SUBSTITUI ÇÃO 

DE CARACTERES 

■ BUSCA DE UM STRING OU ' 

DE UMA PALAVRA-CHAVE 



pontos em que a variável se encontra à 
esquerda de um sinal de igual. Quando 
o programa é complexo, a tarefa torna- 
se muito desgastante e é provável que ve- 
nham a ocorrer alguns enganos. O in- 
dexador executa o mesmo trabalho, com 
exatidão, em pouquíssimo tempo. 




10 IF(CK>THENI 
$$jpFOR A= 1 TO X x : 
640 FORE=lTOEE: 
650 INPUT#-1,X: 
660 CLOSE#-l:RE 
700 SKIPFF$:RET 
800 G0SUB942 
810 FORA=lTOXX : 
820 Y=Y+1-ÍLEN< 
830 NEXTA:80SLIB 
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O indexado: pata o Spectrum c par- 
e do programa maior de fei ramentas, 
listado no artigo da página 1281 . Enire- 
^ler usado de forma in- 
você preferir. O progra- 
de uma rotina curta de 
seguida por código de 
máquina em linhas DATA. Digite o pro- 
grarro em BASIC, armazene-o emjfjta 
com SAVE e execute-o com RUN. Ele 
próprio se encarregará de gravar uma fi- 
ta com o código de máquina criado. 

O programa que você realmente uti- 
lizará é essa versão em código de máqui- 
na. Para carregá-la, digite: 



Você poderá carregar o programa em* 
código antes ou depois de ler colocado 
um programa em BASIC na memória, 
para realizar buscas ou substituições. O 
procedimento e o mesmo em ambos os 
casos. Uma ve? carregado, as diversas 
opções serão executadas por meio de co- 
mandos do tipo RANDOMIZE USR, 
conforme explicamos a seguir. 

Para procurar urmveadeia de carac- 
teres no programa, dÍghe:^V 
RANDOMIZE USR 646Í4' 

O programa solicitará a cadeia que 
deve procurar: entre-ã pelo teclado e 
pressione <ENTER>. As linhas que 
contém a cadeia serão exibidas na tela. 
Para procurar uma palavra-chave em 
ASIC (comando ou função), digite: 



tílZE USR 64911 



BASIC (con 
RANDOíJI ZE 

Como no comando anterior, você 
precisará. digitar a palavra-chave desejjf- 
da c pressionar < ENTER > . O indexa-' 
dor imprimirá iodas as linhas do progra- 
ma em que ela ocorre. Para substituir 
um nome de variável por outro, digite: 

RANDOMIZE USR 64796 

Desta vez, você precisará entrar duas 
cadeias de caracteres: o nome da variá- 
vel já existente (a ser procurado) e o no- 
vo nome. Este pode ser mais curto ou 
mais longo que o original — o progra-v 
ma aceita até vime caracteres para cada 
um. Ao pressionai < ENTER > . iodas 
"^ituiçôes serão executadas auto- 
mente, mas as linhas modificadas 
1 aparecem na tela. 
A última opção permite que você ve- 
ja todas as linhas em que uma função 
-íoi definida (DEF FN) ou usada. Para 
isso. digite: 



um. Ao r 
as substii 
maticamt 
não a par 



RANDOMIZE USR 64 713' 



10 CLEAR 64559: BOPDER 0: INK 

7: PAPER 0: CLS 

20 PRINT INVERSE 1;AT 0,10;" 

INDEXADOR " 
30 PBINT •'-■»'" Inoerindo em c 
odigo de maquina. Prepare o c 
aasete para gravar." 
40 LET L-9Q: RESTORE L : FOR N 
=64560 TO 65341 STEP 16 
50 LET T=0 : FOR D=0 TO 15: 
READ A: POKE N+D.A: LET T=T+A 
: NEXT D 

60 READ A: IF AOT THEN 

PRINT FLASH 1 ; " ERRO DE CHEC 

KSUM NA LINHA "il.:"!": PRINT 

"VALOR ESPERADO ";A;" VALOR 

ATUAL ";T: STOP 

70 LET L-L+10 : NEXT ti 

80 PRINT AT 18,0; "QUALQUER TE 

CLA PARA COMEÇAR A ORAVAR" 

85 LET AS=INKEXS: 1F AS="" 

THEN GOTO 85 ■ 

87 SAVE " CREF"CGDE 64560 ,832 

' 88 STOP 

90 DATA 203.39,95,22.0,221,33 

1^233. 253, 221,25, 221, 110, D, 22J 
^02,1999 

100 DATA 1,205,69,252.201,62, 
254.229,205.1,22.225,126,35. 
254.255,2396 

LIO DATA 40,4.215. t95, 76. 252, 
201.207,9,209.225.205,229,25. 
201,205.2498 

120 DATA 142,2.14,0, 32,24.9.205 

,30.3,48.244,21.95,205,51.3. 

1344 

130 DATA 254.0,201,46,25.118, 

45.32,252,201,62,13.705.48.252 

.33,1787 

140 DATA 63.255,17,85,255.3, 
253 . 42 ,83,92 , 34 . 59, 255, 126. 254 
. 2081 

150 DATA 64.208.17,4.0,25,126. 
254,13,32.3,35,24.237,205,179. 

160 DATA 252,56,3,35.24,240, 

229,42,59,255,205.85,24.62.13, 

215.1799 

170 DATA 225.24.240.229.17,85. 
255.58.63,255.71.26,19.190.35, 
32.1824 

180 DATA 5.16,248.225.55,201. 

225,191.201,62,254.205.1,22,42 

,83,2036 

190 DATA 92,34,59,255,126,254, 
64,208,17,4.0,25,126,254.13.32 
,1563 

200 DATA 3, 35, 24. 237, 254. ]68. 
40,7,254,206,40,3.35,24.237, 
229, 1796 

210 DATA 42,59,255,205,85,24. 

62,13.215,225,62,13,1.0.0,237, 

1498 

220 DATA 177,24,206,175.119, 

213,229.205.115.252.205,95.252 

.245.215,241,2968 

230 DATA 225.209,254,13,40.5. 

18.19,52,24,2 34.201.62,13,205, 

48, 1622 

240 DATA 252,17,85.255,33,63. 
255,205,3,253,62,18,205,48,252 
,33, 2039 



250 DATA 64.255,17.65.255.205. 
3,253.42,83.92,126,254,64.208, 
17.2003 

260 DATA 4,0.25,126.254,13.32. 
3 , 35 , 24 , 240 . 254 , 34 , 32 , 9 , 35 . 
1120 Wk 

270 DATA 1.0.0,237,177.126.24, 
243.205,179,252.56.3,35.24,227 
,1789 

280 DATA 58,63,255,79.58,64. 

255,145.56.25,40,8.79,6,0.229. 

1420 

290 DATA 205,85,22.225,58.64. 
255.17,65.255.79.6,0.235,237, 
176, 19B4 

300 DATA 235. 24.192. 237 ,6B, 79, 
6,0.229,205.232.25,225,24,229. 

62,2072 

310 DATA 13,205.48,252.17,85. 

255,33,63.255,205,3,253.33,150 

.0,1870 

320 DATA 27.235.203.254,235.1, 
165.90.197.205.179.252,56.13. 
35.203,2350 

330 DATA 126,35.40.251,193,12. 
16.240,195,87,252.193,42.83,92 
.34,1891 

340 DATA 59,255,126,254,64,208 
.35,35,35,35,126,35,254,13,40. 
239,1813 

350 DATA 185.32,247.197,62.13. 

1,0,0,237,177,229,42,59.255. 

205.1941 

360 DATA 85.24.62.13.215.225, 
193.24.214,15.254.70,254.79, 
254,86.2067 

370 DATA 254.98.254,110,254,27 
. 254 , 35 , 254 . 48 . 254 , 64 , 254 , 124 , 
254,143,2681 

380 DATA 254,160.254.184.254. 
206.254,229.254.236,254,0,255. 

10.255,66.3125 
390 DATA 89.84.69,83,32,70.82. 
69,69,61,255,80,82.79.71.82. 
1357 

400 DATA 65,77,255,78.85.77.66 

,69,82,32,65,82,82,65.89.255. 

1524 

410 DATA 67.72.65.82,65.67,84. 

69,82,32,65,82,82,65.89,255, 

1323 

420 DATA 66,89,84.69.83.255.80 
,82.79,71,82.65,7 7.61.255.32. 
1530 

430 DATA 66,89.84.69.83,255.70 
. 7 3 . 7 6 , 69 , 3Z , 84 , 89 , 80 , 69 , 6 1 . 
1349 

440 DATA 32,255,70.73.76.69,32 
,78.65,7 7.69.61.32.255,70.73, 

450 DATA 76,69.32,76.69.78.71. 
84. 72, 61, 32, 255, 69, 78. 84. 69. 
1275 

460 DATA 82,32.83,84,65.82.84. 
32,76,73. 78. 69, 32, 58 . 255.69, 
] 254 

470 DATA 78, 84, 69. B2. 32.69, 78. 
68, 32. 76, 73, 78,69, 32,58. 255. 
1233 _ 

480 DATA 69,78.84.69,82,32,76. 
73.78.69,32,73.78,67,82.69. 
1111 
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490 DATA 77,69,78,64,63,32,58, 
2 55 . 69 , 7B . 84 , 69 , 8 2 , 3 2 , 84 , 65 . 
1299 

500 DATA 82,71,69.84,32,83,84. 

82,73,78.71,58,32.255,69,78, 

1301 

510 DATA 84,69,82.32,68.69,67, 
7 3,77.65.76.32.78,85,7 7,66. 
U00 

520 DATA 69,82,32,58,255,72,69 
. 88 . 3 2 , 61 , 32 . ! 55 , 69 , 78 , 84 . 69 . 
1405 

530 DATA 82.32,72,69,88.39,32. 
78.85. 77.66.69.82. 58, 32, 255, 
1216 

540 DATA 68.69,67.73,77,65,76, 

61.32,255,69.78,84.69,62,32, 

1257 

550 DATA 78,69,87,32.83.84.82. 
73,78.71,58,255.0.0,0.0,1050 
560 DATA 9.23,220.10.254.21. 
206,11,254,80,3.23,220,10,215, 
24.1583 

570 DATA 177,1.0.10,0,100,0, 
232,3.16,39,48.48.49.48,0,771 



O programa indexador para os com- 
patíveis com o TRS consiste de uma 
rolina curta de carregamento, seguida de 
linhas DATA onde estão os códigos do 
programa em linguagem de máquina. 

Digite essas linhas cuidadosamente. 
O computador irá imprimir uma men- 
sagem de erro se você cometer algum en- 
gano na digiiação dos números, mas só 
quando você executar o programa. 

Não havendo erros, grave o progra- 
ma em fita com CSAVE. Em seguida, 
armazene o programa em linguagem de 
máquina gerado na memória com: 
CSAVEM "CREF". 28672, 29500. 28672 

O programa que você realmente uti- 
lizará é essa versão em linguagem de má- 
quina. Para reservar espaço para ela, o 
iopo da área do BASIC è reduzido em 
quatro Kbytes. Assim, o indexador não 
pode ser empregado com programas 
muito longos em BASIC (que sc esten- 
dam além da memória 6FFF). 

Para usar o programa, digite: 



Você poderá carregá-lo antes ou de- 
pois de ter colocado o programa em BA- 
SIC na memória, para realizar buscas ou 
substituições. O procedimento é o mes- 
mo em ambos os casos. Uma vez carre- 
gado, as diversas opções serão executa- 
das por meio do comando: 

EXEC Í.H7000 

Depois de digitá-lo, aparecerá na te- 
la um menu com estas opções: busca de 
cadeias, palavras-chave (comandos ou 



— 




funções) e substituição. Pressione a ini- 
cial da alternativa escolhida. 

Se você acionar a primeira opção, o 
programa pedirá que entre a cadeia dese- 
jada. Digite-a e pressione <ENTER>. 
Todas as linhas que contêm a cadeia se- 
rão listadas. 

Para substituir uma cadeia por outra, 
digite ambas as cadeias. Elas devem ter 
o mesmo número de caracteres. 

Quando usar a opção de busca de pa- 
lavras-chave, lembre-se da distinção en- 
tre comando e função. Se não souber a 
que categoria pertence a palavra, lente 
ambas as alternativas. 

10 CLS : CLEAR 2Q0.Í.H6FFF 

20 FOR X-l TO 741 STEP 18 

30 READ XS:CS-0 

40 FOR P-l TO 36 STEP 2 

50 V-yAL("S.H"+MIDS(X$.P,2)l 

60 CS-CS+V:POKE &.H6FFF+X+P/2 , V 

/0 NEXT : READ A:IF CSOA THEN PR 

INT" ERRO DE CHECKSUM NA LINHA" 

100+10*INT(X/18) : END 

80 NEXT 

100 DATA 34367F02297F02387F0236 

7F02397F02377F.1141 

110 DATA 023C308C231701F6BDA1C1 

27FB8153102700.1657 

120 DATA 666152102700B7814B1027 

00B68146102 701 . 1247 

130 DATA 031602A85345415243480D 

3C533E5452494E, 1168 

140 DATA 4753203C523E45504C4143 

450D3C4B3E4559, 1184 




150 DATA 574F5244530D3C46JE554E 
4354494F4ED346. 1429 
160 DATA 494E443FA0494E53455254 
3FA04E4F54204 6 . 147 7 
170 DATA 4F554E44A0303030303030 
20A0308CDD1701.1J83 
160 DATA 818E02001700B47D023927 
0Be6CBA7i.i08622.151O 
190 DATA A7807C0239B6027HBB0239 
87022C7D022927.1387 
200 DATA OC308CB91701578E021417 
008A108E001910 , 1020 ». 
210 DATA 8F022E108E001B1QBF0230 
1700AB7D023C26. 1100 A^Ê 
220 DATA 06308C9D1 701J^rW2007C 
022920A48E0121.989 
230 DATA BF022E8EQ, 
FF741701188E02, 14Í 
240 DATA 008D4CB607! 
A6848A80A7848E, 175a 
250 DATA FFFFBF0234* 
0200C601F7022C,: 
260 DATA F602382707i 
2CB6023780016A. 1838 
270 DATA BOA7847F023620: 
BF022E8E0127BF.1570 
280 DATA 02307C023820A85FB 
27FB810D272681.1706 
290 DATA 08260CC10027EF5A301FBD 
A28220Bg6DAM27^23 ^tf 
300 DATA A780812426087DQ2292703 
7C0 2395CC1142D.1249 
310 DATA D1F7022B39AE9F022E7D02 
36260ABF023210, 1427 
320 DATA AE6410BF02345F108E0200 
A6804D2A107C02.1377 
330 DATA 377D023B260881FF260430 
0120EBAC9F02 30 . 1407 
340 DATA 2C5FBC02342D133410BE02 
34BF0232AE9F02.1335 
35J1 DATA 32BF023435103004A1A026 
C45CF1022C2DC3, 1590 
360 DATA 7D0236263B6D467D022927 
IÍ2 108E0214F60 2 , 1299 ^_ 
370 DATA 2BF7023E7D02392609F6Q2 
2CF7023E503085.1449 
380 DATA A6A0E684C122270CA780BC 
02342C057A023E.1738 
390 DATA 26EC128D12208139860DBD 
A282A6802B05BD, 1828 
400 DATA A28220F73934367C023C66 
0DBDA282BE0232 ,1790 
410 DATA 8D7130aDFE4F8DDCBE0232 
30Í14A680BC0234 . 1967 
420 DATA 2C-314D2B0SSBA28220F1B1 
FF7 72834 30BE01,tó*i^. 
430 DATA 21108E01221QBF023ABD2E 
A680AC9F023A2E, iWl ^VL 
440 DATA 0D4D2B05BDA282W^ 
BDA282 3 5 30 20C5 , 1961 
450 DATA A6803430BE0126108EJ 
20D4S60DBDA282, 1693 
460 DATA 3536391E89C0805D27.G, 
80AC9F02302C06.1522 
470 DATA 4D2AF55A26F239BDA1? 
03BD8CC6342010.2003 
480 DATA 8E303010BF708310BF7085 
10BF70873002AE.1818 
490 DATA 843001318DFDC23121301F 
8C00002711A6A4, 1505 
500 DATA 4CA7M813A2DEA8630A7A4 
313F20EF352039.1911 
510 DATA 153639.164 
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GERENCIAMENTO DE 



Mesmo que suas necessidades de 
arquivamento sejam mínimas, um sistema 
de gerenciamento de banco de dados 



Conheça suas possibilidades. 



Os computadores têm a capacidade 
de armazenar grande quantidade de da- 
dos em um espaço muito reduzido e de 
trabalhar com eles a uma velocidade 
fantástica. São, por isso, a ferramenta 
ideal para manipular e recuperar infor- 
mações organizadas de uma forma es- 
pecial, que é denominada banco de da- 
dos ou, ainda, base de dados. Os pro- 
gramas destinados a executar essa tare- 
fa constituem os sistemas gerenciadores 
de bancos de dados (SGBD). 

Um banco de dados é essencialmen- 
te um conjunto de informações corre- 
lacionadas e organizadas em um ou mais 
arquivos de computador. Os arquivos, 
por sua vez, são conjuntos de registros 
de dados, cada qual formado de uma sé- 
rie de campos. Para entender melhor es- 
sa hierarquia (base, arquivos, registros 
e campos), tomemos como exemplo 
uma agenda telefónica simples. Um dos 
arquivos, que chamaremos arquivo- 
mestre, contém certo número de regis- 
tros. Cada registro corresponde a uma 
pessoa ou empresa listada na agenda, 
comportando um número fixo de cam- 
pos com conteúdos bem definidos: 

Campo Tipo N? de caracteres 



Nome A 40 

Endereço A 45 

Cidade A 25 

Estado A 2 

CEP N 5 

Telefone N 7 



Além do nome, dois outros elemen- 
tos caracterizam um campo: o fato de 
ser alfabético (A) ou numérico (N) e o 
espaço que reserva para o dado (40 ca- 
racteres para o nome da pessoa, 5 para 
oCEPetc). Os campos funcionam co- 
mo uma espécie de rótulo para um da- 
do ou informação. O número, nome, ti- 
po e comprimento de cada um variam 
de acordo com a aplicação. Um ban- 
co de dados para arquivar sua coleçào 
de discos, por exemplo, teria campos pa- 
ra o nome do disco, ano de gravação, 
conjunto, solista, género de música, gra- 
vadora etc. Um sistema para folha de 
pagamentos de uma empresa teria cam- 
pos totalmente diferentes, como nome 
do empregado, data de nascimento, se- 



xo, estado civil, número de dependen- 
tes, data de admissão, cargo, salário. 

O conjunto de especificações de um 
registro (nome do campo, comprimen- 
to etc.) é denominado esquema ou for- 
mato. Note que o número de bytes ocu- 
pados por um registro é igual à soma dos 
bytes ocupados pelos campos (no exem- 
plo anterior, o comprimento de um re- 
gistro corresponde a 124 bytes). Em ca- 
da registro colocam-se as informações 
referentes a uma pessoa ou empresa. 
Dentro de um banco de dados, os regis- 
tros normalmente são identificados pe- 
lo seu número de série ou posição se- 
quencial (1,2,3... etc). 

Tais dados são reunidos em uma mes- 
ma unidade de informação por estarem 
inter- relacionados. Se puséssemos todos 
os nomes em um arquivo, os endereços 
em outro, e os telefones em um tercei- 
ro, seria muito difícil estabelecer a cor- 
respondência entre as informações dos 
três arquivos, e acabaríamos não saben- 
do a quem pertence um endereço ou te- 
lefone, ou vice-versa. 

Esse tipo de organização, chamado 
registro de formato fixo, é o mais utili- 
zado em bancos de dados para micro- 
computadores. Definido o formato, os 
dados podem variar de registro para re- 
gistro, ou mesmo serem modificados 
dentro de cada registro. O esquema, po- 
rém, continua sempre o mesmo. 

Em nosso exemplo, outros arquivos 
seriam necessários para a caracterização 
de um verdadeiro banco de dados: ar- 
quivos-fndice, arquivos auxiliares etc. 
Mais adiante veremos o significado e 
também a importância dos arquivos se- 
cundários — como uma lista de códigos 
DDD das cidades presentes em um ar- 
quivo-mestre — para a organização de 
um banco de dados. 



0 QUE É UM SGBD? 



Um arquivo-mestre como o definido 
acima seria apenas o equivalente eletrô- 
nico de um fichário manual, onde cada 
ficha corresponde a um registro no ar- 
quivo. Em um arquivo de dados, a or- 
ganização do registro geralmente é 
pré-programada e não pode ser altera- 
da pelo usuário do programa. Se você 



comprar um programa para gerencia- 
mento de agenda telefónica, por exem- 
plo, terá que obedecer ao esquema já es- 
tabelecido internamente para o arqui- 
vo-mestre, sendo impossível modificá- 
lo de acordo com suas necessidades. 

Um sistema de gerenciamento de 
banco de dados é bem mais flexível e po- 
deroso. Por ser um programa genérico, 
possibilita a alteração de um esquema 
já existente e a definição de novos es- 
quemas, totalmente diferentes, segundo 
o desejo do usuário. Além disso, o 
SGBD tem uma série adicional de fun- 
ções que dão acesso a eficientes recur- 
sos de manipulação de arquivos de da- 
dos, entre os quais ordenação, modifi- 
cação de registros, substituição de um 
ou mais campos em todo o arquivo, ge- 
ração de arquivos auxiliares, pesquisa e 
recuperação de informações seleciona- 
das, elaboração de relatórios impressos, 
estruturados conforme especificações do 
usuário etc. Nos artigos das páginas 81 
a 706, apresentamos um programa re- 
lativamente simples de gerenciamento de 
banco de dados, com algumas das ca- 
racterísticas mencionadas. 

Outra diferença clara entre um arqui- 
vo simples e uma base de dados é que 
nesta usamos o computador não só pa- 
ra colocar os dados em arquivos, mas 
também para extrair novos tipos de in- 
formação do repertório original ._ 

Costuma ocorrer certa confusão no 
uso dos termos "banco de dados" e 
"sistema gerenciador de bancos de da- 
dos". Muitas vezes, utiliza-se "banco de 
dados" para designar o sistema geren- 
ciador, com seu hardware e/ ou softwa- 
re, quando esse termo se refere apenas 
ao conjunto dos arquivos que contêm 
informações especificas, ou aplicações. 
Em um verdadeiro SGBD os dados exis- 
tem independentemente dos programas: 
por isso, é possível fazer modificações 
no esquema sem alterar o programa que 
gerência o banco de dados. 

Há uma grande variedade de SGBD 
para microcomputadores domésticos e 
profissionais. Eles diferem muito entre 
si quanto ao número e potência dos re- 
cursos que oferecem, e também quanto 
às restrições que impõem (número má- 
ximo de campos por registro, número 
máximo de registros etc). A utilização 
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dos SGBD em geral não apresenta difi- 
culdades, pois toda a operação é orien- 
tada através de menus ou comandos 
simples, que podem ser aprendidos em 
pouco tempo. Neste artigo examinare- 
mos algumas das principais funções dos 
sistemas de gerenciamento para micros. 



DEFINIÇÃO DO REGISTRO 



Todo SGBD oferece ao usuário a op- 
ção de definir o esquema de arquiva- 
mento. Esta é a primeira tarefa a cum- 
prir quando se está montando um banco 
de dados no computador. A opção em 
geral funciona de forma conversacional 
em sistemas para micros — o usuário 
pode determinar, em interação com a 
máquina, o nome, tipo e comprimento 
de cada campo, alterando-os à vontade 
durante o processo de definição. 

Uma vez estabelecido, o esquema pa- 
ra o banco de dados é armazenado em 
disco ou fita cassete, de modo que, to- 
da vez que o usuário especificar o no- 
me do arquivo que quer usar, o SGBD 
automaticamente se "lembrará" do es- 
quema definido para o mesmo. 

Os sistemas de gerenciamento variam 
muito quanto à flexibilidade e capaci- 
dade de definição do esquema. Alguns 
não admitem ao usuário que elabore 
mais que simples listas de nomes de cam- 
pos com seus respectivos comprimentos. 
Outros permitem a especificação de um 
grande número de propriedades adicio- 
nais para cada campo — como número 
de decimais, posicionamento do campo 
na tela, parâmetros de verificação de 
consistência e erro (por exemplo, valo- 
res mínimo e máximo para um campo 
numérico) — , aceitando ainda uma va- 
riedade maior de tipos de campo (datas, 
variáveis lógicas etc.). 

Convém planejar cuidadosamente o 
formato de um registro antes de come- 
çar a defini-lo com o auxilio do SGBD, 
pois muitos sistemas não permitem a al- 
teração do formato após a entrada dos 
dados nos registros. Assim, é interessan- 
te colocar um ou dois campos adicio- 
nais, denominados NOTAS. OUTROS 
etc, para que novos tipos de dados pos- 
sam ser introduzidos posteriormente. 

No momento da definição do forma- 
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to do registro, também é importante de- 
cidir quando juntar ou separar informa- 
ções diferentes em um mesmo campo. 
Por exemplo: no banco de dados para 
gerenciar uma agenda telefónica, você 
poderia ter optado por colocar CEP, es- 
tado e cidade em um único campo, e não 
em três campos separados. A escolha de^ 
pende da aplicação desejada. Se você 
pretende ordenar o arquivo segundo o 
CEP, ou contar quantos amigos tem no 
Estado de Minas Gerais, o trabalho se- 
rá bem mais fácil se esses dados estive- 
rem separados. 

Outra consideração relevante diz res- 
peito à dimensão de cada campo. Em al- 
guns casos (uma data, por exemplo) po- 
dem-se utilizar medidas padronizadas. 
Mas muitas vezes o tamanho depende da 
informação que será incluída. Qual é o 
número ideal de caracteres para o no- 
me de uma pessoa? Se especificarmos 
um comprimento muito longo (digamos, 
cem caracteres), praticamente todos os 
nomes existentes poderão ser colocados, 
sem que precisemos abreviá-los. Mas os 
espaços em branco que sobram também 
ocupam memória, limitando o número 



total de registros por arquivo. Por ou- 
tro lado, se definirmos um número mui- 
to pequeno de caracteres, o campo será 
insuficiente para a maioria dos nomes. 
E necessário, portanto, encontrar um 
ponto de equilíbrio. 

Os SGBD também diferem muito 
quanto à capacidade. Mas todos im- 
põem certas restrições na definição do 
formato: número total de campos por re- 
gistro, número máximo de caracteres no 
nome de um campo, comprimento máxi- 
mo de um campo alfabético ou numéri- 
co, tamanho total do registro etc. Tais 
condições têm que ser levadas em conta 
quando se projeta o formato do registro. 



Depois de termos definido o forma- 
to dos registros, o programa se encar- 
rega de criar o arquivo. Podemos então 
passar ao próximo passo, que consiste 
em "encher" o banco de dados, ou se- 
ja, introduzir os dados reais que preten- 
demos armazenar. Os SGBD possuem 
funções especiais para isso, bem como 



para corrigir ou modificar os dados já 
entrados em qualquer um dos registros 
que fazem parte do banco. 

Cabe aqui uma breve explicação so- 
bre os dois métodos básicos usados pe- 
los SGBD para armazenar registros em 
um arquivo, pois eles afetam bastante 
o desempenho do sistema. 

O método mais comum, principal- 
mente nos SGBD mais simples, destina- 
dos aos micros domésticos, é o dos ar- 
quivos-seqúenciais. Esse método é o úni- 
co disponível para microcomputadores 
com memória auxiliar baseada em fitas, 
e impõe certas restrições no emprego de 
um banco de dados. Um arquivo se- 
quencial é mais do que suficiente quan- 
do se deseja listar de uma só vez toda 
a informação armazenada (como em um 
programa de mala direta), mas não tem 
muita utilidade quando é necessário iso- 
lar ou procurar detalhes específicos. 
Além disso, a inserção de novos regis- 
tros em um arquivo desse tipo precisa 
ser feito sempre no final, e envolve di- 
ferentes passos, dependendo do compu- 
tador utilizado. 

O método mais eficiente é o dos ar- 
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quivos de acesso direlo, empregado nos 
SGBD mais sofisticados e profissionais, 
que exigem o uso de discos magnéticos. 
Esse método permite que se atinja um 
determinado registro de qualquer pon- 
to de partida, não sendo necessário re- 
copiar todo o arquivo quando se faz 
uma inserção ou modificação. AJém dis- 
so, a velocidade de acesso é considera- 
velmente maior. Funções típicas de 
SGBD de arquivos sequenciais, como a 
geração de relatórios sequenciais, po- 
dem ser executadas facilmente pelo soft- 
ware destinado ao gerenciamento desses 
SGBD de acesso direto. 

Sistemas de acesso direto possibilitam 
ordenações, indexações e buscas muito 
mais complexas do que os sistemas de 
acesso sequencial. 



IMPORTAÇÕES E EXPORTAÇÕES 



Embora sistemas de acesso direto e 
seqiiencial sejam bastante diferentes no 
que diz respeiío à organização dos ar- 
quivos, eles não são mutuamente incom- 
patíveis. Os bons SGBD têm opções que 



permitem transformar ou transferir in- 
formações de um arquivo sequencial pa- 
ra um arquivo direto, e vice-versa. Es- 
sas operações, chamadas respectivamen- 
te de importação e exportação de arqui- 
vos, possibilitam, por exemplo, que da- 
dos de uma planilha ou de um proces- 
sador de textos sejam utilizados com um 
programa de banco de dados. 

Para transformar um tipo de arquivo 
em outro, os separadores de campos de- 
sempenham um papel importante. Um 
separador é um caractere de controle que 
assinala quando um campo termina e ou- 
tro começa, em um arquivo sequencial. 

Em geral utiliza-se como separador 
o caractere ASCII 13 (carriage return, 
ou retorno de carro), gerado quando se 
pressiona a tecla <ENTER> ou a te- 
cla < RETURN >, mas é possível usar 
qualquer outro. Os SGBD mais pode- 
rosos permitem a definição do separa- 
dor que se pretende utilizar. 

Com o emprego de separadores de 
campo predeterminados pode-se com- 
pactar a informação transmitida, de ma- 
neira a maximizar o uso da memória dis- 
ponível. O programa que importa ou ex- 



porta arquivos precisa ser capaz de re- 
conhecer esses separadores. 

Já existem alguns padrões de repre- 
sentação seqiiencial de dados para faci- 
litar a importação e exportação de ar- 
quivos entre diferentes aplicativos. O 
mais conhecido para micros é o padrão 
SDF (Standard Data Format). 



BUSCA DE INFORMAÇÕES 



O que fazer com os dados depois que 
eles foram armazenados nos registros de 
um banco de dados? A função empre- 
gada com mais frequência é a de busca 
e recuperação de informações. Ela de- 
pende, basicamente, da especificação 
das condições que devem ser satisfeitas 
por um registro para ser encontrado no 
banco de dados, e pode ser tão comple- 
xa quanto se queira. 

O papel de um SGBD equivale ao do 
gerente de um arquivo não eleirônico, 
que se encarrega de aiualizar os dados 
e de achar a informação desejada pelos 
usuários. Em um sistema manuai, o ge- 
rente de arquivo tem que tomar algumas 
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decisões sobre a forma de dispor as fi- 
chas nas gavetas. Um arquivo de empre- 
gados, por exemplo, poderia ser arran- 
jado de acordo com a ordem alfabética 
dos nomes das pessoas. Para localizar 
a ficha com os dados de um funcioná- 
rio, bastaria saber seu nome. 

O problema realmente começa quan- 
do se pretende localizar informações a 
partir de outras referências — por exem- 
plo: quais são os Funcionários que estão 
completando trinta anos de serviço? Co- 
mo as fichas não foram organizadas se- 
gundo o tempo de serviço, seria preciso 
examiná-las uma a uma até encontrar 
aquelas que contêm a condição pedida. 
Se esse tipo de informação é solicitado 
com frequência, o gerente acabará deci- 
dindo montar um arquivo auxiliar, com 
as fichas individuais dos funcionários co- 
locadas em ordem de tempo de serviço. 

Muitos outros fichários como esse 
podem ser necessários, tornando a ta- 
refa do gerente cada vez mais complexa 
e difícil. Um computador seria nesse ca- 
so a melhor solução. 

Se o fichário com todos os dados dos 
empregados estiver armazenado na me- 
moria, a máquina irá agir da mesma for- 
ma que o gerente para localizar os fun- 
cionários que atingiram trinta anos de 
serviço. Examinará registro por registro, 
comparando a chave de busca com os 
dados contidos no campo ou campos 
correspondentes, até que a condição de 
busca seja satisfeita. A diferença é que 
o computador pode fazer essa mesma 
tarefa em um espaço de tempo milha- 
res de vezes menor. Mesmo assim, se o 
arquivo-mestre for muito grande, esse 
tipo de busca, chamado busca linear, 
pode demorar demais. 

A eficiência da máquina se revela 



realmente quando começamos a usar os 
arquivos auxiliares. Em um sistema 
computadorizado, o arquivamento é fei- 
to exatamente da mesma maneira que 
no sistema manual, ou seja, o SGBD 
dispõe os registros do arquivo-mestre se- 
gundo determinado tipo de arranjo, e 
um conjunto de outros arquivos auxi- 
liares são construídos. Alguns simples- 
mente utilizam uma forma de ordena- 
ção diferente da do arquivo-mestre — 
são os chamados arquivos-índice. Ou- 
tros contêm informações adicionais, 
mas se relacionam ao arquivo-mestre 
através de algum campo (por exemplo, 
o nome do funcionário). Os bancos de 
dados organizados desse modo são de- 
nominados relacionais. Os softwares 
dos SGBD mais eficientes para micros, 
como o dBASE II, incluem-se nessa ca- 
tegoria. 

Buscas em arquivos-índice levam me- 
nos tempo que em arquivos-mestre, pois 
aqueles, além de menores, são organi- 
zados para permitir o uso de técnicas rá- 
pidas de busca, como a busca binária. 
Nesse tipo de busca, o trabalho se ini- 
cia a partir do meio do arquivo, e não 
do começo, como no método linear. 
Quando procuramos o nome de uma 
pessoa em uma página da lista telefóni- 
ca, por exemplo, a técnica que costuma- 
mos utilizar é justamente a binária: pri- 
meiro, verificamos se o nome está an- 
tes ou depois do nome que ocorre no 
meio; se estiver antes, examinamos a 
primeira metade da página, dividindo- 
a novamente ao meio. Repetimos o mes- 
mo procedimento várias vezes, até che- 
gar ao nome desejado. 

A vantagem da busca binária é que, 
através dela, se pode examinar um nú- 
mero muito menor de registros do que 
numa busca linear, até achar o registro 
procurado. A busca binária em um ar- 
quivo relacional requer a técnica de 
acesso direto e, portanto, só pode ser 



implementada em sistemas baseados em 
discos. A única busca possível em arqui- 
vos sequenciais é a linear, que, além de 
tomar muito tempo, exige que se rebo- 
bine manualmente a fita toda vez que se 
inicia uma nova busca. 



0 CAMPO-CHAVE 



Tanto na ordenação quanto na inde- 
xação de um banco de dados, utiliza-se 
o campo-chave para organizar os arqui- 
vos auxiliares. Normalmente, todo ar- 
quivo-mestre tem pelo menos um cam- 
po-chave, que corresponde ao campo 
mais importante — aquele no qual se 
buscam informações mais frequente- 
mente. É este o campo que o SGBD usa- 
rá como referência quando for realizar 
uma ordenação ou recuperar um regis- 
tro através da técnica de busca binária. 

Se a busca tem como alvo apenas um 
registro (por exemplo, um determinado 
funcionário em uma folha de pagamen- 
to), o campo-chave também precisa ser 
único. Por isso, não convém usar o no- 
me completo do funcionário (ou, pior 
ainda, só o sobrenome). O melhor é 
adotar um só número de identificação, 
como o da carteira de identidade ou o 
atribuído pela própria firma (número 
funcional). Os sistemas de controle de 
contas correntes de bancos utilizam es- 
se processo. O campo-chave para efe- 
tuar todos os acessos e transações com 
o sistema é o número da conta do clien- 
te, e não seu nome. 

Quanto mais sofisticado um SGBD, 
maior será sua flexibilidade, e mais fá- 
cil a localização de informações. 



MÉTODOS DE BUSCA 



Existem vários métodos de busca de 
informações, alguns dos quais já cita- 



dos anteriormente. Em uma busca inde- 
xada, a informação desejada está con- 
tida em um ou mais campos do arquivo- 
(ndice. A busca propriamente dita é feita 
nesse arquivo, onde cada registro tem 
um apontador para o registro corres- 
pondente no arquivo-mestre. 

Quando se realiza uma busca por 
campo único, em geral se utiliza um 
campo-chave para localizar a informa- 
ção diretamente no arquivo-mestre. 

Em uma busca por critérios, várias 
informações são combinadas de modo 
a fornecer uma expressão lógica, que é 
resolvida para cada registro do arqui- 
vo-mestre, até que resulte verdadeira. 
No exemplo dado, o presidente da com- 
panhia poderia querer localizar todos os 
empregados com mais de cinquenta anos 
de idade, mais de trinta anos de servi- 
ço, que fossem do sexo masculino e re- 
sidissem na capital de São Paulo ou na 
cidade de Campinas. 

Finalmente, existe a busca por sub- 
cadeias literais — com certeza a mais 
versátil, mas também a mais lenta, por 
ser linear. O computador simplesmente 
procura em um determinado campo a 
ocorrência de uma cadeia de caracteres 

— uma palavra, ou então um número 

— especificada pelo usuário e mostra to- 
dos os registros em que a mesma ocor- 
re. É um tipo de busca muito útil para 
achar informações situadas no meio de 
um campo, ou que não foram isoladas 
em um campo próprio. Por exemplo: lo- 
calizar todas as pessoas que têm um de- 
terminado sobrenome em uma agenda 
telefónica em que o nome completo é o 
campo-chave. 



RELATÓRIOS DE SAÍDA 



Um SGBD de qualidade sempre in- 
clui algum tipo de recurso de formata- 
ção de relatórios de saída (em vídeo 
e/ou impressora). Isso permite ao usuá- 
rio construir um relatório exatamente na 
forma em que será apresentado. Cabe 



As telas mostram várias funções de ui 
sistema moderno de gerenciamento de 
bancos de dados para 
esquerda para a direita: menu das 
operações disponíveis, procedimento de 
definição da estrutura do banco, 
formatação de entrada e edição 
de dados, busca seletiva, 
relatório de saida. 



a ele definir os campos que devem ser 
incluídos c em que ordem, a largura e 
o título de cada coluna de dados, se os 
totais devem ser calculados, se o relató- 
rio será subdividido em diversos níveis 
(com ou sem subtotais) etc. 

A forma mais simples de saída é o re- 
latório (report), cuja formatação pode 
ser estipulada de maneira muito simples 
por alguma opção constante do sistema 
de gerenciamento. 

Os SGBD mais sofisticados oferecem 
ao usuário a opção de determinar um ou 
mais critérios de seleção, de modo que 
o relatório contenha apenas um subcon- 
junto específico do banco de dados. 

Outros tipos de saída, como etique- 
tas para endereçamento, gráficos, for- 
mulários específicos etc, podem ser ob- 
tidos por meio de funções especiais dos 
SGBD mais profissionais, ou da trans- 
ferência de dados pelo formato SDF ou 
outro, para os programas que são capa- 
zes de realizar essas tarefas. 



LINGUAGENS DE PROGRAMAÇÃO 



Alguns SGBD destinados a micro- 
computadores, como o dBASE II por 
exemplo, são muito mais do que um sis- 
tema pronto para gerenciamento de ban- 
cos de dados. Como se baseiam em uma 
linguagem de comandos (diretivas sim- 
ples, formadas por palavras e frases em 
inglês ou português), é possível escrever, 
armazenar e executar programas a par- 
tir deles. Assim, sistemas muito mais 
complexos podem ser desenvolvidos. 
Linguagens desse tipo são chamadas lin- 
guagens de quarta geração. 

Existem versões do dBASE II, que é 
o SGBD relacional mais utilizado em to- 
do o mundo, para todo os micros com- 
patíveis com o sistema operacional 
CP/M: Apple Z-80, CP-500M, a linha 
MSX com disquetes etc. Já se desenvol- 
veu inclusive uma versão çôm os coman- 
dos em português, chamada DIALOG. 



20 PIRIFIRICOS 20 



PROCESSAMENTO 
DE IMAGENS 



APLICAÇ ÕES 

CÂMARA DE VÍDEO 



DISPOSITIVOS CCD 



ADEQUA ÇÃO AQ MICRO 



SOFTWARE 



Sistemas de processamento de imagens 
já se encontram à disposição 
dos usuários de microcomputadores 
pessoais, abrindo-lhes as portas para 
um fascinante campo de aplicações. 



O processamento de imagens por 
computador é unia das áreas mais fas- 
cinantes e complexas do mundo das apli- 
cações da eletrônica digital. 

O computador pode realizar verda- 
deiros milagres ao converter uma ima- 
gem em impulsos digitais (números bi- 
nários) e processá-la com programas es- 
peciais, em alta velocidade. 

Para satisfação dos usuários de mi- 
cros domésticos, muitas dessas aplica- 
ções, antes restritas a computadores de 
grande porte, estão agora disponíveis 
para máquinas como as suas. 

O passo central para o processamen- 
to de imagens consiste em sua captação 
e conversão em sinais digitais. Isso é fei- 
to por um periférico composto por uma 
câmara especial, acoplada a um conver- 
sor e a uma interface. 

Existem atualmente câmaras simples 
(digitais), de preço razoável, para apli- 
cações em micros. Elas são baseadas na 
tecnologia do circuito integrado (CCD, 
ou Charge-Coupled Device). 



Podem-se captar imagens em tempo 
real por meio de câmaras de vídeo se- 
melhantes às que são usadas em conjun- 
to com videocassetes ou em estúdios de 
televisão ou através de câmaras digitais. 
Há, entre ambas, uma grande diferen- 
ça de preço, correspondente à qualida- 
de da imagem obtida. 

A câmara de vídeo é baseada no tu- 
bo de imagem, ou vidicon — uma am- 
pola de vidro, dentro da qual se produ- 
ziu vácuo absoluto, e que contém um ou 
mais "canhões" eletrônicos, que geram 
feixes de elétrons como em um tubo de 
TV (cinescópio). A imagem, captada 
por lentes e projetada na parte plana do 
tubo, impressiona elementos fotossen- 
síveis que recobrem sua superfície. Os 



feixes eletrônicos varrem sistematica- 
mente a superfície e transformam os ní- 
veis de luminosidade em ondas elétricas. 
Na conversão destinada ao uso por um 
computador, um conversor analógi- 
co-digilal produz sequências de bits que 
são enviadas à memória da máquina, re- 
presentando um retrato mais ou menos 
fiel da imagem captada. 

O vidicon tem uma alta resolução de 
imagem — ou seja, o número de linhas 
da varredura é grande (trezentas a qui- 
nhentas por tela, geralmente). O efeito 
disso, na conversão para números biná- 
rios, é a divisão da tela em uma espécie 
de quadriculado, em que cada "quadra- 
dinho" equivale a um ou mais bytes de 
informação, descrevendo a intensidade 
luminosa, cor etc. do ponto. Esses ele- 
mentos são chamados pixels (do inglês, 
picture elements). 

Uma câmara digital, por sua vez, é 
baseada em um circuito integrado cuja 
larga superfície já é dividida em uma 
matriz de elementos fotossensíveis. Ca- 
da elemento corresponde a um pixel. A 
imagem, projetada sobre essa superfície, 
é automaticamente dividida em pixels, 
sem a necessidade de uma varredura por 
um feixe eletrônico. 

A câmara digital é muito mais sim- 
ples e barata do que o vidicon, pois não 
requer tubo blindado de vidro, vácuo, 
nem filamentos de aquecimento. O con- 
sumo de energia é pequeno e a câmara 
pode ser facilmente miniaturizada. 

Entretanto, há uma desvantagem: se 
comparados ao vidicon, os dispositivos 
CCD têm uma resolução de imagem ain- 
da pobre. Os modelos mais baratos, dis- 
poníveis para micros, possuem uma ma- 
triz de 64 por 64 pixels, o que resulta em 
uma imagem bastante grosseira. Câma- 
ras CCD profissionais já atingem 256 
por 256 pixels, ou 512 por 512. Estas úl- 
timas oferecem uma resolução que, a 
olho nu, é praticamente indistinguível de 
uma boa fotografia. 

O CCD tem a vantagem de não exi- 
gir um conversor analógico-digital espe- 
cial, pois geralmente os circuitos conver- 
sores de luminosidade estão embutidos 
no próprio chip. Uma lente razoável e 
a interface de conexão é tudo de que se 
precisa — sem falar, é evidente, no soft- 
ware que controla o sistema. 



UM MODELO PARA SEU MICRO 



Não faz muito sentido utilizar um 
CCD com um computador que lenha re- 
solução mais baixa que a da câmara. As- 
sim, os micros Apple e MSX são os que 
dispõem de maior oferta de periféricos 
de captação de imagens. 

Os micros compatíveis com a linha 
IBM-PC têm sido os mais usados para 
processamento de imagens, devido a sua 
velocidade e capacidade de memória. 
Existem vários modelos para essas má- 
quinas, entre eles o PC-Eye. 

Podem-se utilizar também interfaces 
comerciais para ligar um videocassete e 
sua câmara a um micro de boa resolu- 
ção gráfica. Essas interfaces dispõem de 
um conversor analógico que, embora rá- 
pido, serve apenas para imagens estáti- 
cas, por não conseguir acompanhar os 
sessenta quadros por segundo da filma- 
gem de vídeo. 



SOFTWARE E APLICAÇÕES 



Diversos tipos de programa de pro- 
cessamento de imagens já foram desen- 
volvidos para micros. Os mais elemen- 
tares são geralmente vendidos com o pe- 
riférico, e servem apenas para capturar 
uma imagem e armazená-la em disco. 
As versões mais sofisticadas permitem 
escolher filtros de imagem, determinar 
uma intensidade mínima para a capta- 
ção (ifiresholding) etc. 

Softwares mais complexos são dota- 
dos de outras funções de processamen- 
to de imagens, como detecção automá- 
tica de bordas, aumento de contraste, 
cálculo de áreas, falsa-cor etc. Suas apli- 
cações se estendem a vários ramos das 
ciências e da tecnologia. Uma das mais 
interessantes para micros refere-se ao 
desenvolvimento de bancos de imagens. 
Estes permitem a armazenagem, por 
exemplo, de fotografias de pessoas — 
junto com uma ficha contendo nome, 
endereço, dados funcionais etc. — ou 
das ilustrações de um livro de zoologia, 
para programas didáticos. O único pro- 
blema desse tipo de aplicação é o gran- 
de espaço de memória ocupado por uma 
imagem detalhada em disco. 
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Desenho de retàngulos e preenchimento com cores 

GERAÇÃO DE BLOCOS GRÁFICOS (1) 489-495 

Como gerar blocos gráficos na tela e armazená-los 

GERAÇÃO DE BLOCOS GRÁFICOS (2) 507-512 

Rotinas para inversão, rotação e reflexão de desenhos 

UM EDITOR DE TEXTOS (!) 576-5BO 

Primeira parte de um programa edilor de textos 

UM EDITOR DE TEXTOS (2) 586-591 

Criação e modificação de textos 

UM EDITOR DE TEXTOS (3) 614-620 

Parte final do programa de processamento de textos 

APERFEIÇOE SEU BANCO DE DADOS 706-711 

Mais rotinas para o programa de arquivamento de dados 

UMA AGENDA ELETRÕNICA (1) 834-840 

Um programa para calendário e agenda de compromissos 

UMA AGENDA ELETRÕNICA (2) 841-845 

Segunda parte do programa de calendário e agenda 



UMA AGENDA ELETRÕNICA (3) 868-871 

Terceira parte do programa de calendário e agenda 

UM ASSISTENTE PARA O DOS 936-940 

Acionamento dos comandos de disquetes por um menu 

UM AMPLIADOR GRÁFICO 1049-1055 

Programa para ampliar ou reduzir gráficos 

UMA PLANILHA ELETRÕNICA (I) 1108-1115 

Primeira parte de um programa de folha de cálculo 

UMA PLANILHA ELETRÕNICA (2) 1I34-U3B 

Segunda parte do programa de folha de cálculo 

UMA PLANILHA ELETRÕNICA (3) 1155-1160 

Terceira parte do programa de folha de cálculo 

TRS-COLOR: UM EDITOR DE DISCOS 1216-1220 

Modificação direta das trilhas do disco 

PROGRAMA PARA TESTE DO VÍDEO 1257-1258 

Teste se o seu monitor de video está bem ajustado 

CONSULTA AOS ASTROS 1261-1270 

Um programa para a elaboração de horóscopos 

FERRAMENTAS PARA O SPECTRUM 1281-1283 

Rotina de máquina com novas funções para o BASIC 

DESENHO ARQUITETÕNICO (1) 1367-1371 

Programa de decoração de interiores 

DESENHO ARQUITETÕNICO (2) 1386-1390 

Segunda parte fio programa de decoração de interiores 

UM EDITOR MUSICAL (I) 1398-1400 

Aplicativo que transforma o computador em um piano 

UM EDITOR MUSICAL (2) 1408-1411 

Segunda parte do programa de edição musical 

UM EDITOR MUSICAL (3J 1421-1425 

Terceira parle do programa de edição musical 

ORGANIZAÇÃO DE PROJETOS 1451-1460 

Planejamento de pmjetos pela técnica PERT 

UM INDEXADOR DE PROGRAMAS 1461-1463 

Complete o arsenal de ferramentas para seu Spectrum 

PROGRAMAÇÃO EM LINGUAGEM DE MÁQUINA 1-3 

O que é código de máquina e programação Assembler 

APRENDA A CONTAR COM UM DEDO SÓ 34-40 

O sistema binário e sua conversão para decimal 

APRENDA ARITMÉTICA HEXADECIMAL 56-60 

Programa para a con versão de números hexa em decimais 
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COMO ENTRAR CÓDIGO DE MÁQUINA 88-95 

Um monitor para programar em hexadecimal 

NO CORAÇÃO DE UM MICRO 109-1 12 

UCP, pilha e registros internos 

ABAIXO DE ZERO 142-145 

Números negativos nos sistemas binário e hexa 

MEMÓRIAS SÃO FEITAS ASSIM 174-180 

A organização inferna das memórias ROM e RAM 

TRADUÇÃO MANUAL DO ASSEM BLY 196-200 

Mnemónicos, endereçamento e tradução do Assembler 

PROGRAMAS EM CÓDIGO DE MÃQU1NA 213-220 

Tradução manual de programas em Assembly 

ASSEMBLER PARA O APPLE 238-240 

Um programa montador escrito em BASIC 

ASSEMBLER PARA O SPECTRUM 248-252 

Um programa montador escrito em BASIC 

ASSEMBLER PARA O TRS-COLOR 296-300 

Um programa montador em Assembler 

FIGURAS MÓVEIS 316-320 

Animação de gráficos no Apple e no ZX-81 

MOVIMENTE FIGURAS NA TELA 341-347 

Criação e animação de blocos gráficos: tanques e sapos 

RASTREAMENTO NO SPECTRUM 381-387 

Programa para a localização de erros 

ASSEMBLER PARA O MSX 401-405 

Um programa montador escrito em BASIC 

GRÁFICOS INSTANTÂNEOS 406-413 

Mais blocos gráficos e conversão binária 'hexadecimal 

DRAGÃO ANIMADO 474-477 

Blocos gráficos binários em animações complexas 

O BASIC NA MEMÓRIA 513 

Listagem de programas armazenados na memória 

UM COMPACTADOR DE PROGRAMAS 536-540 

Programa utilitário de compressão para o TRS-Color 

EFEITOS SONOROS NO SPECTRUM 556-560 

O uso de BEEP e OUT para a obtenção de sons 

COMO FUNCIONA O GERADOR GRÁFICO 565-569 

Listagem em Assembler do programa de animação gráfica 

AMPLIE O BASIC DO TRS-COLOR 597-600 

Novas instruções e funções para o BASIC 

UM RELÓGIO NA TELA 658-659 

Programação de interrupções e suas aplicações 



UM ASSEMBLER PARA O TRS-80 679-680 

Um programa montador escrito em BASIC 

APPLE E TK-2000: EFEITOS SONOROS 712-714 

Como produzir sons e ruídos em linguagem de máquina 

AVALANCHE: UM V1DEOGAME EM ASSEMBLER 748-755 

Parte I: objetivos do jogo e tela de titulo 

AS INSTRUÇÕES DO JOGO 761-765 

Parte 2: leia de instruções de A valanche 

AVALANCHE: EFEITOS SONOROS 788-795 

Parte 3: programação da melodia "Greensteeves" 

BLOCOS GRÁFICOS EM AVALANCHE 81S-B20 

Parte 4: definição dos elementos gráficos 

AVALANCHE: MONTE O CENÁRIO 824-833 

Parle í: definição gráfica do cenário do jogo 

AVALANCHE: RISCOS E PRÉMIOS 941-946 

Parte 6: perigos e recompensas 

AVALANCHE: A ROTINA PRINCIPAL 969-971 

Parte 7: rolina de inicialização do jogo 

AVALANCHE: ACERTO DAS VARIÁVEIS 995-999 

Parle 8; rotina de sincronização 

AVALANCHE: CONTE OS PONTOS 1001-1008 

Parte 9: rotina de contagem de pontos 

EFEITOS SONOROS COMPLEXOS 1027 

Efeitos de tiro laser no Apple e no TK-2000 

AVALANCHE: O VOO DAS GAIVOTAS 1028-1031 

Parle 10: rotinas de movimentação das gaivotas 

SONS E RUÍDOS NO TRS-80 1032-1033 

Rotinas em linguagem de maquina para O BASIC 

PERIPÉCIAS NO MUNDO DE NETUNO 1056-1060 

Parle II: movimentação do mar em Avalanche 

AVALANCHE: O TEMPO FECHA 1076-1080 

Parle 12: efeitos meteorológicos 

AVALANCHE: AS PEDRAS ROLAM (I) 1116-1120 

Pane 13: primeira parte da rotina de movimentação 

AVALANCHE: AS PEDRAS ROLAM (2) 1128-1132 

Parte 14: segunda parle da rolina de movimentação 

AVALANCHE: A ESCALADA 1146-1154 

Parte IS: Willie começa a andar 

AVALANCHE: OS SALTOS DE WILLIE 1168-1175 

Parte 16: primeira parte da rolina de salto 

AVALANCHE: MAIS SALTOS LI 86-1 193 

Parle 17: segunda parte da rolina de salto 
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AS CINCO VIDAS DE WILLIE 1208-1213 

Parte IS: rotinas de marte, sons e finalização 

AVALANCHE: PONTOS GANHOS 1228-1233 

Parte 19: marcação de pontos e aumento da dificuldade 

AVALANCHE: AS COBRAS VIVEM! 1241-1245 

Parte 20: rotina de movimentação das cobras 

AVALANCHE: COMEÇA O JOGO 1271-1276 

Parte 21: laço principal de chamada das rotinas 

AVALANCHE: LISTAGEM COMPLETA 1292-1300 

Parte 22: despejo hexadecimal paro verificação 

A TORRE DE BABEL 1288-1291 

As linguagens de programação: tipos e características 

PROGRAMANDO EM LOGO 1314-1320 

Introdução a uma linguagem diferente 

O LOGO E A TARTARUGA 1326-1331 

Desenho de gráficos usando o LOCO 

LOGO: ALÉM DA TARTARUGA 1341-1346 

Processamento de números, palavras e I islãs 

SPRITES EM LOGO PARA O MSX 1426-1427 

Como definir e utilizar os 36 sprites do MSX em LOCO 

PROGRAMAÇÃO EM PASCAL 1436-1439 

Introdução a uma linguagem estruturada 

ESTRUTURAS DO PASCAL 1446-1450 

Os principais comandos e sua utilização 

mm 

COMO DESCOMPLICAR SAVEs E LOADs 53-55 

Técnicas e cuidados na utilização do gravador cassete 

JOYSTICKS 287-291 

Escolho e utilização de um joystick 

COMPUTADORES QUE FALAM 446-448 

O que são sintetizadores de voz e como usá-los 

CUIDADOS COM FITAS E DISCOS 488 

Organização e manutenção de arquivos 

COMO ESCOLHER UMA IMPRESSORA J21-525 

Tipos de impressora e sua utilização 

SUA LIGAÇÃO COM O MUNDO 561-564 

O uso do telefone para contatar outros computadores 

CONECTE UMA IMPRESSORA 648-652 

Para que serve uma impressora e como acionà-la 



TV VERSUS MONITORES 851-854 

Selecione o vídeo mais adequado para seu micro 

A ESCOLHA DA MEMÓRIA AUXILIAR 876-880 

Filas e discos: características e funcionamento 

COMO UTILIZAR UM DISQUETE 906-911 

O hardware e os comandos de controle do acionodor 

CANETAS ÓPTICAS 926-929 

Tipos, funcionamento, ligação e aplicações 

TABLETES GRÁFICOS 964-968 

Dispositivos para entrado de gráficos e desenhos 

MOUSE MECÂNICO E MOUSE ÓPTICO 1000 

An vantagens de um dispositivo de entrada gráfica 

DISCOS RÍGIDOS HM 

Funcionamento de discos de alta capacidade 

VIDEOTEXTO E MICROCOMPUTADORES 1200 

Hardware e software para ligar o micro ao videotexto 

ROBÔS CONTROLADOS POR COMPUTADOR 1284-1287 

Uma introdução à robótica aplicada 

MÚSICA. MICROS E MIDI 1306-1310 

Interfaces e software para controle de sintetizadores 

COMPUTADORES QUE OUVEM 13H 

Periféricos para reconhecimento da fala em micros 

CONTROLE POR COMPUTADOR 1321-1325 

O uso do micro para controlar dispositivos mecânicos 

PROCESSAMENTO DE IMAGENS 1470 

Utilização de câmaras digitais e de video 

NÚMEROS AO ACASO "16 

O emprego da junção RND 

A ARTE DE FAZER LAÇOS 21-27 

Como o computador repete e conta coisas 

ENSINE SEU MICRO A TOMAR DECISÕES 41-45 

As declarações IF...THEN 

AS PLACAS DE SINALIZAÇÃO 76-80 

Desvios no fluxo dc imn:runhnão tom GOTO £ GOSUB 

PROGRAME JOGOS A CORES 86-87 

Como utilizar os recursos gráficos do TRS-Color 

O QUE SÃO VARIÁVEIS 96-'™ 

Tipos de variável e seu uso 

COMO DESENHAR EM BASIC 113-120 

Os comandos de desenho do BASIC 
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OS COMANDOS READ E DATA 128-133 

Comandos para armazenamento e recuperação de dados 

FAÇA PROGRAMAS MAIS CURTOS Hl 

Alguns truques para aumenlur a velocidade em BASIC 

ORDEM F LIMPEZA NO VÍDEO 146-152 

A Junção TA B e os sinais de pontuação para impressão 

E AGORA... O QUE FAZER? 161-167 

Como entrar dados em um programa usando o INPUT 

CRIE SPRITES NO MSX 188-191 

Programação e animação de era f tens baseados em sprites 

CONJUNTOS: CAIXAS DE INFORMAÇÃO 192-195 

Utilização de variáveis indexadas e a declaração DIM 

CONJUNTOS DE DUAS DIMENSÕES 201-207 

Programação de matrizes e tabelas em BA SIC 

COMO ESTRUTURAR SEUS PROGRAMAS 221-225 

Programação estrutiiradu e uso de fluxogramas 

RECURSOS GRÁFICOS SOFISTICADOS 232-237 

Desenho de círculos e arcos em BASIC 

CADEIAS DE CARACTERES 241-247 

Funções e comandos para manipular dados alfanuméricos 

CÓDIGOS DE CONTROLE 260 

O que são e como usa-los na programação 

OS COMANDOS PEEK E POKE 261-268 

Como examinar e alterar diretamente a memoria do micro 

MAIS CÓDIGOS DE CONTROLE 269 

Truques de programação no Spectrum 

ORDENAÇÃO PELO MÉTODO DE BOLHAS 292-295 

Aplicação da programação estruturada 

RELAÇÕES MUITO LÓGICAS 301-305 

Os operadores lógicos AND. OR e NOT 

COMO EVITAR E DETECTAR ERROS 311-315 

Métodos para localizar e corrigir erros em BASIC 

BÚSSOLAS E RELÓGIOS 334-340 

Gráficos circulares e o desenho de bússolas 

MAIS REQUINTE EM SEUS DESENHOS 354-360 

Gráficos circulares e o desenho de relógios 

TRABALHE COM O CÓDIGO ASCII 361-366 

Os códigos de caracteres e seu uso em um programa 

CÓDIGOS PARA O MSX 367 

Controle do vídeo pelo teclado e por programa 

ARTE GRÁFICA EM SEU MICRO 388-393 

Novas idéias para usar cores em seu micro 



EDIÇÃO NO TRS-80 E NO TRS-COLOR 399-400 

O comando EDITe suu utilização para modificar linhas 

EDIÇÃO DE PROGRAMAS NO MSX 425 

Modificação de um programa em BASIC 

FUNÇÕES MATEMÁTICAS 434-440 

Cálculo de raízes quadradas, cubos e potências 

COMO EVITAR ERROS 441-445 

Preparação de armadilhas para erros de operação 

COMO COMBINAR PROGRAMAS 456-460 

O comando MERCÊ e técnicas para juntar programas 

ROTINAS DE ORDENAÇÃO 468-473 

Técnicas de ordenação binária, de bolhas e Shell 

ANIMAÇÃO GRÁFICA NO TRS-COLOR 478-480 

Os comandos GET e PUT e suas aplicações 

COMO TRAÇAR GRÁFICOS 481-487 

Aprenda a colocar seus dados em forma de gráficos 

A FUNÇÃO INKEYS NO TK-2000 496-499 

Como escrever uma rotina para varredura do teclado 

COMO FUNCIONA O PR1NT USING SOO 

Uma instrução útil para formatação de saídas em BASIC 

APERFEIÇOE SUAS TELAS 501-506 

Formatação de textos na tela com PRINT 

CONJUNTOS DE BLOCOS GRÁFICOS (1) 526-535 

Criação e proteção de gráficos 

CONJUNTOS DE BLOCOS GRÁFICOS (2) 541-547 

Montagem de um cenário com blocos gráficos 

PROTEJA SEUS PROGRAMAS 548-551 

Desativação de teclas, auto-carregamento e copyright 

ZX-81: EDIÇÃO DE PROGRAMAS 312 

Como modificar as linhas de um programa em BASIC 

SÍMBOLOS GRÃFICOS NO MSX 553-555 

O uso de gráficos da ROM em programas em BASIC 

CONJUNTOS DE BLOCOS GRÁFICOS (3) 570-575 

Finalização do cenário com gráficos do usuário 

PROGRAMAÇÃO DE GRÁFICOS EM 3-D (1) 581-585 

Desenhos em forma de grade em três dimensões 

FUNÇÕES SOB ENCOMENDA 608-613 

O comando DEF FN e suas aplicações 

MSX: TECLAS PROGRAMÁVEIS 621-626 

Utilização das teclas Fl a FIO em programas 

SPRITES PARA O TRS-80 (1) 627 

Os caracteres gráficos e sua utilização 
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PROGRAMAÇÃO DE GRÁFICOS EM 3-D (2) 628-633 

Programação de um cubo em três dimensões 

GRÁFICOS: BARRAS E SEGMENTOS 634-639 

Programação de gráficos para diversos lipos de dados 

GRÁFICOS DA ROM NO SPECTRUM (I) 640 

O que são os caracteres gráficos pré-programados 

PROGRAMAÇÃO DE GRÁFICOS EM 3-D (3) 641-647 

Como acrescentar perspectiva a um desenho 

SPRITES PARA O TRS-80 (2) 660 

Criação e animação de blocos gráficos 

GRÁFICOS DA ROM NO SPECTRUM (2) 661 

O uso dos símbolos gráficos dentro de programas 

SPRITES PARA O TRS-80 (3) 669 

Blocos gráficos complexos e sua animação 

SIMULAÇÃO: FAÇA A BOLA ROLAR 670-678 

.4 matemática è a programação de corpos em movimento 

RECORRA AOS ARQUIVOS 687-692 

Programação de arquivo de dados em BASIC 

PROGRAMAÇÃO DE GRÁFICOS EM 1-D (4) 693-700 

Esferas e círculos em perspectiva 

DE OLHO NA TELA 7IS-720 

Detectando colisões: comandos A TTR, PEEK e POINT 

MÚSICA EM SEU MICRO 721-727 

Transforme o computador em um instrumento musical 

SÍMBOLOS GRÁFICOS NO TK-2000 734-737 

Como utilizar os caracteres gráficos pré-programados 

MAIS TÉCNICAS DE ORDENAÇÃO 738-740 

Técnicas de substituição, espalhamento e inserção 

PROGRAMAÇÃO DE MELODIAS NO MICRO 741-747 

Acrescente timbre e ritmo ao programa musical 

TUDO QUE SOBE. DESCE 766-773 

Programação da dinâmica de objetos voadores 

ACASO E PROBABILIDADE 774-780 

Simulação de cara e coroa e a medida de probabilidade 

SIMULAÇÕES ESPACIAIS 781-787 

Programas para desenhar trajetórias e órbitas 

FIGURAS GEOMÉTRICAS 801-807 

Exploração de cones, curvas e seçàes circulares 

CRIE SPRITES COM VPEEK E VPOKE 808-814 

Técnicas avançadas de criação de sprites no MSX 

PALETA ELETRÓN1CA PARA O TK-2000 846-850 

Um programa para desenhar gráficos em cores 



PROGRAMAÇÃO GRÁFICA DE CURVAS 861-866 

Como incorporar curvas cónicas a um programa 

OS SEGREDOS DO SPECTRUM (1) 867 

Truques de manipulação da tela e obtenção de cores 

MENSAGENS SECRETAS 888-893 

Cifras, códigos secretos e sua programação em BASIC 

ARMAZENAGEM DE NÚMEROS 894-900 

Como números reais são armazenados na memória 

OS SEGREDOS DO TRS-80 (1) 912 

Organização do vídeo e cópia da tela asm PEEK e POKE 

MANCHETES E LETREIROS (1) 913-920 

Como desenhar caracteres de grandes dimensões 

MANCHETES E MAIS MANCHETES 921-925 

Invente e utilize novos tipos de letras em BASIC 

ACELERE SEUS PROGRAMAS 930-935 

Técnicas para aumentar a velocidade de execução 

OS SEGREDOS DO TRS-80 (2) 947 

A função VARPTR; uma rotina de cópia de tela 

ROTINA EM CÓDIGO DE MÁQUINA (1) 972-973 

Introdução de rotinas em código no BASIC 

ALAVANCAS, POLIAS E ROLDANAS 981-987 

Princípios da mecânica c programas para demonstrá-los 

CONTROLE POR TECLAS MÚLTIPLAS 988-993 

Instruções e um jogo como exemplo 

OS SEGREDOS DO TRS-80 (3) 994 

Mais usos para VTRANSE: gravação e leitura de telas 

TOCANDO EM HARMONIA 1009-1015 

Programação de acordes em três canais no MSX 

MONTAGEM DE DESENHOS 1021-1026 

Técnicas de ampliação e deslocamento de gráficas 

MATEMÁTICA DO CRESCIMENTO 1061-1068 

O computador na análise do comportamento 

AFINAL. QUAL É O SEU SOM 7 1081-1085 

Explore a tecnologia de digitalização de sons 

NOVAS MENSAGENS SECRETAS 1091-1095 

Mais tipos de códigos e técnicas para decifrá-los 

PÁGINAS GRÁFICAS 1096-1100 

Técnicas de animação usando sequência de telas 

ARMAZENAGEM DE PROGRAMAS 1101-1107 

Como um programa é armazenado na memória 

SIMULAÇÃO E PREVISÃO 1121-1127 

Cálculos de probabilidade e suas aplicações 
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MAIS SOBRE PÁGINAS GRÁFICAS 1141-1145 

Sofistique os programas de animação gráfica 

PADRÕES NATURAIS 1161-1167 

Pontas, curvas e órbitas para gráficos complexos 

MODELOS DA REALIDADE 1176-1180 

Predição de eventos reais com o uso da função RND 

MODELOS E SIMULAÇÃO 1 181-1 183 

O que são e como aplicá-los 

FIGURAS TRIDIMENSIONAIS 1194-1199 

Como produzir formas usando sólidos de rotação 

COMPRESSÃO DE MELODIAS 1201-1207 

Técnicas para a redução do espaço na memória 

OPERAÇÕES COM CADEIAS 1214-1215 

Funções para remoção e conversão de caracteres 

TÉCNICAS DE RECURSÃO 1221-1227 

Emenda como um programa pode chamar a si mesmo 

O SISTEMA OPERACIONAL 1246-1251 

Endereços de acesso e truques 

COMO LIDAR COM ARQUIVOS 1252-1256 

Métodos básicos de leitura e gravação de dados 

CONTROLE A ENTRADA DE DADOS 1259-1260 

Uma rotina para simular um INPUTcom mais recursos 

OPERAÇÕES COM DATAS 1279-1280 

Compressão e conversão de datas 

DIVERTIMENTOS MATEMÁTICOS 1301-1305 

Resolução de quebra -cabeças lógicos e matemáticos 

OS SEGREDOS DO TRS-80 (4) 1312-1313 

Coordenadas de tela e truques com o teclado 

OS SEGREDOS DO SPECTRUM (2) 1340 

As variáveis de sistema e suas aplicações 

FUNÇÕES PODEROSAS 1347 

O emprego do DEF FN no TRS-80, TRS-Color e MSX 

PAPEL, PEDRA, TESOURA 1348-1355 

Técnicas estatísticas para dar inteligência a um jogo 

A MATEMÁTICA DA IRREGULARIDADE (1) 1356-1360 

O que são dimensões fracionadas e fractais 

DOMINE O VlDEO DO MSX 1361-1366 

Controle da tela e programação de caracteres 

A MATEMÁTICA DA IRREGULARIDADE (2) 1372-1377 

Flocos de neve e montanhas desenhados com fractais 

BITS E BYTES EM BASIC 1378-1380 

Funções para acesso direlo aos bits de uma memória 



DESENHOS EM PERSPECTIVA 1391-1395 

Técnicas para acrescentar profundidade a um desenho 

FORMATAÇÃO DE TELAS 1395-1397 

Entrada de dados formatados no Apple e no TK-2000 

MAIS OPERAÇÕES COM CADEIAS" 1401-1403 

Recuperação e substituição de subcadeias 

OS SEGREDOS DO TRS-80 (5) 1412-1413 

Programação com o teclado tPEEK e INKEYS) 

ROTINAS EM CÓDIGO DE MÁQUINA (2) 1419-1420 

Como colocar códigos de máquina em linhas DA TA 

FORMATAÇÃO DE VALORES , 1440 

Formatação rápida para impressão de números 

IMPRIMA SEUS DESENHOS I441-144S 

O uso da impressora na produção de gráficos 

PROGRAMAÇÃO DE JOGOS 

ANIMAÇÃO E SINAIS GRÁFICOS 4-10 

Animações complexas com os gráficos da ROM 

APONTAR.,. FOGO! 28-33 
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[LOGO) 1344 
tbstralos, desenhos 358-360 
Aon 774-780. 1176-1180, 1181-11 
(Kr. Aleatórios, números) 

- utilização em jogos de simulaçãc 
Aceleração de um enrpo 770 
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comprimidos 143 1 
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Alealória. distribuição 777-780. 1176-1177 

Aleatórios, números 11-16, 1121-1127, 
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( V. I. Ordenação) 

Alfanuméricas, variáveis 13. 99-100. 194-195. 
1101-1107, 1215 (Kl Cordões) 
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- em sislemas dc reconhecimento da fala 131 
Análise sonora 1081-1085 
Analógico-decimal. conversor V. Conversor 
umilt iiiiai-decimat 

Análogos, modelos 1176 
AND 43, 301-304 

- limite para tamanho dos números 305 

- na manipulação de bits 1335, 1378 
Andamento 744-745 (!'./. Música) 
Animação gráfica 4-10, 316-320, 341-347, 
406-413. 474-477 

alça de mira 348-353 
bicicleta 478-480 

- bomba moto-continua 1 141- 1 145 

cubo 1097-1098 

- dançarino 6-8 
dragão 474-477 

n Avalanche 1028-1031. 1 076- 1 1 
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- efeitos sonoros 266.712-714. 1027 

- escrita na tela de alta resolução 534-535 

- gravação de dados em Hia cassete 1254 

- interpretador LOGO 1317 

- joystiçks 291 

- organização da memória 179-181 
APPLESOFT 179 

APRENDA 1319 

Aranha Marciana. A (programa) 955-960. 
974-980 

Arco co-seno 613 

- desenho de 232 
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(programa) 436-439 
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- simulação do crescimento 1063 



1116-1120. 1128-1132. 1146-1154, 




Áreas da memória 


1168-1175, 1186-1193. 1241-1245 




- atributos 175 


- figuras tridimensionais 1 194-1 199. 1391 
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- edição 175 


- foguete 2S-33 




- entrada e saida 180 


- helicóptero 10 




- exibição 175 


- míssil 28-33 




- informação de canal 175 


- monstro 319-320 




- matrizes (MSX) 179 


- motocicleta 316-318 




- programa 


- nado parabólico 863-864 




no MSX 179 


- no Apple 316-318 




no Spectrum 175 


- no TK-2000 316-318 




no TRS-80 178 


- no TRS-Color 478-180 




no ZX-81 177 


- no TRS-80 120, 160. 669 




- irabalho 


- no ZX-81 319-320 




Apple 180 


- sapo 344-347 




Spectrum 176 


- sprites em LOGO 1426-1427 




ZX-81 177 


- submarino 316-318 




-usuário 180 


- tanque de guerra 342-347 




- variáveis 


- técnica de paginação 1096-1100. 1141- 


145 


no Apple e no TK-2000 180 


- trajetórias 670-678. 766-773, 781-787. 


166 


no MSX 179 


Apagamento 




no Spectrum 175 


- da tela 12. 52. 118, 393. 1318 




no TRS-Color 178 


- de arquivos em BASIC 911.940 




no TRS-80 178 


- de arquivos em LOGO 1330 




no ZX-81 177. 


- de linhas 425, 911. 940. 12BI-1283 




Aritmética hexadecimal 56-60 



- rotina de (Spectrum) 1281-1283 
APAGUEDESENHO 1318 
APAREÇATAT 1329 

APL 1288 

Aplicativas, linguagens 1290 
Apontadores 

- cm blocos gráficos 528-529 

- na memória 174-180 

- na UCP 109-112 
Apple 

- acionadores de disquetes 906-907 

- animação gráfica 316-318 

- áreas da memória 180 

- Assembler (programa) 238-240 

- Autosiart ROM 1249 

- CATALOG 269 , 940 

- CHRS 269 

- círculos (desenho) 1 17-1 18 

- códigos de controle 
-COLOR 116 

- compilador PASCAL 1438-1439 

- controle dc vídeo 503 
-cores 1250 
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Aritméticas, expressões V. Expressões 
aritméticas e Operações 
Armazenagem 

- de datas 1279 

-de números 894-900.1101-1107 
-de programas em BASIC 1101-1107 

- de leia 947. 994 

- de variáveis M0I-I107, 1215 

- em DATA e arquivos 
(comparação) 1 252-1 256 

Arquilelura interna 

-6502 112 

-6809 112, 793 

-Z-80 111-112 
Arquilelura por computador 1367-137), 
1386-1390 
ARQUIVOS 1330 

Arquivos 75. 1464 ( V,t. Banco de dados) 

- acesso direto 688. 1467 

- apagamento de 940 

- área dc blocos de conlrolc (MSX) 179 

- buffer 690 

- comparação com armazenagem em 
DATA 1252-1256 
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- controle de 692 

- de nomes 908-910 
-em LOCO 1329 

- formam ASCII 688 

- mestre 1464 

■ sequenciais 1466 

■ técnicas de programação 687-692, 1252-1256 

uso do CHRS (Apple) 692. 1254-1256 

- transferências entre computadores 1404 
Arredondamento 1347 

-erros 899 
Arte piir computador 358-360, 388-393. 1197 
(KA Gráficos) 

■ aplicações dos fractais 1360 

- canetas ópticas 926 

- Desenho Auxiliado por Computador 
(programa) 414-420. 421-424 

- editor gráfico (programa) 846-850, 
1021-1026. 1367-1371, I3B6-I390 

- instrumentos musicais digitais 1306-1310 
-mouse 1000 

- paginação gráfica 1096 

■ tablete digilalizador 964-968 

- uso de curvas geométricas 865 
Arvore, busca em 873 

ASC 263. 362, 364. 1214 
ASCII 361-366, 1332 

- arquivos 688 

- códigos de compressão 1332 

- comparações entre códigos 364 

- correspondência com códigos de teclado 
(TK-2000) 499 

- tabela 263 

- técnicas de programação 361-366 

- versão brasileira (BRASC1I) 280 
Ashbv. Ros* 1287 

ASL 199 
ASR 199 

Assemhler 1288, 1314 ( V.t. Código 
de máquina) 

- códigos operacionais 2 

- definição 2 

- geração dc blocas gráficos 
(programa) 565-569 

- moniagem dc programas longos 1244 

- para o Apple II (programa) 238-240 

- para o MSX (programa) 401-105 

- para o Spectrum (programa) 248-252 

- para o TRS-Color 

errata 794 
programa 296-300 

- para o TRS-80 (programa) 679-680 
-paraoZX-81 251 

- tradução manual 196-200, 213-219 

- uso do CLEAR 217 

- vantagens em relação ,io codiuo dc máquina 3 
Assembl) V. Assemhler 

Assimetria 1372-1374 

Assistente para o DOS (programa) 936-940 
Astrologia (programai 1261-1270 
ATN 771 

AT RI BI' A 1345-1346 

Atribuição I V t. Expressões aritméticas e 

Expressões lógicas) 

- em BASIC 13, 96, 933 

- em LOGO 1345-1346 
-em PASCAL 1438 

Atributos, área dc (memória) 175 
Atributos de tela H5, 716-720, 814 

- no MSX 515. 814 



Atrito, simulação de 673 
ATTR 47, 155. 369. 716-720 
Atuadorr-, 1322. 1324 

Aulocarrrgarncnlo dr pruaramav 549-550 

Autodiscagem 1406 

Auto-rvecueáo de i u- 550 

Automação 

■ bancaria 1407 

■ comercial 892 
Aulo-reprliçáo 726 

■ no Spectrum 265. 1248 

- no TRS-Color 265, 1248, 1251 

- no TRS-80 1313. 1412-1413 
A uki- resposta 1406 
Auio-semelhança 1358 

Auliislun ROM (Apple e TK-2000) 1249 

Auloteste em impressoras 649 

Auiiliar. memória 876-880 ( V.L Disco e Fita) 

Avalanche 

- animação gráfica 1028-1031 

cobras 1241-1245 

jogador 1146-1154. 1168-1175. 1186-1193 

mar 1056-1060 

pedras 1116-1120, 1128-1132 

tempo 1076-1080 

- blocos gráficos S15-S20 

- cenário 824-833 

- contagem de pontos 1001-1008, 1228-1233 

- controle dc vidas 1208-1213 

- controle global 969-971 

- efeitos sonoros 788-795 

- estrutura getal 748-755 

- inicialização 995-999 

- instruções 761-765 

- listagem completa 1291-1300 

- moniagem do programa 765 

- níveis de dificuldade 941-946, (228-1233, 
1241-1245 

- programa principal 969, 971, 1271-1276 

- riscos e prémios 941-946 

- spriles 815-820 

- variáveis 995-999 

- võo das gaivotas 1028-1031 

A>enlura, jogn de 208-212, 226-231, 270-275, 
306-310, 321-327, 394-398 

- características 209-211 

- compressão de melodias 1430 

- compressão de textos 1332-1339, 
1414-1418. 1428-1435 

- criação 211-212. 394-398 

- linhas de ajuda e instrução 321-327 

- lisia de variáveis 397-398 

- mapeamento do ambiente 226-231 

- movimentação do aventureiro 270-275 

- origem e (ipos 208 

- planejamento 208-212 

- programação dos objelos 306-310 

- tipos de mensagens e textos 1430 




BACK 1287, L118 

Back-up 488. 878. 908 

Backus-Naur Form 1446 {V.t. PASCAL) 



Bactérias ►, Simulação 

Balística 766-773, 781-787. 1161-1163 

Banco de dados 706-71 1, 1464-1469 

- acesso remoto 561-564. 1404-1407 
-agenda 871 

- campo-chave 1468 

- definição 75. 1464 

- de imagens 1470 

- modelos 75 

- pesquisa 81-82. 1468-1469 

- programa aplicativo 68-75. 81-85, 706-711 

- técnicas de programação de arquivos 687-692 
Bandeira 1 10 

Bandidn de um braço só (programa) V. Caça- 
níqueis 

Bar (simulação) 1181-1185 

Baralho, naipes do (MSX, TK-2000) 554-555, 

736-737 

Barras, código de 892 
Barras, eráficti de V. Histogramas 
BASE 268,531-533. 812,1361-1366 
Base de dados V. Banco de dados 
Bases de numeração 34-40, 56-60 

- modelos 36 

- programa de conversão 35-37, 1281-1283 
BASIC 1288, 1314 

operacional 1246-1251 

- apagamenlo de arquivos 940 

- armazenagem de números 894-900 

- armazenagem dc variáveis 1101-1107. 1215 
-atribuição 13. 96, 933 

- cálculo de datas 840 

- compactador de programas 
(TRS-Color) 536-540 

- comparação com o PASCAL 1436 

- decisões em 27, 41-45, 78-80. 222-223. 444. 
625-626. 940 

- definição dc funções 608-613 

- entrada de dados 161-167 

- extensão de comandos 

no Spectrum 1281-1283 
no TRS-Color 597-600 

- interpretador 1247-1248 

- manipulação dc bytes 1378-1380 

- organização de programas na memória 513, 
1101-1107 

- prevenção de erros 441-445 

- rotinas em código de máquina 972-973 

TRS-80 1032-1033 

- tabela de códigos dc erro 312 

- técnicas de aumenlo de velocidade 930-935 
Bauds 1406 

BC D 111, 145 

Beasty 1286 (V.t. Robôs) 

HLLP (Spettrtim) 168-170 

BECIN 1438 

Bell, padrão 1405 

BEQ 

- no 6502 1 99 

- no 6809 200 
Bequadro 744 

Bernoulli. processos de 1176 
Bicicleta (animação gráfica) 478-480 
Bimodal, distribuição 1454 
Binária, pesquisa 873, 934, 1468 
Binário 

- circuilo5 eletrõnicos 40 

- codificação em decimal (BCD) 111, 145 

- conversão do decimal (programa) 38-39 
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- conversão para hexadecimal (programa) 56-60 

- definição de UDGS 406 

- fraçôes em 38 

- multiplicação em 37-39 

■ na criação de sprites 808-811 

■ números negativos 142-145 

- sistema de numeração 37 

- Técnicas de uso em BASIC 1378 
B1NS 814 

Binomial, distribuição 780 

BIOS 1248 

Bil 

- definição 38 

- em padrão de transmissão de dados 1406 
mais e menos significativo 144 

- manipulação de 1335. 1378-1380 
BilPadOne 965 | Kl. Tablete dtgttalizador) 
Blefe. Joros de 1348-1355 

BLKOUT 1250 

BLO 219 

BLOAD 55. 93-94 

Blocos de conlrole (MSX) 179 

Blocos de informação 879 

■ no TRS-Color 1217 

Bloem, gráficos 86-87 (Kl. Caracteres) 
-animação 341-347. 406-413 ( V.t. Animação 
gráfica) 

- apontadores 528-529 
-combinação 541-547.570-575 
-criação 489-495. 507-512, 526-533, 

541-547. 570-575 

- criação de sprites 107. 188-191. 808-811, 
1426-1427 (KJ. Sprites) 

- em Avalanche 815-820 

- no Spectrum 122 

-no TRS-80 160.627 . 660. 669 

- programa gerador cm Assembler 565-569 
BNE 219-220 

BNF 1446 

Bola. movimento da 670. 678 {V.t, Animação 

gráfica e Simulação) 

Bolha, ordenação lipo 292-295, 469^171 

Bumba de combustível (simulação) 96-98 

Bomba moto-conlínuu (simulação) 1143-1145 

Bombardeio (eleito visual) 121-127 

Boolcana. variável 1449 

Borda decorativa (programa) 245-246 

(Kl. Tela) 

BORDER 1 14-115. 556 

- truques de programação (Spectrum) 867 
Boião de disparo (joysticks) 287 

Braços robólicos 1286-1287 
BRASCII 280 
BR AS LOGO 1316 

- conversão para MLOGO 1319, 1344 
BREAK (tecla) 16. 78-79, 442, 559 

- dcsativaçáo da (TRS-80) 1313 
BRIGHT 716 

- com impressora 650 

- por código de controle 269 
BSAVE em programação Assembler 
(MSX) 405 

Buffer 

- de teclado 990 

- cm arquivos 690 

- em impressoras 525 
Burrv 1286-1287 (KJ, Robôs) 
Bulletin Boards 562, 1404-1407 
Busca I . Pesquisa 



BUTF1RST 1345-1346 
BUTLAST 1345-1346 
Byte 144 

- definição 38 

- manipulação cm BASIC 1378-1380 




Cabo para gravador cassete 54-55 
Caça-niqueis (programa) 43-45. 855-860, 
881-887 

CAD V. Desenho Auxiliado por Computador 
Cadeias V, Cordões 
Caixa postal V, Quadros de avisos 
Calculadora (programa) 

- MSX 625-626 
Cálculo 

- de datas 840. 1279-1280 

- de trajelórias 677-678 

- estatístico 1176-1185 

- folhas de V. Planilha eletrõnica 

- infinitesimal 772 

- lógico 302-305, 334-340, 359-360 

■ matemático 434-440.608-613.1312, 
1342-1344, 1347 

- probabilistico 277. 774-780 

- sistemas de 1304-1305 
Caleidoscópio (programa) 25-26 
Calendário 

- agenda clctrõnica (programa) 834-840. 
841-845. 868-871 

- cálculo de datas 840, 1279-1280 
CA IX 220, 240, 503, 1249 

- diferença entre Apple e TK-2000 732 
Câmara 

- CCD 1470 

- de video 1470 
Caminho critico 1451. 1455 
Campo-chave 1 468 

Campo de golfe (programa) 233-234 

Campo minado (programa) 61-67 

Campos 69, 1464. 1468 (Kj, Banco de dados) 

Camundongo V. Mouse 

Canal 

- área de informação 175 [Kl. Áreas da 
memória) 

- efeitos sonoros (MSX) 171 
Canelas ópticas 289, 926-929 
Caos (simulação) 1 166 

Capa e Espada V. Guerra, jogos de 
Caracteres (Kl. Gráficos) 

- ampliação de (programa) 913-920. 921-925 

- análise de frequência 1092-1093. 1332-1339 

- comparação 364 

no Apple 534-535 

no MSX 1361-1366 

no Spectrum 122.341-347.529 

no TRS-Color 478-480, 535-536 

no TRS-80 627, 660, 669 

- detecção na tela 715-720 

- gráficos 

em impressoras 1442-1445 
no MSX 553-555, 1361-1366 



no TK-2000 499, 734-737 
no TRS-80 627, 660, 669. 1413 
técnicas de animação 4-10 
uso do CHRS V. CHRS 

- utilizados no PRINT US1NG 500 
Caractere! de controle V. Códigos 
Caracteres definidos pelo usuário 341-347, 
489-495, 507-512, 526-535. 541-547, 570-575 
1 V.t. Caracteres e Sprites) 

- definição c animação 406^113 

- em Avalanche 815-820 

- modificação 373. 406-413 

- no Apple 534-535 

- no MSX 1361-1366 

- no Spectrum 122. 341-347. 529 

- no TRS-Color 478-480, 535-536 

- no TRS-80 627, 660. 669 

- programa gerador em Assembler 565-569 

- técnicas de programação 406-413 
Característica (notação cieniirica) 894 
Cardápio V, Menu 
Carregamento 

- autocarregiimemo de programas 549-550 

- comandos K CLOAD. t.OAD 
cm LOGO 1330 

- rotinas em código de máquina 93-94. 973 
CARREGUE 1330 

Carro (desenho) 389-390 

Garry 110 

Carias 

- cm processadores de textos 1384-1385 

- programa de impressão 17-20 
Cartuchos 911 

CAS: 1255 

Casa (desenho) 131-133 
CASE 1291, 1448 
Castelo (desenho) 133 

CATALOC 

- em LOGO 1330 

- no Apple 269. 940 
Catástrofes, teoria das 1 163-1 164 
Culódieos. tubo de raios 852 
CBBS 1404-1407 

CCD, câmara 1470 
CCm 1405 
CEEFAX 563. 1407 
Cenários, programação de 

- cm Avalanche 824-S33 
Censura de enlrada 1259-1260 
(Kl. Verificação) 
Centronics, padrão 525 

Chamas {programação gráfica) 121-127 

CHANS (Spectrum) 175 

Chave de acesso K Senhas 

Cheeksum 1277-1278 

Cheqoes. preenchi menlo de 1440 

CHRS 263. 703, 1214 

- para controle dc DOS (Apple) 269 

- uso com caracteres gráficos 

no MSX 553-555 

no Spectrum 123, 155 

no TK-2000 734-737 

no TRS-80 160, 627. 660. 669 

- uso com códigos dc conlrole 260, 367 

- uso com códigos de impressora 652, 
1442-1445 

- uso cm arquivos (Apple) 692, 1254-1256 

- uso em aulo-execução lApple) 550 

- uso em teclas programáveis (MSX) 622-623 
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- uso na manipulação dc bits 1378 

- uso na programação de impressora 1442-1445 
Cifra» 888-893. 1091-1095 {Vj, Códigos e 
Senhas) 

Cinemática 670-678.766-773,781-787, 1 161-1163 
Cirindão 561, 563. 1406 
CIRCLE 337, 865 
• no MSX 120, 234-235 

- no Speclrum 115. 232 

- no TRS-Color 118-119,234-235 

- uso em gráficos de segmentos 639 
Circuilos elelrõnicos 

- digitais 40 
Círculos (Kl, Gráficos) 

■ desenho de 15. 1 19. 234-235. 339-340, 865 
-cm LOGO 1329 

- no Apple e no TK-2000 117-118 

- no Speclrum 232 
-noZX-81 116 

Clave musical 741 
CU: 198 
CLEAR 932 

- função no bistcma operacional 1247 

- no MSX 91-92, 179 

- no TRS-Color 300 

- no TRS-80 90 

- uso em programarão Assembler 217 
CI.EARSCREEN 1318 

CLOAD 53-55 , 910-911 
Clock V. Relógio 
CLOSE 691-692. 1254-1256 
CLS 12 

- conversão do TRS-Color para o TRS-80 52 
CM II 940 

CMPX 219 

COBOL 1288 -1290 

Cohra, jugo da (programa) 514-520 

CODE 263 

- no Spectrum 2Í2 

- no ZX-81 362, 364 
CODE decla) 553-555 
Codificarão (Cf. Códigos) 

- cm decimal III. 145 
Código dc máquina 

- Assemblcr para o Apple (programa) 238-240 

- Assembler para o MSX (programai 401-405 

- Assembler para o Speclrum 
(programa) 248-252 

- Assemblcr para o TRS-Color 
(programai 296-300 

- Assemblcr para o TRS-80 (programa) 679-680 

- cai rega memo de rotinas 93-94, 973 

- compactador dc programas 
(TRS-Color) 536-540 

- entrada 88-95 

- gravação de rotinas 93 

- indexador de programas 1461-1463 

■ programação com valores negativos 142-145 

- rotina de INKEYS (TK-2000) 499 

- roiinas do sistema operacional 1246-1251 

- roltnas cmbulidas em BASIC 972-973 

MSX 1419-1420 

- rotinas para produção de sons 
(TRS-80) 1032-1033 

- vantagens cm relação ao BASIC 1 
Código p 1450 (Kl. PASCAL) 
Código* 

- ASCII 263. 280. 361-366, 499. 1332 [Kl. 
ASCIt) 



- cifra de Saint-Cyr 890-891 

- cifras de posição 888-891 

- cifras multiplicativas 1093-1095 

- de barras 892 

- dc controle 260, 269. 364 

de arquivos 692 

edição dc programas no MSX 425 

impressoras 652, 1442-1443 

no Apple e no TK -2000 269 

no MSX 367 

no Speclrum 269 

no TRS-80 260 

uso do CHRS 260. 367 
-degenerado 1332 ( V.i. ASCII) 
■ em compressão dc texlos 1332-1339, 
1414-1418, 142B-I435 

- Epson 652. 1442-1443 
-escape 220, 652. 1442-1445 

- gerados pelo joyslick 351 

- gráficos 

impressoras 1442-1445 
no TRS-80 627, 660, 669 

- mnemónicos 196 

- Morse 891-893 

- operacionais (Assembler) 2 
-secretos 888-893.1091-1095 

- teclado (MSX) 499 

- utilidade prática 892 

Coelhos, populações dt- (simulação) 1065-1067 
Coleçoes, organização de (programa) 68-75. 
81-85 

"Cólela de UM" 

- em LOGO 1330 

- rotina no TRS-Color 1251 
< rilisões 

- detecção na tela 715-720 
COLOR 

- no Apple c no TK-2000 116 

- no TRS-Color 118. 393 
Comandos, criação dc 

-noSpectrum 1281-1283 
■ no TRS-Color 597-600 
Comandos múltiplos 

- incidência dc erros 313 

influência sobre velocidade de execução 932 
Combinação 

- bits cm BASIC 1378 

- de blocos gráficos 541-547, 570-575 

- de programas 456-460 
Come-come (programa) 46-52 
Comentários (em programas) 207 
Compactador de programas (TRS-Color) 536-540 
Compararão 

- área dc quadrados (programa) 436-439 

- armazenagem em DATA e 
arquivos 1252-1256 

- BASIC com o PASCAL 1436 

- busca linear com busca binária 1468 

- dados 487 

- de cordões alfanuméricos 241-242 

- discos rígidos c disquetes 1133 

- entre editores de texto 580 

- escalonamento em conversores A D 967 

- PEEK e POINT 947 

- televisor versus monitor 851-854 

- velocidade do BASIC e código de 
máquina 925, 930 

Compatibilidade em PASCAL 1446 
Compiladores 607. 925, 1437 
Complemento binário (programa) 142-145 



Composição musical 1310 (Kl. Música) 

-programa 1398-1400, 1408-1411. 1421-1425 
Compressão 

- códigos de 1332 

-de melodias 1201-1207.1430 

- de programas 536-540 

- dc textos 1332-1339. 1414-1418, 1428-1435 

mclodo chinês 1414. 1416-1418 

- formatos dc dalas 1279 
Comprimento 

- conversão de medidas (programa) 374-380 

- de um registro 1464 

- Tuas magnéticas 876-878 

- variáveis em BASIC 97 
CompuServe 1407 
Conexão 

- compuiador-gravador, cassete S4-J5 

■ controle dc dispositivos externos 1321-1325 

- dircta (modem) 564 

- disquetes ao computador 906-908 

- cnlrc compuladorcs 561-564 

- impressoras ao computador 648-652 

musicais 1306-1310 

- sistemas de reconhecimento da fala 1311 
Conjunlos 192-195 

- bidimensionais 201-207 
Consistência dc dados 1259-1260, 1465 (Kl. 
Verificação) 

Contabilidade 

doinéslica (programa) 134-140 (Kl. 
P/anilha elelrônica) 

- uso de planilhas eletrõnicas 1 1 14-1 1 15 
Contador de programa (UCP) 1 10 
Contagem V. Frequência 

Continua, reconhecimento dc fala 1311 
CONTROL (teclai 260.367.551,624 

- no TK-2000 734-737 
CONTRO L-BREAK (ledas) 16 
CONTROL-C (teclas) 16. 78-79,551 
Controle 

- blocos de (MSX) 179 

- códigos dc 260. 269. 364 

de arquivos 692 

edição de programas no MSX 425 

impressoras 652, 1442-1445 

no Apple e no TK-2000 269 

no MSX 367 

no Spcctrun 269 

no TRS-80 260 

uso do CHRS 260. 367 

- comandos em processadores de temos 1383 

- comandos para impressora 650-652, 
1442-1445 

- dispositivos externos 1321-1325 

- proporcionais 1323 

- robôs para microcomputadores [284-1287 

- sistemas de 1321-1325 

- uso de teclas múhiplas 988-993 
CONTROL-RESET (ledas) 16 
COISTROL-STOP (teclas) 16 
Conversão 

- analógico-digital 291. 967. 1084. 1324. 1470 

- de ASCII para códigos próprios 1332-1335 

- de bases (programa) 35-37, 1281-1283 

- de binário para heiadccimal 56, 60. 406 

- dc BRASLOGO para MLOGO 1319,1344 

- de coordenadas gráficas e de texto 
(TRS-80) 1312-1313 

- de cordões para números 244-245. 900, 1214 
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- de decima! para binário (programa) .18-39 

■ de graus em radianos 334-336 

- de hexadecimal para decima) 1281-1283 

- de LOGO em inglês para ponuguês 1320 

- de medida* (programa) 374-380 

- de minúsculas para maiúsculas 1215 

- de números para cordões 237, 245. 703, 1214 

- de programai do TRS-Color para o 
TRS-80 52 

- formaios de datas 1279-1280 

- notação cientifica (programa) 894-896 

- labcla de notas musicais (MSX) 1015 
Conversor anulógico-digiial 1324 

■ funcionamento 291 

- uso em câmaras de video 1470 

- uso em tabletes digitali/adores 967 
Contentor digilal-amiltigieo 743 

tu ordenadas 

- alteração com POKE (Spectrum) 124S 

- cálculo de irajetórias 677-678 

- gráficas V. Conversão 

- sistema de (TRS-80) 1312-1313 

- transformação para perspectiva 644-647, 
1391-1395 

- transmissão por lableic 966 

- comando do DOS 936 

- tela para impressora 650. 1441-1445 

- tela para memória (TRS-80) 947 , 994 
COPV 650, 917. 1442 

Cordões 99-100 {V.L Funções) 

- armazenagem de tela 947. 994 

- armazenagem cm BASIC 1 101-1 107 

- busca em bancos de dados 1469 

- comparação de 241-242 

- conversão 237, 244-245, 703. 900. 1214 

- definição de funções alfanuméricas 612 

- em LOGO 1344 

■ em variáveis indexadas 194-195 

- íracionamento 242-244 

- função INSTR 624 

- linguagens especiais 1291 

- manipulação 703 
-operações 1214-1215. 1401-1403 

- subcordões, obtenção de 242-245. 1401-1403 

- substituição de subcordões 245-246 

- tamanho 244* 

- técnicas de programação 241-247, 
1214-1215, 1401-1403 

■ uso em manipulação de bits 1 378- 1380 



Correção ortográfica 1382 
Corredor (animação gráfica) 6 

- cuidados no envio de disquetes c fita; 

- eleirónico 561. 564. 1407 
Correspondência (programa) 1384-1385 

cos 

- em LOGO 1344 

- em modelos cinemáticos 771 

- para desenhar circulo 116. 118 

- para desenhar espiral 359 



100 



: 798 



,ii Eii.i/aKlucm cm uma matr 

- detecção na leia 715-720 

- em monitores e TV 853 

- influência no despejo de tela 1444 

- jogo de adivinhação de cores 
(programa) 1139-1140 

no Apple 1250 



r de li 



■ 577 



- programa de tesic para video 1257-1258 

em LOGO 1318 

no planejamento de telas 501-506 
no Spectrum 115. 389-390. 424 
no TRS-Color 87, 118. 393 

- •.iTiiul.kão em video nionoLromãl iai N(KI 

- tabela para o MSX 832 

■ tabela para o TRS-Color 87 

- uso em wireframes 585 



802 



, gráficos 337-340. 354-360 
Cos-seno V. COS 

CP/M (gestão de projetos) 1451-1460 
CPY 220 

Crescimento, simulação do 1061-1068, 1 166-1 167 
Criptografia 1091-1095 

- compressáo dc textos 1338 
-estatística [092-1093 

- programas de computador 1094 

- programas no Spectrum 1248 

- técnicas dc programação 888-893 
Cronometragem 65-66 

- no Spectrum 658-659 
CRT B52 

CSAVE 54. 910-911 
CSAVEM 300 
CUBO 1342 

Cubo (animação) 1097-1098 
Cubo, lei do 1063 

- códigos de controle no MSX 367 
códigos de controle no TRS-80 260 

pisçante tio TRS-80 1413 
posicionamento na tela 146-152 
no TRS-80 1312-1313, 1412-1413 

- teclas no comando HDIT 399-400. 425. 
552, 1329 

- aplicações dc parábolas 1 hipérboles 861-866 

- colocação dc dados em gráficos 481-487 

- cónicas R01-807 , 861-866 

- dc distribuição aleatória 777-780, 1 176-1 177 

- em balisiii 
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ramílias de 801-807. 861-866. I 
■ seno e co-seno 338-339 
Cúspides 1 163-1 164 
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Dados 

- acesso remoto 561-564.1404-1407 

- arquivos em disquete 687-692 (Kl. uri/uivas 

- banco dc 706-71 1. 1464-1469 (Kl. Banca 
de dados) 

- colocação em gráficos 634-639 

curvas (programa) 481-487 
histogramas (programa) 181-187 

- comparação 487 

- consistência dc 1259-1260.1465 

^comandos em BASIC lfil-167 
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em conjuntos 193-194 

rotina com INKEYI e GET 49fr499. 

1259-1260 

- formatação de registros 1464-1466 

- formatação de telas 1396-1397 

- importação e exportação V. Banca de dados 

- padrões de transmissão 1405 

- programação com READ e DATA 128-133 

- programa para organização 68-75, 81-85, 
70) -706 

- redução (sistemas de controle) 1323-1324 
Dado*, jogo de (programa) 79-80. 1234-1240 
Dançarinu (animação gráfica) 6-8 

DATA 128-133 

- comparação com armazenagem em 
arquivos 1252-1256 

- cuidados na programação 860 

- edição de linhas no MSX 191 

- em programação gráfica 131-133 

- organização das linhas em um programa 1 34 

- tipos 128-129 

- tipos de erro 312-313 

■ HO de decimal versus hexadecimal 410 

- uso cm rotinas cm linguagem de 
máquina 1419-1420 

- uso para definição de sprites 188-189 
Data recorder 876-878 

Dalas 

- armazenagem de 1279 

- cálculo em BASIC 840. 1279-1280 

- compressão de formatos 1279 

- distância entre duas dalas 1280 

- em bancos de dados 1465 

- operações 1279-1280 

- ordenação 472 

- rotina de formatação de entrada 1396-1397 

- tipos 840 

- validaçáo 1280. 1401 

DalHogrtfia, Professor de (programa) 253-259. 
276-280. 281-286. 328-333 

- velocidade de aprendizado 257 
Duvsvwheel I margarida ) 523 
dBASE II 1288. 1291 

DDR 1286 
DEC A 199 
I H Cl! 219 
Decimal 

-codificação do binário em (BCD) MI, 145 
( V.t. Códigos) 

■ comparação com hexadecimal cm DATA 410 
são dc hexadecimal 60 

i para binário (programa) 38-39 
> para hexadecimal 
rotina para o Spectrum 1281-1283 

- sislcma de numeração 34 
Decisões 

-cmAssembler 196-200,213-219 

- em BASIC 27. 41-45. 78-80, 222-223. 444, 
625-626. 940 

- em LOGO 1331 

- cm PASCAL 1448 
Declarações de tipo 1438 
DKKEXEC 300 

DEK EN 106, 608-613 

- novas funções matemáticas 1347 
Definição 

- dc funções cm BASIC 608-613 

- dc UDG 406 
DEFSTR 97 
DEFLISR 973 

;. 901 a 1200; vol. 5 - pág '20' » 
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Degenerado, código 1332 
DEL 128] -1283 
DEL ikvl.u 425 
DELETE 9M, 940 
Densidade de gravação V. Gravação 
Depuração de programas V. Erras e Programas 
DESAPAREÇATAT 1329 
Desenho Auxiliado por Computador 
[V.l. Projelo Assistido par Computador) 
■ aplicações 521 

desenho arquitelônico 1367-1371, 1386-1390 
programação em 3-D 581-585, 628-633. 
641-647. 693-700, 1097-1098. 1391-1395 

- programa 414-420, 421-424 

- mouse 1000 

- tablete digilalizador 964-968 
Desenhos V, Gráficos 

Desenhos animados V. Animação gráfica 
Desenvolvimento de linguagens 1346 
Deslocamento da leia (programa em 
Assembler) 213-219 
Despejo de tela 1441 1445 
Desvios condicionais 
-emAssembler 196-200, 213-219 
-em BASIC 41-45,78-80.222-223.444. 
625-626, 940 

- em código de maquina 142-145 

- em LOGO 1331 
Desvios incondicionais 

- em Assembler 196-200,213-219 

- cm BASIC 76-80 (K/, GOTO) 

- em çòdigo de máquina 142-145 
Desvios relativos 142-145 

- de erros 

técnica 311-315. 443 

- figuras na tela 7IS-720 

- teclas múltiplas 988-993 
Determinísticos, modelos 1176 
DEV 220 

MU (variável de sistema no ZX-81) 177 

ihsz >?i 

Diagnostico cm impressoras 645 
Diagnóstico por computador 905 
Diagrama 

- de bloco 222 

- de sintaxe 1446 

- de telas 501-506 
DIALOC 1469 

Dia fio elelrónico (programa) 834-840. 
841-845, 868-871 
Diferenças Finitas 772 
DHkaMade, níveis de 153-160 

- em Avalanche 941-946, 1228-1233. 1241-1245 
DigiPad 964(1'./. Tablete digituiizador) 
Digitação (Kj. Entrada e Erros) 

-erros 44 

- programas longos 71 

- roll-ovei 989 

- velocidade 257. 286 

jogo (programa) 281-286 
Digitalização 291 

- gráfica 964-968 
-som 1081-1085 

DIM 192 

Dimensionamenlo de conjuntos 192 
Dimensões fracionadas 1356-1360, 1372-1377 
Dinâmica 

- simulação de trajetórias 670-678. 766-773, 
781-787. 1161-1163 



DIP 652 

D1R 910. 940. 1217 
Dlrelriz 862 
lli-;i«si-oihlcr 714 
Disco 

- flexível V, Disquetes 

- magnético (Kl. Disquetes) 

comandos em LOGO 1329 
como ulili/ar 906-91 1 
disco rígido ou fixo 879, 1133 
programa editor (TRS-Color) 1216-1220 
tipos de disposilivos 878 
utilização de arquivos 687-692, 1252-1256 
Disco voador (animação gráfica) 5 
Dispam, hotão de V. Botão de disparo 
Disparo de um projétil (simulação) 783 
Disquetes 878 

- acionadores (Apple) 906-907 

- arquivos de dados 687-692 

- como utilizar 906-911 

- compiírLiçáo com discos rígidos 1 1 33 

- conexão ao computador 906-908 

- cuidados 488 

- formatação 908 

- funções do DOS 936 

- rolinadc armazenagem de telas (TRS-80) 994 
Distância 

- conversão dc medidas 374-380 

- emre dois ponlos 807 

- entre duas datas 1280 

- simulação de alavancas e polias 981-987 
Distribuição de probabilidades 777-780. 
1176-1177. 1181-1185 

- bimodal 1454 
binomial 780 

- exponencial 1180 

-normal 779-78(1, 1179-1180. 1181-1185 
em tempos PERT 1454 

-uniforme 1180 
Divertimentos matemáticos 1301-1305 
DIVIDE 1343 
Divisão em binário 37-39 
DJNZ 198. 215. 558 
Documentação de programas 207 
Doméstica, contabilidade V. Contabilidade 
DOS 879-880 

-Apple 179 

- funções 936 

- programa assistente 936-940 

- uso do CHRS 269, 692, 1254-1256 
Dowuloading 1404 

Dragão (.imiiKiçãol 474-477 
DKAW 1(14. 113 

- no Apple II 116. 237. 318. 343-344 
no desenho dc letras 236-237 

- no MSX 234-235 
-noSpcctrum 114,232-233,1248 
-noTK-2000 116,237 . 318.343-344 

- no TRS-Color 234-235 
Drivc V. Disco 
DSKIMT 908 

- de memória 60 

- de leia 1441-1445 
Duodecimal, sistema de numeração 35 
Duple\ 1406 

Duplicação de linhas 552 
Duração 

- atividades dc um projeto 1454 

- controle de noias musicais 726. 745 



- conirole em efeilos sot 
Dutos circulares 807 




Economia de memória 269. 899. 932-933 

- no TRS-Color (programa) 536-540 
EDFIG 1427 

Edição 

- área dc (memória) 175 

- dc figuras 1427 

- de programas 412 

em PASCAL 1438-1439 

- em tela completa 1313 

- linhas DATA no MSX 191 

no MSX 425 

no TRS-Color e no TRS-80 399-400 
no ZX-81 552 

- textos (aplicativo) 576-580. 586-591. 614-620 
EDIT 

cm LOGO 1329 

- no MSX 425 

- no TRS-Color e no TRS-80 399-400 

- no ZX-81 552 

Editor I V.l. Processamento de textos) 

- de discos (programa) 1216-1220 

- de lexios (programa) 576-580, 586-591. 
614-620 

ampliador e redutor (programa) 1049-1055 
para o MSX 811-814 
para o TK-2OO0 (programa) 846-850 
programa 1367-137], 1386-1390 
Projeto Assistido por Computador 
(programa) 1021-1026 

- musical (programa) 1398-1400. 1408-1411. 
1421-1425 

- spriles 811-814. 1427 
Educação 

- programa para alfabetização 390-391 

- programa para datilografia 253-259, 
276-280. 281-286, 328-333 

Efeito gravilacional (simulação) 766-773. 781-787 
Efeilos sonoros 168-173,721-727 
i Kl. Música) 

- com POKE 265 

- compressão dc melodias 1201-1207 

- controle de duração 1027 

- em Avalanche 788-795 

- instruções no MSX 792 

- no Apple 266, 712-714. 1027 

- no MSX 170-172 
-noSpectrum 168-170,556-560 
-noTK-2000 168-170,712-714, 1027 

' - no TRS-Color 172-173 

- no TRS-80 170. 1032-1033 

- explosões 1032 

- produção de efeitos naiurais 560 

- programação de acordes 1OO9-I015 

- programa genérico para o MSX 171 

- ledado musical 721-727.741-747 

Eleitos visuais ( \ .t Animação gráfica e Gráficos) 

- explosões 121-127 

- incêndios 121-127 

- listras multicores (Specirum) 867 
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Eletrónicos, circuitos V. Circuitos elelrônicos 
Elevador hidráulico (simulação) 986-987 
ELIMINE 1330 
ELIMINEARQ 1330 

E-L1NE (variável de sistema no ZX-81) 177 

- desenho 340 

■ no cálculo de órbitas 781-787 
ELSE 45 

- em PASCAL 1448 

- em programação estruturada 221-225 
Lm baralha mento, técnica de 426-433 
EmbnUel 563, 1406 
Encadeamento de programas 456-460 
END 1319 

- em Assembler no Spectrum 252 

- em PASCAL 1448 
Endereçamento 196-200 

■ com PEEK e POKE 261-268 [V.t. PEEK e 
POKE) 

-efetivo 793 

- no 6502 198 

- no 6809 199. 793 

- no Z-80 196 
Endereços 

- controle de vídeo no Apple 503 

- identificação de teclas no TRS-80 1413 

- início de programas BASIC 513 

- notação em código de máquina 144 

- organização da memória 174-180 

- portas de entrada c saída 1286 

- tabela do teclado do TRS-Color 267 

- variáveis de sistema no Spectrum 1340 
ENTER (leda) 364 

Entrada 

- área de (memória) 180 
-censura de I2S9-I260 

- código de máquina 88-95 

- de dados 

comandos em BASIC 161-167 

em conjuntos 193-194 

GET 164, 496-199.1259-1260 

INKEYS 28-29. 164.496-499. 1259-1260 

INPUT 164 

- formatação de telas 1396-1397 

■ formatos 162. 1396-1397 

- senhas 166-167. 888-893, 1091-1095. 1260 
Envoltórias, curvas 1161-1167 

EOF 690. 692. 1255 
EOL 1251 
EPROM 911 

Epson, códigos de 652. 1442-1443 
Equações 

- diferenças finitas 772 

- lineares 1304-1305 
ERASE 1330 
ERASEFILE 1330 
ERL 444 

ERR 444 

Errata (programa Assembler do 
TRS-Color) 794 
ERROR 444 

- arredondamento de números 899 

- Assembler para o TRS-Color 296-300 

- cálculo de raiz quadrada 440 

- chamadas recursivas de sub-rotinas 1225 

- depuração de programas -fonte em 
Assembler 251. 402 

- depuração de programas longos 240, 252, 



300, 403 

- desenhos fora da leia 31. 632 

- digitação 44 

- dimensionamento excedido 193 

- (unções dc localização 444 

- laços múltiplos 206 

- localização e depuração no Spectrum 
(programa) 387 

- mensagens 311. 441-446 

- nomes de variáveis em IF...THEN 141 

- números de linhas inexistentes 80 

- ON.. .ERROR 444.940 

- operação dc canelas ópticas 929 

- operações numéricas AND, OR e NOT 305 

- prevenção em gravações em fita cassele 54 

- prevenção cm programas BASIC 441-445 

- programação com READ e DATA 128-129 

- tabela de códigos de erro em BASIC 312 

- técnicas de depuração 240, 251-252, 300, 
311-315, 402-403 

- técnicas dc detecção 31 1-315, 443 

- técnicas de indicação 444-446 
ERR-SP (variável de sistema no ZX-81) 177 
Escada 862 

Escala cromática 742 
Escalamend) 486 (V.t. Gráficos) 

- gráfico 116, 183, 318 

- programa de ampliação gráfica 1049-1055 
Escalas musicais 722-724, 742 

ESCAPE (tecla) 442 

Escape, sequências de 220, 625, 1442-1445 

Escolhas múlliplas 224 {V.t. ON...GOTO e 

ON...GOSUB) 

Escore V. Placar 

ESCREVA 1342 

Espaçamento 313, 932, 1214 

Espaço de memória 174-180 

Espaço de trabalho V. Areas da memória 

Espaços 

- efeilo sobre velocidade de execução 932 

- remoção (rotina) 1214 
Espalhamento (técnica de ordenação) 739 
Espectral, análise V. Análise espectral 
Espiral 

- desenho com o uso dc COS 359 
Egpirty fn (programa) 360 
Esquema (banco de dados) 1464 
Estação Espacial (programa) IOI-I08 
Estatística 

- amostragem e previsão 1127-1128 

- aplicações 

em criptografia 1092-1093 

em programação de jogos 1349 

na compressão de lextos' 1335-1338. 

1414-1418, 1428-1435 

- cálculo de lempos em projetos 1455 

- modelos 1176-1180, 1181-1185 
l stot:i>(icos. modelos 1176 

Esi rapes 652 

Eslralégia ( V.t. Jogos e Simulação) 
-jogos 756-760,796-800, 1348-1355 
bar 1181-1185 

guerra 1016-1020, 1034-1048, 1069-1075, 
1086-1090 

mina de ouro 662-668, 681-686 
Estruturadas, linguagens 1291. 1436 
(V.t. Linguagens de programação) 
Estruturas de programação 221-225 
EVAL 1291 
Eventos 774-780 



Evolução das linguagens 1290 
EXEC 94, 1250 
Execução de programas 

- auio-execução 550 

- efeito da REM e dos espaços na 
velocidade 932 

- em BASIC 11, 940 

- em código de máquina 94-95 
EXECUTE 1291 

EXG 200 

Exibição, área de (memória) 175 
Explosões 

- efeitos sonoros no TRS-80 1032 

- gráficos de segmentos 639 

- programação gráfica 121-127 
Expoente (notação cientifica) 897 
Exponencial, alisamento 1349 
Exponencial, distribuição 1180 
Expressões aritméticas (V.i. LET) 

-em LOGO 1342-1344 

- uso de expressões lógicas 1312 

- uso de funções 434-440 
Expressões lógicas 302 

- com números 304-305 

- uso em espri-s.sÕL". rii.iic málicas 1312 
Extensíveis, linguagens V. Funcionais, linguagens 




Faixas de números aleatórios 16 
Fala 

- reconhecimento da 1311 

- sintetizadores da 446-448, 963 
Famílias 

- de curvas 801-807, 861-866. 1161-1167 

- de linguagens I2B8-I29I 

- de sprites 1427 

Fatorial (programa) 1223-1225 
FFT 1083 

Fibonacci. números de 1067-1068 
Fibras ópticas 564 

- simulação 1 164 

Figuras geométricas 801-807,861-866, 1194-1199 

FILES 910-911 

Filtro anti-reflexivo 864 

FILVRM 1144 

FIM 1319 

Fim de arquivo (EOF) 1255 
FIRE (tecla) 498 
FIRST 1345-1346 

- simulação de mecânica 981-987 

- simulação de movimentos 670-678, 
766-773, 781-787 

Fita 

- cassete 53-55. 876-878 

arquivos em 690 
cuidados 488 

gravação de blocos gráficos 489-495, 
575-576 

gravação de dados (Apple c TK-2000) 1254 
rotina de armazenagem de leias 
(TRS-80) 994 

utilização de arquivos 1252-1256 
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- de impressão 645 

- magnética 

tipos 876-878 
Flag bils 1380 
FLASH 47. 716 

- com impressora 650 

- no Apple 390, 506 

- no Spectrum 116. 269. 304 
Flippy 911 

Floppy I . Disquetes 
Flu\i)|>rama 222 

- PERT 1451 

FN 608-613 (Kl. Funções) 
Focos 1163-1164 

Fogueie, dispam e animação de 28-33 
Folha de cálculo V. Planilha eleirõnica 
Fonles. criação de 921-925 (V.l. Caracteres) 
Força, jogo da 701-705,728-733 
Forças mecânicas 981-987 
FOR... DO 1447-1448 
FORMA T 908 
Formatação 

- bancos de dados 1464 
-datas 1279-1280 

- discos magnélicos 879 

- disquetes 908 

noTRS-Color 1216-1220 

- em processadores de textos 614-620, 1382 

- telas de entrada 1396-1397 

- telas dc texto 501-506 

- usando o PR1NT US1NG 500, 1440 

- valores numéricos 899-900 
Formato 

- de datas 1279 

- dc entrada 162 

- padronizado de dados (SDF) 1.467 
Formulário continuo 524 
FOR...NEXT 21-27 

- em programarão estruturada 225 

- entrelaçados 206 

- velocidade de execução 932 
FORTH 1288-1290 
FORTRAN 1288-1290 
FORWARD 1287, 1318 
Fósforo 

- uso em vídeos 854 
Fourier, transformada de I0N3 
FPBASIC 179 

Fraçòes em hinário 38 
Fraclais 1356-1360. 1372-1377 
FRAMES 1340 
Fraudes 564 

- em redes de computadores 1407 

- uso de códigos 892 

- vantagens dos códigos 1094 
FRE 212, 656 

FRED 1288 
Frequência 

- análise sonora 1081-1085 

análise criptográfica 1092-1093 
na compressão de textos 1335-1338, 
1414-1418 
-palavras 1416-1418 

- som 722-724 
Full-duplex 1406 
Funcionais, linguagens 1290 



- alfanuméricas V. /NSTR, LEN, LEFTS, 
MIDS, RIGHTS, STRS. VAL etc. 

- de localização de erros 444 

- de um banco de dados 464 

- DOS 936 

- elaboração de gráficos (programa) 481-487 

- fórmula de escalamento 486 

- funções definidas pelo usuário 608-613 

- 1NSTR 624 

- manipulação de cordões 612,624, 1214. 1402 

em LOGO 1345-1346 

- matemáticas 434 440, 608-613. 1347 

em LOGO 1344 
gráficos 482 

influência na velocidade de execução 933 
raiz quadrada 439-440 
tr.gonomét ricas 334-340. 354-360 

- remoção de espaços em um cordão 1213 
teclas (MSX) 621-626 




Gabarito de saíd» 500 
Galileu 766 
Gaussiana, curva 1454 
Generalizáveis, linguagens 1290 
Geometria 

- aplicações da tartaruga (LOGO) 1287 

- curvas cónicas 801-807, 861-866 

- dimensões fracionadas 1356-1360, 1372-1377 

- gráficos tridimensionais 

V, Tridimensionais, gráficos 

- sólidos de revolução 1194-1199 
Gerações 1065-1067 

Gerenciamento de bancos de dados 1464-1469 
(■estão de projetos (programa) 1451-1460 
GET 

- com joysticks 290 

- entrada de dados 496-499, 1259-1260 

no Apple e no TK-2000 164 

- uso em gráficos 107, 352, 478-480. 535-536 

- uso cm programa dc desenho livre 
na tela 164-165 

- uso em programa de senhas de acesso 166-167 
Globo (desenho) 693-700 

Golfe, campo de (desenho) 233-234 
GOSUB 79-80 (K.í. ON...GOSUB) 
-com sprites no MSX 191 

- diminuição de velocidade de execução 931 
GOTO 27. 76-80 (V.t, ON...GOTO) 

- diminuição de velocidade de execução 931 

- endereçamento variável (Sinclair) 77 
GR 116 

Gradeados 

- definição 582 

Gráficos (Kf. Caracteres, CIRCLE. DRAW, 
LINE, PLOT, PSET, SET ele.) 

- abstratos 358-360 

- alça de mira 348-353 

- aleatórios 23-25 

- ampliação 1049-1055 

- animação V. Animação gráfica 

- arcos 232 

- barras 3-D 637-638 



- bicicleta (animação) 478-480 

- blocos gráficos 341-347, 406-413 

criação 489-495, 507-512,526-535, 

541-547, 570-575 

em Avalanche 815-820 

no Spectrum 122 

no TRS-80 627. 660, 669 

programa gerador em Assembler 565-569 

- borda decoraiiva (programa) 245-246 

- bússola (desenho) 335-337 

- caleidoscópio (programa) 25-26 

- campo de golfe 233-234 
-carro 389-390 

-casa 131-133 

- castelo 133 

- círculos 15, 1 19, 234-235. 337. 339-340. 865 

no Apple e no TK-2000 117-118 

no MSX 120, 234-235 

no Spectrum 115, 232 

no TRS-Color 118-119,234-235 

no ZX-81 1 16 

- comandos em LOGO 1318-1320, 1326. 
1426-1427 

- combinação de blocos gráficos 541-547, 
570-575 

- com POKE 265 

- cópias em impressoras 521-525. 1441-1445 

- corredor (animação) 6 

- criação de blocos gráficos 489-49S. 
307-512, 526-535, 541-547, 570-375 

- criação de sprites 808-S14 

cónicas 801-807. 861-866 
co-seno 338-339 
cúspides 1 161-1 167 
distribuições aleatórias 777-780 
envoltórias 1 161-1 167 
seno 338-339 
-cúspides II6I-II67 

- dançarino (animação) 6-8 

- de segmentos 

explosões 639 

- despejo de tela na impressora 1441-1445 

- detecção de pomos na tela 715-720 

- disco voador 5 

- dragão (animação) 474-477 

- editor gráfico 

ampliador 1049-1055 
para o MSX 811-814 
para o TK-2000 846-850 
programa 1367-1371, 1386-1390 

explosões 121-127 
incêndios 121-127 
listras multicores (Spectrum) 867 

- elaboração de curvas (programa) 481-487 

- elaboração de histogramas 634-639 

programa 181-187 

- elipse 340 

- em impressoras 652. 1441-1445 

- entrada de caracteres pelo teclado 1413 

- erros de programação 31 

- escada escorregando (animação) 862 
-escalamento 116. 183. 318, 486. 1049-1055 

- espiral 359 

- espirógrafo (programa) 360 

- figuras geométricas 801-807. 861-866 

- figuras tridimensionais V. Tridimensionais, 
gráficos 

- fractais 1356-1360. 1372-1377 
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- gerador gráfico em Assembler 565-569 

■ gráficos de segmentos 634-639 

- grau de resolução 1 14, 120 

TV versus monitor 8SI-8Í4 

- gravação em fila cassete 575-576 

- helicóptero 10 
-impressão 1441-1445 

- monstro (animação no ZX-81) 319-320 

- motocicleta (animação no Apple) 316-318 

- padrões naturais 1161-1167 

- paginação gráfica 1096-1100, 1141-1145 

■ perspectiva 628-633.641-647.693-700, 
1391-1395 

- polígonos 865 

- ponte (programa) 131-132 

- Pôr-do-sol (programa) 25-26 

- processamento de imagens cm 
robôs 1286. 1461 

- programação de caracteres no 
MSX 1361-1366 

- programação de sprites no MSX 188-191 

■ programação em 3-D 581-585. 628-633, 
641-647. 693-700 

-programação, técnicas de R6-87, 113-120. 
121-127. 232-237. 388-393. 406-413. 639 

- programa de criação de sprites 189 

- programa de demonstração (TRS-Color) 87 

- programa de desenho livre I64-16Í, 846-850 

- programa de testes para video 1257-1258 

- programa para desenho em tela 414-420, 
421-424, 846-850, 1367-1371, 1386-1390 

- Projeto Assistido por Computador 
(programa) 1021-1026 

-relógio 354-358 

no Apple e no TK-2000 116 

no MSX 119 

no TRS-Color 118 

- rotinas do sistema operacional 

no Apple 1249 

no MSX 1249 
sapo (animação) 344-347 
stmetria e assimetria 1372-1374 
simulação de alta resolução no ZX-81 320 
simulação de sprites no TRS-80 627, 660, 669 
sombreamento 115. 1394-1395 
sprites 107. 1S8-191, 808-814. 1132, 1426-1427 

no TRS-80 627, 660, 669 
submarino (animação no Apple! 316-318 
tabelas de forma 237 
tabletes digitalizadores 964-968 
tanque de guerra (animação) 342-347 
textos em tela de alta resolução 
(Apple) 534-535 



- ÓptlCi 



926 



o de funções trigonométricas 334-340. 
354-360 
SIN c COS 337-340, 354-360 
-uso do comando PCOPY (TRS-Color) 596 

- uso do GET 107 

- uso do OPEN "GRP:" no MSX 594 

- uso do PUT 104, 107 
Grafismos 1197 

Graib., impressora 1442 1443 

GraíPad 964 (K/. Tablete digitalizador) 

GRAPH (tecla) 

- no MSX 553-555 

- no Spectrum 640 

- no TK-2000 734-737 



- conversão em radianos 334-336 
Gravação 

- agenda eletrônica 868-871 

- análise sonora 1082 

- blocos gráficos 489-195. 575-576 

- dados em fita cassete (Apple e TK-2000) 1254 

- densidade de 880 

- rotinas em código de máquina 93 
Gravador cassete 53-55, 876-878 

- arquivos cm 690 

- conexão ao computador 54-55 

- porta de saida para efeitos sonoros 1032 

- rotinas de comunicação 

no MSX 1249 

no TRS-Color 1250 

- uso para produção de efeitos sonoros 170 
GRAVETUDO 1330 

Gravidade (simulação) 766-773. 781-787 
"Greensleeves" (melodia) 788-795. 1014 
Gregoriana, data 840 
Guerra, jogos de 1016-1020, 1034-1048, 
1069-1075, 1086-1090 



Half-duplex 1406 
HALT 5J6 

Hanúi, As Torres de (programa) 1226-1227 
Hardcopy 521, 1442-1445 
Harmonia musical 1009 
HCOLOR 116 

Helicóptero (animação gráfica) 10 

Mero I (robô) 1285 

Heurística 905, 1040, 1086-1087 

HEXS 58 

Hexadecimal 

aritmética 56-60 

ciiinpariiçãii com decimal mi DATA 410 
conversão do binário 406 
conversão para binário (programa) 56-60 
conversão para decimal 60 

Spectrum 1281-1283 
necessidade para programação 60 
notação de endereços 144 
notação cm BASIC 58 

negativos 142-145 
de numeração 56-57 
HGR 116 
HGK2 116 
H1DETIIRTLE 1329 
Hidráulica 986-987 
Hifenaçâo automática 580, 1383 
HIMEM 180 

Hipérbole 801-807,861-866 
Histogramas 181-187.634-639 
HLIN 116 

HOME 12. 116. 1318 

- no MSX 367 
Horizontal, movimento 766-773 
Horóscopo (programa) 1261-1270 
Holl-OGO 1317, 1426-1427 
HPLOT 116 

HTAB 10. 503 

- com impressora 650 




late (piograma) 1234-1240 
Icónicos, modelos 1176 
IEE-488 525 
IF...THEN 27. 41-45 

- combinação múltipla 44 

- efeitos sobre velocidade de execução 932 

- em LOGO 1331 

- em PASCAL 1448 

- em programação estruturada 222-223 

- técnicas para economizar memória 141 

- uso do ELSE 45 
Imagens 

- armazenagem de 968 

- processamento de 1286, 1470 
Imperativas, linguagens 1290 
Impressão 

- cópia de gráficos na impressora 1441-1445 

- de bancos de dados 83 

- tela (TRS-80) 947 . 994 
Impressoras 

- acentuação em português 280 

- Alice 1442-1443 

- auioteste 649 

- buffer 525 

- códigos de controle 652 

- códigos gráficos 1442-1443 

- conexão ao computador 648-652 

- elaboração de cartazes c manchetes 917 

- margarida 523.1385 

- matriciais 522, 1385 

- programação 1442-1443 

- programação interna 652 

- sclcção 521-525 

- sclcção para processamento dc textos 1385 

- térmicas 524 

- tipos 522-524 

- utilização 648-652. 
INC 214. 216 

Incêndios (programação gráfica) 121-127 
Indexação 

- de bancos dc dados 1464 

- de programas 1461-1463 

- dc variáveis 192-195 . 201-207. 1 101- 1 107 

- em código de máquina 196-200 

- registros da UCP 110 

- sistema (programa) 221-225 
Indicadores 110. 175 



rcíõo 



1291 



Infinitesimal, cálculo V. Cálculo 
Infixa, notação 1343 

Informação de canal, área de (memória) 175 
IN1R 217 
IN1T 908 

INK 47. 113, 115, 640, 716 

- por código de controle 269 
IÍNKEYS 28-29 

- com joysticks 290 

- entrada de dados 164 , 496-499, 1259-1260 
■ no TRS-80 1413 

- rotina dc entrada dc dados 1259-1260 

- simulação 

no Apple 167, 266 

no TK-2000 167. 496-499 



Vol. 1 - pág. 1 a 300; vol. 2 - pág. 301 a 600; vol. 3 - pág. 601 a 900; vai. 4 - pãg. 901 a 1200; vol, 5 — pág. 1201 a 1500. 



IIIIIIIIIIIHHHHHHHnHHIIIIIIIIIII 



- uso em programa de desenho livre 

na leia 164- 165 
• uso em programa dc senhas de acesso 161 
1NP 1286 

INPUT 12. 14, 161-167 
INPUTS 62-1 
INPUT* 691-692 
INS (tecla) 425 

Inserção (técnica de ordenação) 739-740 
INSTR 245.624, 1214 (Kí. Cordões) 
Instrumentos musicais 1306-1310 
( Kl. Música) 
INT 1 1 



I LOGO 1344 



INTEGE8 1438 
INTEGER BASIC 179 
INTEIRO 1344 
Inteiros II, 13. 932. 1344 

■ funções 1347 

• programa 1222 1223 
Inteligência Artiririal IW, 905. 11151116 
i.'. ■ içi ( ■ cm i '. de guerra 1086- 1087 

- linguagens 1291 

Inli ■ (Kl lnlerface\) 

llll tilllWHllllHl 1404-1407 

'- conexão compuiadot simeliiadot 1 306- 1 j 

- conirole por computador 1322 

- discos magnéticos 880 

- homem máquina 1324 

- padrões 525 

- para impressoras 525 
1470 



- no 6502 198 

- no 6809 200 
JOGOS 

- aplicações da digitalização de sons 1084 

- aplicações dc reconhecimento da fala 131 1 

- programas 

A Aranha Marciana 955-960. 974-980 
Adivinhação de Palavras 701-705. 728-733 
A Raposa e os Gansos 872-875,901-905. 
948-954 

Avalanche 748-755, 761-765, 788-795. 
815-820. 824-833. 995-999. 1001-1008. 
1028-1031. 1056-1060, 1076-1080, 
1116-1120. 1208-1213, 1291-1300 
Bandido de um braço só V. Caça-niqueis 
Caça-niqueis 43-45. 855-860, 881-887 
Campo Minado 61-67 
Capa e Espada 1016-1020,1034-1048, 

1069-1075, 1086-1090 
Come-come 46-52 
da Cobra 514-520 
da Vida 961-963 
de adivinhação 12-13,42-43 
de avenlura V. Aventura, jogo de 
de blefe 1348-1355 
de dados 79-80, 1234-1240 
dc guerra 1016-1020, 1034-1048, 
1069-1075. 1086-1090 
Estação Espacial 101-108 
Labirinto 46-52. 153-160, 170-172 
Mõdulo Lunar 821-823 
Otelo 756-760. 796-800 
PacMan V. Come-come 
Papel, Pedra. Tesoura 1348-1355 
Pintor Aloprado 1277-1278 
Senha 1139-1140 



- no TRS-Color 352-353, 1251 

- no ZX-81 350 

- operação 290 

- programação 348-353, 368-373 

- tipos 288 
JOYSTK 353 
JRNZ 197 
JSR 200 

Juliana, data 840. 1280 
Juros, cálculo de (função) 612 



DC 



KBIN 989-990 
KBOUT 989-990 
KEY 

- programação 622-623 

- utilização em jogos 655 
KEY LIST 622 

KEY OFF 351. 622 
KEY ON 622 
KILL 911. 940 
KoalaPad 965 



L 



Interpretadores 607. 930, 1247-1248. 1437 


Serra Pelada 662-668. 681-686 




Interrupção 


Torres de Hanói, As 1226-1227 


Labirinto (programa) 46-52. 153-160. 170-172 


- dc um programa BASIC 16 


técnicas de programação 




- programação de um relógio 658-659 


adaptação de jogos em cores BOO 


- de corrente 525 


- teclado 988 


cartas dc baralho 426-433 


- em BASIC 21-27, 26 


Inversão de vídeo 1249 


compressão de textos 1332-1339, 


- em planilhas eletrõnicas 1156 


- caracteres no Spectrum 640, 661 


1414-1418. 1428-1435 


- múltiplos 206 


■ gráfica 320 


contagem de pontos 47-52.61-67 


LAN 1200, 1407 


- rotina para o TRS-Color 597-600 


controle de movimentos 28-33 


Lápis óptico K Canetas ópticas 


- uso em jogos 800 


distribuições dc probabilidade 1177 


Largura de faixa 854 


IN VERSE 390 


escolha de ledas de controle 31 


Laser, efeitos sonoras (Apple c TK-2000) 1027 


com impressora 650 


estalistica 1349 


LAST 1345-1346 


no Apple 1249 


estratégia 756-760. 796-800. 1348-135 


Layoul do arquivo 75 


- no Spectrum 640, 661 


explosões e incêndios 121-127 


LBEQ 200 


- rotina para o TRS-Color 597-600 


joyslicks 348-353. 368-373 


LD 197, 216 


INY 220 


labirintos aleatórios 153-160 


LDA 196 


Irregularidade, matemática da 1356-1360, 


marcação de recordes 64-66 


- no 6502 198. 220 


1372-1377 


níveis de dificuldade 153-160 


- no 6809 200, 219 


Isométrica, prnjeção 628-633,641-647 


ruídos e explosões 168-173 


LDB 219 


llaulec LOGO 1317 


spriles em Assemblcr 818-820 


LDDE 216 




teclas programáveis 655 


LDDR 216 




uso de matrizes 798 


LDIR 214 




uso do 1NKEYS 28-33 


LD1RMV 1144 




Jornalismo eletrõnlco 564 


LDX 219 




Joyslicks 287-291 


LDY 220 




- analógico 289 


LEFT 1287, 1318 




- aplicações 288, 351-352 


LEFTS 244. 703. 1214 




- códigos gerados 351 


Lego 1287, 1325 




- funcionamento 289 


LEN 244, 703. 1214 


Janelas de texto 580 


. - no Apple 291 


LET 13, 96, 933 


Jaque para gravadores 54-35 


- no MSX 350-351 


- com operadores relacionais 302 


Jipe (programa) 1 19-120 


- no Spectrum 349 


- eliminação para encurtar programas 141 


JKL (teclas) 1442 


- no TK-2000 351-352 


- em comparação com DATA 128 
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Leira» {V.i. Caracteres) 

- ampliadas (programa» 913420, 921-925 

- desenho com DRAW 236-237 

■ frequência (programai 1414 

- rotina de desenho (TRS-Color) 760 
Ulreiros (programa) 913-920, 921-925 
I.IFO 110 

Limites de crescimento 1063 
' - d e valores 443 
LINE 

■ no MSX 119. 234-235 

- no TRS-Color 118, 234-235 
Linear, pesquisa 1468 
UNEFEED 367 

LINE INPUT 163 

- simulação com 1NKEYS 1259-1260 
Linguagem Asscmhler V. Assembler 
Linguagem macro musical 

- no MSX 170 

-no TRS-Color 172-173 
1 inguagens de programação 1288-1291 

- classificação 1290-1291 

- compiladores 925, 1437 
( V. I. Compiladores) 

- desenvolvimento 1346 

-LOGO 1288-1290, 1314-1320. 1326-1331, 
1341-1346, 1426-1427 

- para bancos de dados 1291, 1469 

- PASCAL 1288-1290. 1436-1439, 1446-1451 
LINHAS 

- comandos múltiplos 44 

- duplicação 552 

- no Spcctrum 661 

- numeração 16 
LISA 1000, 1291 

LISP 1288-1290. 1291, 1316, 1436 
LIST 513, 552. 650-652 

- lisiagem de teclas de função 622 
Lisla de opções V. Menu 

Lista* 1 346 

lista telefónica (programa)' 129 
Listrada, (ela (Spcctrum) 867 
Livro-códig» 1094-1095 
Livro elelrônico 994 
LLIST 513. 650-652 
LOA D 910-911, 1255 

- com gravador cassete 53-55 

- efeilo sobre relógio interno 659 
-em LOGO 1330 

Localização do cursor 1412-1413 
LOCATE 10, 150. 503. 553-555, 1366 
LOCK 911.940 

Lógica de programação 41-45. 76-80, 301-305, 
1291 

Lógico, cálculo V. Calculo 

LOGO 1288-1290, 1314-1320, 1326-1331, 

1341-1346. 1426-1427 

- arquivos 1329-1330 

- atribuição 1345-1346 

- autocarregamento de programas 549-550 
-CATALOC 1330 

- círculos (desenho) 1329 

- "coleta de lixo" 1330 

- conversão do inglês para português 1320 

- conversão entre dialelos 1319-1344 

- expressões aritméticas 1342-1344 

- interpretador (Apple) 1317 

- micromundo 1342 

- no controle de robôs 1287 

- operações com cadeias 1344-1346 



-procedimentos 1287,1319-1320 

- sprites 1426-1427 

- uso do COS 1344 
LOMEM 180 

Ltfcrlá esportiva (simulação) 1 121-1 127 
IPRINT 650-652, 917 



■mb 

MA 88, 180 
Macintosh 1000, 1291 
Macro musical, linguagem 

- no MSX 170 

- no TRS-Color 172-173 
Maiúsculas 

- obtenção com POKE (Specirum) 265 

- Professor de D.il iKiw.r liM.i (programa) 281-286 

- uso em comandos BASIC 23 
MA KL 1345-1346 
Maladiretu 1384-1385 

Malha 1". Laços 

Manchetes (programa) 913-920.921-925 
Manipulação 

- de bits 1335, 1378-1380 

usodoCHRS 1378 

- de cordões 703 
Mantissa 894 

Mapa de memória I'. Memória 
MapcamenU) 

-de bits 1380 
-jogos de guerra 1034-1040 
Mãquina-p 1450 

"Marcha dos Santos, A" (melodia) 1010 
Margarida, impressora 523 
Máscara de tento 614-615 
Mascarumento 1379-1385 
Maslermind (programa) 1139-1140 
Matemática 

- dimensões fracionadas 1356-1360. 1372-1377 

- divertimentos matemáticos 1301-1305 
• em LOGO 1342-1344 

- fraciais 1356-1360. 1372-1377 
-funções 434-440.608-613, 1344. 1347 

- operações matemáticas 1 . ía/w.s.wi^ 
aritméticas. Expressões lógicas, LET 

e Operações 

Matriciais, impressoras 522 

- uso com gráficos 1441 
Matriz, gerador de (teclado) 988 
Matrizes 201-207. 1303-1304 

- aplicações 207 

- aplicações em jogos de tabuleiro 798 

- área de (memória) 

MSX 179 

- armazenagem 1101-1107 

- programa para cálculo de planilhas 1 108- 1 1 1 5 

- velocidade de execução 932 
MAXFILES (variável dc sistema do MSX) 179 
Mecânica (simulação) 981-987 

Meccano 1287. 1325 

Medidas, conversão de (programa) 374-380 
Melodias V. Música 
MEM 212 




BASIC 894-900 



de programas 513. 1101-1107 
de tela (TRS-80) 947, 994 
de variáveis 1215 

- auxiliar 876-880 ( V.t. Disco e Fita) 

- cartuchos 91 1 

- cuidados com fitas e discos 488 

- discos rígidos 1133 

- disponível em BASIC 212 

- economia 269 

armazenagem de números em BASIC 899 
e a velocidade dc execução 932-933 
no TRS-Color (programa) 536-540 

- LPROM 911 

- exame com PEEK 262. 264 

- Hl MEM e LOMEM 180 

- intermediária 175 {V.t, Buf/er) 

■ limitações em páginas gráficas 1141 

- listagem do Avalanche 1291-1300 

- organização 174-180 

dc programas BASIC 513 
em LOGO 1330 
no Apple 180-181 
no MSX 179, 808 
no Specirum 175-177 
no TK-2000 180-181 
no TRS-Color 177-178 
no TRS-80 178-179. 1412 
no ZX-81 177 

- páginas gráficas 1096-1100. 1141-1145 

- ponteiros e indicadores 175 

- RAM 174-175 

- reserva no Spcctrum 176 

- ROM 174-175 

endereços no Apple 180 
endereços no TK-2000 ISO 
no MSX 179. 531-533 
no Spectrum 175 
no TRS-Color 178 
no TRS-80 178 

- virtual 1385 
Mensagens 

- codificação de 888-893 

- de erro 311, 441-446 

- dc prontidão 162 

- desenho com DRAW 236-237 
-secretas 1091-1095 (Kr. Senhas) 

- úpos de textos em jogos de aventura 1430 

- uso em programas 441-443 
Menu 441-443, 504-506, 623-624 

- assistente para o DOS (programa) 936-940 

- uso de canelas ópticas 926 

- uso de subcordões 1402 
MERCÊ 456-460 

- uso na proteção de programas 551 
MESA 1290 

Mesa digitalizadora V, Tablete digilalizu/ior 

Método chinês 1414 [V.t. Compressão) 

Métricas, conversões (programa) 374-380 

Microdisquele 880 

Microdrives 175, 877. 908 

Micromundo 1342 

Míitíi processadores 109-1 12 

- 6502 112. 199. 793 

- 6809 200. 793 
-Z-80 111-112 

Microscópio elelrônico (simulação) 1164-1165 
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ÍNDICE REMISSIVO 



Microsoft 1290-1291 

MIDS 244. 703, 1214 

MIDI 1306-1310 

Mini- Assem bler ISO, 714 

Minidisqueles V, Disquetes 

Minski, Marvln 1315-1316 

Minúsculas 



a de 



1215 



mdos BASIC 23 
Míssil (animação gráfica) 28-33 
MIT 1287, 1291, 1314 
MLOGO 1317 

■ conversão do BRASLOGO 1319. 1344 
Mnemónico* 196 
MO 1330 
MOD16 814 
Modelos 

- bancos de dados 75 
-dimensões fracionadas 1359 

- dinâmicos 

aplicações 677 
simulação 670-678 

irajelória de objetos 670-678, 766-773, 
781-787 

- distrihuiçôes de probabilidades 1 176-1 180, 
1 181-1 185 

-óptica 1164 

- padrões gráficos naiurais 1 161-1 167 
-ressonância L 165-1 166 
-simulação 67(1-678, 981-987. 10611068 

- sistemas de numeração 36 

- tipos de 1 176 

Modem 561-564, 1200, 1404 
-acústico 564 

- características 1406 

- tipos 1407 

Modo «ranço 1442-1443 
MODULA 1288-1290 
Modulo 1341 

Modulo lonarnogol 821 823 

Morda, lançamento de (simulação) 77J-776 

Mõmca. impressor» 1442 1443 

Monitor 3. 88. 7|4, 1217 

- comparação com televisor 851-854 

- de video 8SI-8S4 ( V. i Tela) 
ptogram* 92-93. 1217 

- programa de testes para vídeo 1257-1258 
Monocromático, video 800, 854 
Monstro (animação) 319-320 

Montauem (linguagem de máquina) V, Assembler 

Mijrse, código 891-893 

Motocicleta (animação) 316-318 

Molo-conlinua, bomba 1 143-1 145 

MOTOR 1251 

Motores de passo 1324 

MOTS 1330 

Mouse 289. 1000, 1291 (Kt Desenho Auxiliado 

por Computador) 

Movimentação 

- de objetos 28-33. 670-678. 766-773, 781-787 
-gráficos V, Animação gráfico 

o aleatório (simulação) 1166 
D planetário 786-787 



- Assembler (programa) 401-405 

- atributos de tela 515, 814 

- calculadora (programa) 625-626 
:s definidos pelo usuário 1361-1366 



-CIRCLE 120. 234-235 

- CLEAR 91-92. 179 

- códigos de controle 367, 425 

- comandos de edição 425 

- compilador PASCAL 1438-1439 

- cursor de texto 367 

- desenho com DRAW 234-235 

- diferença emre comandos OTIR eOUTl 792 

- edição de linhas DATA 191 

- efeitos sonoros 170-172 

- função CHR$ 553-555.622-623 

- interpretador LOGO 1317 

- joysticks 291 

- organização do teclado 989 

- organização do video 531-533, 808, 1132, 
1361-1366 

-padrão MIDI 1310 
prograni.içãi) dc iiiiisk.ís poli Iónicas 1009- (01 5 

- rotinas em código de máquina 1419-1420 

- símbolos gráficos de teclado 553-555 

cm BASIC 808-814 
em LOGO 1426-1427 

- tabela de 

- tabela de 

- ledas programáveis 621-626 

- VRAM 531. 808. 1132 
MUDECL 1319 
MUDEHG 1427 
Mulllplexação 1406 
Multiplicação em binário 37-39 
Multiplicativas, cifras (criptografia) 1093-1095 
{V.t. Códigos) 

Múltiplos 1347 

Múltiplos, comandos V, Comandos múltiplos 
Múltiplos eventos (probabilidade) 776-777 
Multilonal, video 800 
Música 721-727.741-747, 1009-1015. 1082 

( V. t. Efeitos sonoros) 

- acidentes musicais 743-744 

- acordes musicais 1009-1015 

- andamento 744-745 

- clave 741 

- composição 1310 

programa 1398-1400. 1408-1411. 
1421-1425 

- compressão de melodias 1201-1207, 1430 

- edilor musical (programa) 1398-1400, 
1408-1411. 1421-1425 

- efeitos em jogos 788-795 

- escalas musicais 722-724, 742 

escala cromática 742 

- instrumentos digitais 1306-1310 

- no Spectrum 560 

- notação musical 741-742, 745 

- notas musicais 722-726, 742 

- pauta musical 741 
-sintetizadores 1306-1310.1400 

- tabela de conversão para o MSX 1015 



Negativo 

- programação em linguagem de 
máquina 142-145 

Newlon. Isaac 766-784 
NEXT V. FOR. ..NEXT 
Nibble 1335 

Ninhos FOR... NEXT 206 
Nitidez de desenhos na tela 700 
Níveis de dificuldade 153-160 
-em Avalanche 941-946. 1228-1233. 
1241-1245 
N-kcy-roll-over 989 
Nodos 1330 

- arquivos 689-690. 908-910. 940 

- conjuntos 194-195 

- funções definidas pelo usuário 610 

- tabela de nomes (MSX) 533. 1361-1363 

- variáveis 1 126 

efeilo sobre velocidade de execução 932 

em BASIC 99-100 
Nonário, sistema de numeração 3? 
NOP 558 

NORMAL 390, 1249 

Normal, distribuição 779-780. 1179-1180, 

US1-1I85 

- lempos PERT 1454 
NOT 224-225. 301-304 

- na manipulação de bits 1335, 1378 
Notação 

- BNF 1446 

- cientifica 894 

- de engenharia 894 

- hexadecimal cm BASIC 58 

- musical 741-742, 745 

- sufixa e infixa 1343 
Notas musicais 722-724. 742 

- controle de duração 726, 745 

- tabela de conversão para o MSX 1015 
Numeração 

- bases de 34^10. 56-60 
• de linhas 16. 80. 932 

efeito sobre velocidade de execução 932 
erro por numeração inexistente 80 
14-40 

hexadecimal para o 
Spectrum 1281-1283 
Números 

- aleatórios 11-16 

em LOGO 1344 

especificação de faixas 16 

intervalo de especificação 13 

uso em simulação 1121-1127. 1176-1180. 

1181-1185 

- armazenagem em BASIC 894-900 

- de Fibonacci 1067-1068 
-de linha 16.80,932 

- digitação de (programa de 
aprendizado) 281-286 

- em LOGO 1342-1344 

- formatação com PRINT USING 899-900, 
1440 

- influência na velocidade de execução 932 

- negativos 

no cálculo de SQR 440 
no sistema binário 142-145 
no sistema hexadecimal 142-145 
representação em gráficos 484 

- quebra -cabeças 1305 

- randômicos V. Aleatórios, i 
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Observação, pontu de 642-644 
Oclal, sistema de numeração 60 
OCTS 60 

orr-*ti 112 

OLD 597-600 

ON ERROR... GOSUB 444 

ON ERROR... COTO 940 

ON... GOSUB 80 

ON...COTO 78-79 

ON KEY...COSUB 625, 655 

ON SPRITE... GOSUB 191 

ON STOP...GOSUB 626 

- uso na proteção de programas 551 
Opcodes 2 

OPEN 691-692, 1254-1256 

- para saída cm vídeo (MSX) 594 
Operacional, sistema V, Sistema operacional 
Operações 

- alfanuméricas 1214-1215. 1401-1403 

em LOGO 1342-1344 
em PASCAL 1438 

influência na velocidade de execução 933 
por funções definidas pelo usuário 613 
programa pata planilhamento 1 108-1 1 15 
símbolos 14 
sistema binário 37-39 
sistema hexadecimal 56-60 
-com datas 1279-1280 

- lógicas 301-305 

uso cm expressões matemáticas 1312 
Operadores lógicos 43 ( V.t. AND, NOT e OR) 
Operadores relacionais 301-305 
Óptica, simulação 1164 
Ópticas, canelas V. Canrtas Ópticas 
OR 43, 301-304 

- limite pata tamanho dos números 305 

- na manipulação de bils 1335, 1378 
ORACLE 563, 1407 

Órbitas (simulação) 781-787 
Orçamento 

- programa 134-140 

- uso de planilhas eletrõnicas 1114-1115 
Ordenação 

- cordões alfanuméricos 242 

- no processador de textos 614-620 
■ técnicas de 468-173. 738-740 

bolha 292-295, 469-471 

instantânea 740 

por espalhamento 739 

por inserção 739-740 

por substituição retardada 738-739 

Quicksort 740 

recursáo 1225-1226 

Shell 471-473 

Shell-Metiner 473 

- velocidade de execução 933 
ORG 

- no Apple 240 

- no MSX 405 

- no Spectrum 251 

- no TRS-Color 300 
Organização 



- de coleções (programa) 68-75, 81-85 
-memória 174-184 

programas BASIC 513,1101-1107 

- microprocessador 109-112 

- vídeo 86-87, 178. 268, 531-533 
Oleio (jogo) 756-760. 796-800 
Otimizaçãu 905 

OTIR 792 
OUT 556, 1286 

- cm Assembler 217 

- programação de efeitos sonoros no 
TRS-80 170 

OUTI 792 
OUTIR 217 
OVER 350 

- com impressora 650 
Overflo» (sinalizador da UCP) 110 

IP 

PAC V. Projeto Assistido por Computador 
1'acMan (jogo) 46-52 
Paddles 288, 351 
Padrões 

- Centronics 525 

- de pomos 1 164-1165 

- de transmissão de dados 1405 

- gráficos (programa) 1 14-1 15 

- RS-232C 523 

- tabela de (MSX) 830-831. 1362 

- teste de monitores 1257-1258 
Paginação 1096-1100,1141.1145.1385 
Páginas 

- direta no TRS-Color 178 
-gráficas 1096-1100. 1141-1145 

no Apple e no TK-2000 180 
no TRS-Color 178, 596 
no TRS-80 947 . 994 

- registro (UCP) 1 12 
PAINT 113 

- no MSX 119-120 
-no TRS-Color 119 

PALAVRA 1344 
Palavras 

- ctuzadas (jogo) 704 

- em LOGO 1344 

- frequência 1416-1418 

- processamento de V. Processamento de textos 
-vazias 1345-1346 

Paleia elelrõnka (programa) 846-850 
Palíndromo 1448 
Pantógrafo 965 
Papel 645 

- tcrmossensivel 524 

Papel, Pedra, Tesoura (programa) 1348-1355 
PAPER 47, 115, 640, 716 

- com impressora 650 

- por código de contiole 269 
Papcrt. Seymour 1287, 1314 

Parábolas 803-804 , 807.861-866, 1161-1163 

- em balística 766 
Parabolóidcs 807 

PA RAC ENTRO 1318 
PARADIREITA 1318 
P A R A ESQU ERD A 1318 



PARAFRENTE 1318 
Paralelas, interfaces 525 
Parâmetros de uma função 609 
Parênteses 

- uso cm valores monetários 1440 
Paridade, bits de 1406 

Partículas subalõmicas (simulação) 1 164-1 165 

Parliluras musicais 744, 1423 

PASCAL 1288-1290, 1314. 1436-1439, 1446-1451 

- atribuição 1438 

- comparação com o BASIC 1436 

- compatibilidade 1446 

- recursividade 1223 
Pascal, triângulo de 277 
Pascalina 1436 
Pausas 

■ em código de máquina 559 

- programação em Assembler 748-755 
PAUSE 115 

Paula musical 741 
PC LEA R 90, 237 
PCLS 118, 393 
PCOPV 596, 1142 
PDL 351 
PEEK 261-268 

operacional 1248-1251 

no TRS-Color 265 
no TRS-80 1313. 1412 

- comparação com POINT 947 

- cópia de telas (TRS-80) 947 

- efeitos sonoros no Apple 266,712 

- encadeamento de programas 

no Apple 460 

no TRS-Color 458 

no TRS-80 460 

- exame de programas em memória 513 

- localização do cursor (TRS-80) 1313 

- medida de tempo no Spectrum 65-66, 265 

- programação em código de máquina 88 

- simulação do [NKEYS 

no Apple 167, 266 
no TK-2000 496-499 

- variáveis de sistema no Spectrum 1340 

- varredura do teclado (TRS-80) 1413 
Peixes, populações de (simulação) 1166-1167 
Penas ópticas V. Canetas ópticas 
PEIMCOLOR 1318 

PENDOWN 1287, 1318 
PENLIP 1287. 1318 
Persistência visual 853 

Prrspeclíva 628-633.641-647,693-700. 1391-1395 

- animação gráfica de um cubo 1097-1098 
PERT (programa) 1451-1460 

Peso 

- conversão de medidas (programa) 374-380 

- simulação de alavancas e polias 981-987 
Pesquisa 

- binária 873. 934, 1468 

- de subcordòcs alfanuméricos 245-246, 1469 

- de valores em um conjunto 195 

- em árvore 873 

- em bancos de dados 1467-1468 

- em conjuntos bidimensionais 
(programa) 203-207 

- em um arquivo 81-82 

- linear 1468 

- no processador de textos 614-620 

- otimizacão de busca 905 
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- uso cm simulação e previsão I] 27-1 128 

- velocidade de execução 933, 1468-1469 
Pessimista, tempo 1454 

Piaget. Jean 1314 
Pilha 

- no 6809 793 

- no Apple e no TK-2000 180 

- no Spectrum 176 

- no ZX-81 177 

- UCP 110 
I-IIOI i:*s 

Pintor Alopradn (programa) 1277-1278 

Pixrls 86-87. 114. 1470 

■■Pia» -1 , gráficos 634-639 

PL-1 1288 

Pirar 47-52, 61-67 

- em Avalanche 1001-1008.1228-1233 
Planejamento 

- de projclo (programa) 1451-1460 

- formatação de [elas de texto 501-506 

- jogos de aventura 208-212 

- jogos de guerra 1016-1020 

- planilha eletrõnica 1 110 
Planeias 

- simulação de órbitas 786-787 
Planilha eletrõnica (programa) 1108-1115, 
1 134-1 138,' 11S4-1 160 

Plania 

- crescimento (simulação) 1063 
PLAV 725-727 

- efeito sobre relógio interno 659 

- no MSX 170-172. 1010 

- no TRS-Color 172-173 
PLOT 113 

- no Spectrum 114. 502. 1248 

- no ZX-81 116 
Plotler 968 

Pluguc para gravadores 54-55 

PMODE 86-87. 118, 178. 236. 345, 392, 479, 

PO 1330 

POINT 716-720, 1312 

- comparação com PEEK 947 

- conversão do TRS-Color para o TRS-80 52 
Poisson, processos 1 177 

POKE 261-268 

- aceno do relógio interno 659 

operacional I24B-1251 

- alteração da RAMTOP 212 

- controle de robôs 1286 

- cópia de telas (TRS-80) 947 

- delimitação da área de tela no Apple 266 

- desativação da tecla BREAK 1313 

no TRS-80 1412-1413 

- encadeamento de programas 

no Apple 460 

no TRS-Color 458 

no TRS-80 460 

- entrada de código dc máquina 88 

- modificação da tabela de atributos 
{Spectrum) 515 

- obtenção dc efeitos sonoros 265 

- obtenção de teclas aul o- repetitivas 265 

- para alterar a velocidade de processamento 
(TRS-Color) 266 

- programação gráfica 122 

- rotinas em código de máquina 973, 1419-1420 

- tela gráfica (TRS-Co!or) 86-87 

- variáveis de sistema no Spectrum 1340 



Polias 984-986 

Polifonia (música) 1009 

Polígonos, desenho de 865 

Ponle. desenho de (programa) 131-132 

Ponteiros 175 

Ponto de fuga 1391 

Ponto de observação 642-644 

-contagem em Assembler 1228-1233 

- contagem em jogos 47-52, 61-67 

- em Avalanche 1001-1008. 1228-1233 

- Tuncões para detecção 715-720 

- padrões M64-II65 
Pontuação cm PRINT 13, 146-152 
POP 215 

Populações 

- dc coelhos (simulação) 1065-1067 

- de peixes (simulação) M66'M67 
Põquer de dados (programa) 1234-1240 
Põr-do-sol (programa) 25-26 
Portadora, onda 1407 

Portas 556 

- controle dc dispositivos c\tcrnos 1286 

- definição 556 

- no TRS-80 1032 
POS 1313 
Pós-byle 793 

Posição, cifras de 888-891 {Kr. Códigos) 

Potenciação 434-439 

Potências binárias 59 

Potência sonora 1083 

POTS 1330 

PPOINT 716-720 

P-RAMT (variável no Spectrum) 176 
Precisão 1440 

- do relógio interno 67 

- erros 899 

- especificação no PRINT USING 500 
PRESET 265, 392 

Pressão 

- conversão dc medidas (programa) 374-380 
Preslel 1407 

Previsão 1121-1127, IIS1-1I85 
PRIMEIRO I34J-I346 
PRINT 

- com operadores relacionais 302 

- em LOCO 1342 

- melhoria da apresentação Je um texto 332 

- pontuação 13 

- relação com BASE 1366 

- sinais de pontuação 146-152 

- USING 500, 899-900, 1440 
PRINT® 4-10. 150. 502. 1312-1313 

- com impressora 651 

- conversão do TRS-Color para o TRS-80 52 

- cm animação gráfica no TRS-80 160 

- uso em animações gráficas 669 

- uso no TRS-80 160 
PRINT AT 114. 148. 502 

- no Spectrum 867 

- uso em animação gráfica 341-342 
PRINT* 691-692, 917, 1254-1256 

- com impressora 651 

Probabilidades 774-780, 1I76-IIS0, 1181-1185 

- cálculo de 277. 774-780 

- distribuição de 777-780. 1176-1177, 
1181-1185, 1454 

- simulação de uma moeda 775-776 

- triângulo de Pascal 277 

- uso em previsão 1121-1127 



- uso em simulação 1121-1127, 1176-1180, 
1181-1185 

Problemas, resolução de 873, 1301-1305 
Procedimentais, linguagens 1290 
Procedimentos 1223 

- em LOGO 1287, 1319-1320 

- linguagens 1290 

- PASCAL 1436 
Processador, registro de (UCP) 112 
Processamento de imagens 1286. 1470 
Processamento de textos 

- acentuação em português 280, 1431 

- apresentação de um texto 332 

mala direia 1384-1385 
programa dc impressão 17-20 

- comparação entre editores 580 

- editor de textos {programa) 576-580, 
586-591, 614-620 

- funções 245-246 

- pacotes aplicativos 1381-1385 

- substituição de palavras 1403 
Processos 

- controle dc 1321-1325 

- de Bernoulli 1176 

- de Poisson 1177 
PRODLICT 1343 

Professor de Dalilograila {programa) 253-259, 
276-280. 281-286. 328-333 
PROG 175, 1340 

- na proteção de programas 550 
PROGRAM 1438 

Programa, área de (memória) 175-179 
Programação { Kr. Técnicas de programação) 

- Assembler V. Assembler 

■ caraclcristicas da impressora 652 

uso do CHRÍ 1442-1445 

- cursor no TRS-80 1413 

- de arquivos 687-692. 1252-1256 

- de blocos gráficos 406-413 

cm Avalanche 824-833 

- de jogos V. Jogos 

- desenvolvimento de novas linguagens 1346 

- cm código de máquina V. Código de máquina 

- estruturada 221-225 

PASCAL 1436 

repercussão sobre velocidade 931 

- ferramentas 

extensão do BASIC (Spectrum) 1281-1283 
indexadot de programas (Spectrum) 

1461-1463 

- gráfica V. C1RCLE, DRA W, Gráficos, 
LINE, OT. PL, PSET. SET ele. 

- heurística 905 

- linguagens 1288-1291 

- lógica 301-305 

- LOGO V. LOGO 

- PASCAL V. PASCAL 

- sintetizadores de voz 448 

- técnicas V. Técnicas de programação 

■ top-down 222 
Programa-fontc 1437 
Programa-objelo 1437 
Programas 

- armazenagem em BASIC 1101-1107 

- autocarregamento 549-550 

- auto-execução 550 

- combinação de 456-460 

- comentários em 207 
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- compactador para programas BASIC 
(TRS-Color) 536-540 

- documentação dc 207 

- edição de 412 

■ encadeamento de 456-460 

- indexador de programas (Spectrum) 1461-1463 

- melhoria da velocidade de montagem 1244 

■ no Spectrum 240.250-252,300.311-315. 
381-387. 402-403. 441-445 {V.t. Erros) 

- organização em memória 513, 1101-1107 

- vantagens da criptografia 1094 
Projecao 628-633 . 641-647 

Projeto Assistido por Computador (V.t. 

Desenho Auxiliado por Computador) 
-aplicações 1096, 1367-1371, 13B6-1390 
-editor gráfico (programa) 1021-1026 
-gestão de projetos 1451-1460 

cálculo esiatíslico de tempos 1455 

PROLOG 1288. 1291, 1314, 1316 

Prontidão, mensagem dl 162 

Proteção 

- alarme anliladrões 1322 

- de programas 548-551 
Protocolo de comunicação 1406 
PR# 650 

PSET 86-87, 118. 265. 345. 391 
Pseudo-parãmelro 609 
PSG 1013 
PSHB 219 

p-Syslem 1438-1439, 1450 
PULS 219 
PUSH 214 
PUT 

- desenho de sprites 189,373,812 

- uso em gráficos 104. 107. 353, 478-480. 
535-536 

PUT SPRITE 373. 812 




Quadrado, lei do 1063 

Quadrados, comparação dc (programa) 436-439 

Quadriculado (gráfico) 345 

Quadros de avisos 562, 1200, 1404-1407 

- caixa postal 1407 
Qualidade carta 1385 

Quarta geração, linguagem de 1291, 1468 
Quebra-csbeçM 1301-1305 
Queda de objelos 

- cálculo do tempo (programa) 439-440 
QuickBASIC 1291 

Quicksort (técnica de ordenação) 740 
QWERTY 276-280 




RA 180 
Radiam» 



- conversão de graus em 334-336 
Ralos catódicos, tubo de 852 
Raiz quadrada 439-440 

- em LOGO 1344 
RAM 174-175 
RAMTOP 

- no Spectrum 88, 176. 1340 
-no TRS-Color 112 

- no TRS-80 178 

- no ZX-81 90, 177 
RAN DOM 13 

RandAtnicos, arquivos V. Arquivos 
Randômicos. números V, Aleatórios, 

RAnVoMIZE 13. 1344 

- com USR (Sinclair) 94. 320, 1248 
Raposa e os Gansos, A {jogo) 872-875. 
901-905, 948-954 

Raquete cielrònica 288 
Rastreamento 381-387 
Razão de crescimento 1064 
REA D 128-133 

- cuidados na digitação de DATA 860 

- em arquivos 692 

- em PASCAL 1438 

- tipos de erro 312-313 
Recordes 64-66 
Recursâo 1221-1227 

- em LOGO 1330-1331 

- uso em fractais 1358 
Rede MIDI 1306-1310 
Rede PERT 1451-1460 

Redes de computadores 561-564, 1200, 1407 

- quadros de avisos 1404-1407 
Redução de dados 1323-1324 
Referências cruzadas (programa) 1461-1463 
Reflexão 673-678 

Registros 

- banco de dados 69, 1464-1466 

- de indexação <UCP) 110 

- de página direta 178. 199 

- internos da UCP 109-110 

- modificação 82-83 

- processador 1 12 

Regra da mão direita 154 
Regulação 1322-1323 
Relacional, modelo 75, 1468 
Relatórios 1469 
Relógio 

- animação 354-358 

- em Assembler 658-659 

- interno 67 

efeito dc SAVE e LOAD 659 

- no Spectrum (rotina) 1248 
REM 

-como eliminar (programa) 536-540 

- como utilizar 207 

- efeitos sobre a velocidade de execução 932 

- eliminação para encurtar programas 141 

- uso na depuração de erros em programas 3 1 2 

- uso na programação em código de 
máquina 90 

REMA1NDER 1344 
RENAME 940 
«enumeração de linhas 

- e o comando MERGE 459 

- rotina para o Spectrum 1281-1283 
REPEAT 1287, 1320 
REPEAT...UNTIL 225, 1447-1448 



Repetição 

- em BASIC 21-27 

- em LOGO 1330-1331 

- em PASCAL 1447-1448 

- em programação estruturada. 224-225 
REPRODUZA 1344 

RESET 1312 
RESET (tecla) 16, 551 

- em programação Assembler 219 
-no TRS-Color 1251 

Resistência do ar (simulação) 783 
Resolução de problemas 873, 1301-1305 
Resolução gráfica 114, 120, 851-854 

- canetas ópticas 928 

- no Apple e no TK-2000 116 

- no Spectrum 114 
-no ZX-81 116.320 

- programa de leste 1257-1258 
Ressonância (simulação) 1165-1166 
RESTO 1344 

R ESTORE 130, 132-133 
RESUME 444 
RET 215. 217 

- no Spectrum 251 
Relas V. Gráficos 
Retroalimentação 1323 
RETURN (tecla) 364 
RGB 854 

Rifle óptico 926 
RIGHT 1318 
RIGHTS 244, 703, 1214 
Rígido, disco V. Disco 
Ritmo 744 

RND ! 1-16, 42-43, 1040, 1 126 

- em efeilos gráficos 23-25 
RO 180 

Rohós 1284-1287. 1322 
Rolamento de tela 442 

- programa em Assembler 213-219 
Roldanas 984-986 

Roll-over 989 
ROM 174-175 

- Autostart (Apple e TK-2000) 1249 

- gráficos 

no MSX 553-555 
no Spectrum 640. 661 
no TK-2000 734-737 
no TRS-80 1413 

- resseleção no TK-2000 180 
ROT 318 

Rotação 

- curvas cónicas 805-807 

- geração de gráficos 1194-1199 
ROT ATE 116 

ROT ATE (instrução em código de máquina) 556 
Rotinas de máquina V. Código de máquina 
Rótulos 197 
KOI Ml 1344 
RRCA 556 

RS-232C, padrão 525. 878, 1200. 1311 

- uso com mouse 1000 
RTS 

- no 6502 220 

- no 6809 219 

- no Spectrum 251 
Ruídos {V.t. Efeilos sonoros) 

■ efeitos no Apple e no TK-2000 1027 

- no TRS-80 1032-1033 

- técnicas de programação em jogos 168-173 
RUN 11,940 



1% 



Vol. I - pág. 1 a 300; vol. 2 - pág. 301 a 600; vol. 3 - pág. 601 a 900; vol. 4 - pág. 901 a 1200; vol. 5 - pág. 1201 a 1500. 



IIIIIIIIIIIHHnHHHHHHHIIIIIIIIIII 



s 

Saída. Areu de (memória) 180 
Sainl-Cyr. cifra de 890-891 {V.t. Códigos) 
Sapo (animação gráfica) 342-348 
SAVE 910-911. 1255 

- com gravador cassete 54 

- efeito sobre relógio interno 659 

- em LOGO 1329 

- programas em Assembler 252 
SC ALE 116. 318 

SCREEN 

- no MSX 119. 268. 808, 1249 

uso com sprites 189 

- no TRS-Color 86-87. 118. 392. 506 
SCRN 716-720 

Scrolling 

- horizontal 828-829, 832 

- programa em código de máquina 94-95 
SDE 1467 

SE.. .ENTÃO (LOGO) 1331 
Segmentos, gráficos de 634-639 
Segurança 

- alarme antiladroes 1322 

- cuidados com fitas e discos 488 

- disquei» 91 1 

- redes de telecomunicações 564 

- técnicas de proteção de programas 548-551 
Seleção 

- canetas ópticas 928-929 

- computadores para processamento dc 
textos 1385 

- de memória 180 

- dispositivos de memória auxiliar 876-BS0 

- impressoras para processamento de 
textos 1385 

- vídeos para microcomputadores 854 
Selos, o vendedor de (programa) 1303-1304 
SEM PRIMEI RO 1345-1346 
SEMLLTIMO 1345-1346 

Seno V. SIN 

Senhas 888-893. 1091-1095, 1260 

- entrada (programa) 166-167, 888-893, 
1091-1095. 1260 

- jogo (programa) 1 139-1 140 

- por deslocamento dc código 
(programa) 363-366 

Senóides, curvas I 163-1 164 
Sensibilidade 

- canelas ópticas 926 
Sensores 967, 1322. 1324 
SENTENÇA 1346 
SENTE N CE 1346 
Sequenciais, arquivos V. Seriais 
Seqiien eia menta 1322 

Sequencias alfanuméricas V, Cordões 
Sequencias de escape 1442-1443 
Seriais 

- acesso a fitas 878 

- arquivos 687, 1467 

- comunicação 1200 

- interfaces 525 (V.t. RS-2320 

- pesquisa 933, 1465 
Séries matemáticas 1067-1068 

Serra Pelada (jogo) 662-668.681-686 



Servomecanismo 1323 
Servomoiores 1286, 1324 
SET 1312 

- conversão do TRS-Color para o TRS-80 52 
Selores 879, 908, 1217 

SGBD V, Banco de dados 
Shell, ordenação 471-473 
Shell-Melzner, ordenação 473 
SHIFT 556 

SHOWTURTLE 1318, 1329 
Simbólicos, modelos 1176 
Símbolos ( V.t. Caracteres) 
■ gráficas de teclado 

no MSX 553-555 

no Speclrum 640, 661 

no TK-2000 734-737 

- operações arilméticas 14 
Simetria 1372-1374 
SIMULA 1290 
Simulação 1121-1127 

- alavanca 982-984 

-aleatória 1040. 1166. 1176-1180. 1181-1185 

- alunissagem 821-823 
-atrito 673 

- balística 766-773, 781-787. 1161-1163 
-bar 1181-1185 

- bomba de combustível 96-98 

- bomba moto-contínua 1143-1145 

- caos 1 166 

- colónia de bactérias 961-963 

- cores em vídeo monocromático 800 
-crescimento 1061-1068,1166-1167 

Jogo da Vida 961-963 

- curvas cnvoltórias 1161-1163 

- dinâmica populacional 1061-1068 

Jogo da Vida 961-963 

- elevador hidráulico 986-987 

- função INKEYS 

no Apple 167, 266 
no TK-2000 167 

- jogos económicos 662-668,681-686 

- lançamentos dc uma moeda 775-776 
• LINE INPUT 1259-1260 

- loteria esportiva 1 121-1 127 

- mecânica 981-987 

- microscópio eleirõnico 1 164-1 165 

- modelos aleatórios 1176-1180, II8I-II85 

- movimento aleatório 1166 

- órbitas 781-787 

- polias 984-986 

- populações de coelhos 1065-1067 

- populações de peixes 1 166-1 167 

- reflexões ópticas M64 

- relógio 354-358. 658-659 

- reprodução de bactérias 961-963 

- ressonância 1165-1166 

- sistemas dinâmicos 772 {V.t. Cinemática) 

- sprites no TRS-80 627, 660, 669 

- STR1NGS no Spectrum 661 

- trajetória de objetos 670-678, 766-773, 
781-787 

- võo V. Simulador de vôo 

Simulador de vão (programa) 592-596. 601-607, 

653-657 

SIN 

- desenha de uma espiral 359 
-em LOGO 1344 

- em modelos cinemáticos 771 

- para desenhar círculo 116. 118 

- uso cm curvas cónicas 802 



- uso em gráficos 337-340. 354-360 
Sinalizadores 110 

- fim de arquivo 1256 
-UCP 110 

Sintaxe, diagrama de 1446 
Sintaxe, erro de 312-313 
Sintetizador de voz 446-448. 963 

- em robôs 1285 

Sintetizador musical 1306-1310,1400 

Sirene (TRS-Color) 173 

Sistema binário 37-39 

Sistema de desenvolvimento 1325 

Sistema de equações lineares 1304-1305 

Sistema gerencíador dc bancos de dados 75. 

706-71 I, 1464-1469 

Sistema hexadecimal 56-60 

Sistema oclal 60 

Sistema operacional 880, 1246-1251 

- acesso direto em BASIC 1246-1251 

- de discos V. DOS 

- formatação 908, 1217 

- programa assistente 936-940 

- rotinas do 1246-1251 
Sistemas de controle 1321-1325 
Sistemas de numeração 34-40 

- hexadecimal 56-57 

- modelos 36 

- ocial 60 

Sistema solar (simulação] 786-787 

SLOW (ZX-81) 111 

SMALLTALK 1000, 1288-1291 

SNOBOL 1288. 1291. 1316 

Snooker 677 

Soft-secloríng 908 

Sólidos de revolução 1194-1199 

Som {V.t. BEEP, E/eitos sonoros. Música, 

Ruídos. SOUND) 

■ análise 1081-1085 

-digitalização 1081-1085 

- editor musical (programa) 1398-1400, 
1408-1411, 1421-1425 

- presença em monitores de vídeo 854 

- produção de efeitos naturais 560 

- programação em Assembler 788-795 

Apple e TK-2000 712-714 
no Spectrum 556-560 

- programação em BASIC 32, 168-170, 265, 
721-727, 741-747. 1009-1015 

compressão de melodias 1201-1207 
no Apple c no TK-2000 1027 
no TRS-80 1032-1033 

- som digital 743 
Soma cumulativa 1349 

Soma de verificação 1277-1278 
Soma em binário 37-39 
Sombreamenlo 115, 1394-1395 

- no Spectrum 388-389 

- comandos em BASIC V. Aleatórios, números 

- moedas 775-776 
SOUND 22, 725-727 

- efeito sobre relógio interno 659 

- no MSX 170-172, 1013 

- no Spectrum 168-170. 556-560 

- no TK-2000 168-170. 714 
-no TRS-Color 172-173 

Speclrum 

- acionadores de disquetes 907-908 

- áreas da memoria 175 

- Assembler (programa) 248-252 
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- atributos de tela 716-720 

- auto- repetição 265. 1248 

- caractere* definidos pelo usuário 122. 
341-347, 529 

- CIRCLE 115, 232 

- círculos (desenho) 232 

- CODE 252 

- códigos de controle 269 

- compilador PASCAL 1438-1439 

- conversão de decimal para 
hexadecimal 1281-1283 

-cores US. 389-390. 424 

- desenho com DRAW 1 14. 232-233. 1248 

- efeitos sonoros 168-170, S56-560 

- efeitos visuais 867 

- extensão do BASIC 1281-1283 

- função CHRS 123. I5S 

- indexador de programas 1461-1463 

- interpretador LOGO 1317 

- joysiicks 290 

- manipulação de cordões 1214 

- organização do teclado 988-989 

- rastreamento de programas 381-387 

- relógio (programa cm Assemhler) 658-659 

- rotina de apagamento 1281-1283 

- símbolos gráficos de teclado 640. 661 

- sprites 122 

- técnicas de programação 867, 1340 

- utilização da área reservada da tela 867 

- variáveis do sistema 1248 

CHANS 175 
SPRITE OFF 191 
SPRITE ON 191 
Spriles 1132 

- bancos de 808-81 1 

- como funcionam 1427 

- criação 189. 808-814 

- definição 107. 188-189 

- em Avalanche 818-820 

- em LOGO 1426-1427 

- movimentação com joysliek 350-351 

- no MSX 188-191 

- programação em Assembler 818-820 

- simulação no TRS-80 627. 660. 669 

- técnica de planejamento 190 
SPRITE STOP 191 

SOR 77. 439-440 
SQRT 1344 
Squash 677 
STA 199, 219 - 220 
Sian bil 1406 

Status, regido de (UCP) 112 
STEP (K,t FOR...NEXT) 

- definição 22 

- em PASCAL 1448 
Stepper. mulor 1324 
STICK 350-351. 655 
STKBOT 

- variável de sistema 

no Spectrum 176 
no ZX-81 177 
- I kl Mi (variável de sistema) 176-177 

- uso na proteção de programas 551 
STOP (comando) 312-313 

STOP (tecla) 16, 78-79, 442, 551. 624, 626 

Stop bil 1406 

STOP OFF 626 

STOP ON 626 

STRS 237, 245. 703. 1214 



STRINGS 62, 245. 703, 1214 

- emprego no PR1NT US1NG 500 

- simulação 

no Spectrum 661 
no TK-2000 737 

- uso com caracteres gráficas 

no MSX 553-555 
no TRS-80 627 

- uso com códigos de controle 260 

- uso em blocos grdricos 669 
Strlngs V. Cordões 

Stub 599 

Subcordõcs V. Cordões 
Submarino (animação) 316-318 
Sub-rolinas ((■'./. GOSUB e ON...GOSUB) 
■ acesso aos endereços do sisiema 
operacional 1248 

- chamadas múltiplas 80 

- em BASIC 79-B0 

- influência sobre velocidade dc execução 932 

- pilha da UCP 110 

- pilha no Spectrum 176. 

- pilha no ZX-81 177 

- recursivas 1221-1227 
Subsliluiçã» 

- em processadores de lextos 1382 

- retardada (ordenação) 738-739 

- subcordõcs 245-246. 1403 
Sublração em hinário 37-39 
SDBTRACT 1343 

Sufixa, nniaçãn 1343 
Sufixo 908-910 
SUM 1343 




TAB 146-152. 501-506 

- tecla 367 

- uso com impressora 650-652 
Tabela de códigos ASCII 263 
Tabela de figuras 316-318 

Tahela de nomes (MSX) 268, 1361-1363 

Tabelas de forma 237 

Tabelns-verdade 303-304 

Tablcle digitaliiador 289, 964-968 (Cf. 

Desenho Auxiliado por Computador) 

Tabuada (jogo) 14-16 

Tabulação 

- com códigos de controle 367 

- na formatação de leias 501-506 
Tabuleiro, jogos de 756-760, 796-800 
Tanque de guerra (animação) 342-346 
Tape-loop 877-878, 908 
TARTARUGA 1318 

Ta ri a ruga 

- LOGO 1316, 1326 

- mecânica 1286-1287 
Taxas de transmissão 877 
Teclado 

- alteração do retardo do teclado 
(Spectrum) 1248 

- buffer de 990 

- códigos de (MSX) 499 

- inteligente 280 

- musical 725-727, 741-747 



- organização no TRS-80 1412 

- seleçâo para processamento de lextos 1385 

- símbolos gráficos de (K.í, Caracteres) 

no MSX 553-555 

no Spectrum 640, 661 

no TK-2000 734-737 

no TRS-80 627 , 660, 669. 1413 

- varredura (programa) 991-993 
Teclas 

- auio-repeiicâo 726 

no Spectrum 265 

no TRS-Color 265, 1248, 1251 

no TRS-80 1313. 1412-1413 

- BREAK 16. 7B-79. 442. 559 

desativacão (TRS-80) 1313 

- CODE 553-555 

- códigos de teclado no TK-2000 499 

- comando EDIT 399-400. 425. 552. 1329 

- como detectar 28-29 

- CONTROL 260,267,551,624 

no TK-2000 734-737 

- CONTROL-BREAK 16 
-CONTROL-C 16.78-79,551 

■ controle por pressões múltiplas 988-993 

- CONTROl RESLT 16 

- CONTROL-STOP 16 

- escolha para um jogo 31 

- identificação por PEEK no TRS-80 1413 

- programáveis 655 

MSX 621-626 

- tabela de endereces iu< 1 RS t olor 267 
Técnicas de programação 

- aceleração de entrada dc dados 163-164 

- aperfeiçoamento de gráficos 639 
-arquivos 687-692, 1252-1256 

- arredondamento 1347 

- aumento da velocidade dc programas 
BASIC 930-935 

- cálculos com datas 1279-1280 

- caracteres definidos pelo usuário 406-413 

- combinação de programas 456-460 

■ compactação de programas 536 

- compressão dc textos 1332-1339. 1414-1418, 
1428-1435 

- controle por teclas múltiplas 988-993 

- criptografia 888-893 

- depuração de programas longos 240. 251. 
300, 403 

- depuração no Spectrum (programa) 381-387 

- documentação com REM 207 

- economia de memória 141. 269 

- edição de hnhas 399-100. 412 

- elaboração dc menus 504-506. 623-624 

- encurtando programas 141 

- formatação de telas 501-506 

- idenlilicaçáo dc arquivos 488 

- localização c depuração dc erros 311-315 

- manipulação de bits em BASIC 1378-1380 

- no Spectrum 867, 1340 

- no TRS-80 912, 947, 994. 1312-1313. 
1412-1413 

- operações com cordões 241-247. 
1214-1215. 1401-1403 

- ordenação 468-473. 738-740 

- prevenção de erros 441-445 

- programação esiruturada 221-225. 292-295 

- proteção de programas 548-551 
-recursão 1221-1227 

- utilização dc KEY 621-626 

- utilização do código ASCII 361-366 
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- utilização do GOTO 78-79 
Teta 

- acentuação em português 280 

■ armazenagem em cordoes 
alfanuméricos 947. 994 

- armazenagem em disco ou fita 994 

- atributos de 515,716-720,814 

- borda decorativa (programa) 24J-246 

- códigos de controle no TRS-80 260 

- condições de visualização 864 

- cópia com PEEK e POKE (TRS-80) 947 

- delimitação com POKE no Apple 266 

- detecção de pontos e caracteres 715-720 

■ edição em tela completa 1313 

- efeito multicor no Spccirum 867 

- endereços no MSX 1249 

- escrita com POKE 263-264 

- gráfica 

colocação de textos no Apple II 237 

comparação entre TV e monitor 851-854 

conversão de coordenadas 52 

cópia na impressora 650, 1441-1445 

escrita em alta resolução (Apple) 534-535 

inversão no ZX-81 319-320 

melhorando a nitidez 700 

no Apple e no TK-2000 116 

no Spccirum 114 

no TRS-Color B6-B7. 178 

pontos fora da tela 31, 632 

rotina de desenho de letras (TRS-Color) 760 

- organização da memória no MSX 531-533 

- programa de deslocamento 213-219 

- proteção da última linha iSpectrum) 867 

- rolamento 442 

formatação de entrada 1396-1397 
formatação de saida 501-506 
janelas 580 

organização no MSX 268 
organização no TRS-Color 178 
programação de caracteres 1361-1366 
totina de preenchimento 973 
rolínas de controle no Apple 503 
técnicas de organização 146-152 

Tclecompras 562 

Telemática 561564. 1407 

- sistemas de quadros de avisos 1404-1407 

- videotexto 561-562, 1200. 1406-1407 
Tclctex 1407 

Teletexto 562. 1407 
Televisor V. TV 
Telex 1407 

Tem peral ura 

- conversão de medidas (programa) 374-380 

- comandos de acesso 15, 65-66 

- contagem em jogos 47-52, 61-67 

- controle 265 

- diminuição do tempo de execução de 
programas 930-935 

- em projetos PERT 1454 

- limite máximo para marcação 67 

- queda de objetos 439-440 

alteração no Spccirum 1248 
com laços FOR... NEXT 22 
programação em Assembler 748-755 

Tempo de reaçáu (programa) 67 

Teorema binomial 780 

Teoria das Catástrofes 1 163-1 164 



Térmicas, impressoras 524 
Terminais de dados 1406 
Teste 

- de gravação (programa) 53 

- programa de leste para vídeo 1257-1258 
TEXT 116 

- acentuação em português 280, 1431 

- apresentação 332 

- arquivos 688 

- impressão de cartas (programa) 17-20 

- processamento de V. Processamento de textos 
TFR 199 

THEN V. IF...THEN 

- modificação no MSX 1013 
TIME 15 

TIMER 65-66 

liny-PASCAI. 1436 

íipo, declarações de 1438 

Tiro ao Pato (programa) 368-373 

Tinis (efeitos sonoros) 

- no Apple e no TK-2000 1027 

- no TRS-80 1032-1033 
Titulação 639 

- elaboração de leiras (programa) 913-920. 
921-925 

- em planilhas eletrõmcas 1156 

- programação em Assembler 748-755 
TK-2MM 

- acionadores dc disquetes 907 

- áreas da memória 180 

- Autostart ROM 1249 

- círculos (desenho) 117-118 

- códigos de controle 269 

- códigos de teclado 499 

- COLOR 116 

- desenho com DRAW 116, 237, 318, 343-344 

- diferenças do GALL com Apple 732 

- Disassemhler 714 

- editor gráfico (programa) 846-850 

- efeitos sonoros 168-170. 712-714, 1027 

- função CHRS 734-737 

- gravação de dados em fita cassete 1254 

- joysticks 291 

- mini- Assembler 714 

- monitor 714 

■ organização do teclado 989-990 

- símbolos gráficos de teclado 734-737 

- simulação da função 1NKEYS 496-499 
TO 

- em LOGO 1287, 1319 

- utilização em funções alfanuméricas 1214 

- utilização ein gráficos 661 
Tonalidade 741 

Toolkil (programa) 1281-1283 

Tnp-riown, programação 222 

Toro 693-700 (V.l. Gráficos) 

Torres de Hamii, As (programa) 1226-1227 

Touchpad 289-290 

Trabalho, área de (memória) 176-180 

Traçador gráfico 968 

T raçadores dr régua 1'. Tablete digitalizador 
TRACE 381 
Trackerball 289-290 

Tradução manual do Assembler 196-200, 213-219 
TrajelciriHS I . Animação gráfica e Simulação 
Transcrição musical 1423 
Transdata 563 
Transferência 



- de arquivos entre computadores 1404 

- tela 947. 994 

Transformação de coordenadas 3-0 644-647. 
1391-1395 

Transformada de Fourler 1083 

Transmissão em filas magnéticas 877 

Tralor 525 (Kr. Impressoras) 

"Três Ratinhos Cegos. Os' - (melodia) 744, 

1012-1013 

Triângulos 

- relações 337-338 
Tridimensionais, gráficos 581-585, 628-633, 
637-638.641-647,693-700. 1194-1199, 1391-1395 
Trigonometria 

- uso em gráficos 334-340, 354-360 
Trilhas 879, 908, 1217 

TROFF 300, 403 
TRON 300, 381. 403 
TRS-Color 

- acionadores de disquetes 906 

- animação gráfica 478-480 

- Assembler (errata) 794 

- Assembler (programa) 296-300 

- auto-repetição 265, 1248, 1251 

no leclado musical 726 

- caracteres definidos pelo usuário 478-480. 
S35-536 

- C1RCLE 118-119. 234-235 

- CLEAR 300 

- "Coleta de lixo'" 1251 

- COLOR 118. 393 

- comandos de edição 399-400 

- compactador de programas BASIC 
(programa) 536-540 

-compilador PASCAL 1438-1439 

- conversão de programas para o TRS-80 52 

- desenho com DRAW 234-235 

- editor de discos (programa) 1216-1220 

- efeitos sonoros 172-173 

- extensão do BASIC 597-600 

- interpretador LOGO 1317 

- joysticks 291 

- organização do teclado 989 

- processador interno (6809) 793 

- programação gráfica 86-87, 118, 393 

- rotina de desenho dc leiras 760 

- tabela do teclado 267 
TRS-80 

- acionadores de disquetes 906 

- animação gráfica 160, 669 

- áreas da memória 178 

- Assembler (programa) 679-680 

- auio-repeiiçáo 1313, 1412-1413 

- caracteres definidos pelo usuário 627, 
660, 669 

- CLEAR 90 

- códigos de controle 260 

- códigos gráficos 627. 660, 669 

- comandos de edição 399-400 

- compilador PASCAL 1438-1439 

- conversão de programas do TRS-Color 52 

- cursor de texto 260 

- despejo de leia com JKL 1442 

- efeitos sonoros 170, 1032-1033 

- função CHRS 160, 627, 660, 669 

- joysticks 291 

- programação gráfica 120, 160 

- spriles 160, 627, 660, 669 

- [étnicas dc programação 912. 947, 994, 
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Truque* V. Técnicas de programar. 
Tubo de raios catódicos 852 
Tudo-ou-nada, distribuição 1454 
Turbo-PASCAL 1438-1439, 1450 



i VARPTR 972 



; 96 




LART 525 
UCP 109-112 

UCSD PASCAL 1436. 1450 

LTKí V. Caracteres definidos pelo usuário 

ÚLTIMO 1345-1346 

l nidadr algorítmica 1436 

l nifnrmc. distribuição 1180 

LlNLOCK 911. 940 

UMPLOT 114 

Iploading 1404 

L SEBORRAC H A 1319 

USELÁPIS 1319 

ISENADA 1318 

U5INC 500, B99.900, 1440 

- com impressora 65 1 
USR 94-95 , 217 , 973 

- efeitos sonoros no TRS-80 1032 

- na extensão da linguagem BASIC 599 

- no MSX 405 
-no Spectrum 124B 

Usuário, área do {mi 




VAL 244-245. 900. 
\ alores monetários 

- formatação de 1440 
VAR 1438 

V •Níveis 

- alfanuméricas 13, 99-100 

armazenagem de 1101-1107. 1213 
armazenagem de tela 947, 994 
dimensionadas 194-195 
-área de (memória) 175-180 

- booleanas 1448 

- de sistema 1248 

no Spectrum 175-177. 1340 
noTRS-Color 177-178 
no ZX-81 177 

uso em proteção de programas 550 

- dimensionamento 192 
-em BASIC 12, 96-100 

- em LOGO 1326-1329 

- em PASCAL 1448 

- emprego correio 26 

- e os comandos READ e DATA 128 
. indexadas 192-195. 201-207 

armazenagem 1 101-1 107 

- influencia na velocidade de execução 

- inicialUaeâo em Avalanche 995-999 



96-97 

armazenagem 1 101-1 107 
armazenagem em BASIC 894-900 

- número de variáveis definiveis 1126 
VARPTR 898, 947. 1378 

- uso em rotinas di' código de máquina 972-973 
Varredura 

- teclado 988, 991-993 

- video 852 
VARS S75 
Vazios, cordões 100 
VDP 808, 1249 
Velocidade 

- acesso a discos rígidos 1133 

- como melhorar no simulador de voo 607 

- comparação entre BASIC e código 
de máquina 925. 930 

- desenhos em perspectiva 699 

- digitação 257. 286 

influência do roll-over 989 

- montagem de programas longos 
(Assembler) 1244 

- no TRS-Color 266 

- técnicas para aumento da 930-935 

efeito da REM 932 
efeito dos espaços 932 

- trajetória de uma bola 674-677 

- transmissão entre computadores 1405 
Vendedor de selos 1303-1304 
Verificação 

- de dados 1465 

- de datas 1280. 1401 

- de disquetes 55, 910-911, 940 
-soma 1277-1278 

VERIFY 55. 910-911, 940 
Vertical, movimenlo 766-773, 781-787 
Vida. Jojjo da (programa) 961-963 
Video (Kl, Tela) 
■ câmara de 1470 

- composto 853 

- programa de teste 1257-1258 

- televisor versus monitor 851-854 

uso do fósforo 854 
Videotex 1407 

Videotexto 561-562, 1200, 1406-1407 
Vidkon 1470 

Vlnle-e-um (programa) 426-433, 449-455, 461-467 

- persistência visual e vídeos 853 
Visuais, efellos V. Efeitos visuais 
\ ÍMi;ili/açio 864 

VL1N 116 
Volume 

- conversão de medidas (programa) 374-380 

- simulação de crescimento 1063 

Vôo, simulador de (programa) V. Simulador 

de vôo 

Voi 

- reconhecimento 1311 

- sintetizadores 446-448, 963 

em robôs 1285 
Vozes (música) 1009 

VPEEK 179,268.517.531-533, 1132. 1361-1366 

- na criação de sprites 808-814 
VPOKE 179. 217, 268, 517. 531-533, 1132, 
1361-1366 

- na criação de spriles 808-814 



- utilização em blocos gráficos 
VRAM 531-533.808.812,1132, 
VTAB 10, 152, 503 

- com impressora 650 
VTRANSF (programa) 947 



Wafadrive 877, 908 
WA1T 1286 
WAN 1200, 1407 

WARS (variável de sistema no ZX-81) 177 
WHII.E. .I)0 224-225. 1447-1448 
Winchester (discos) V. Disco 
Wireframes 581-585. 628-633. 641-647, 693-700 

- definição 582 
Wirth. Mklaus 1436 
WORD 1344 
Wordmap 1383 
WORKSP (Spectrum) 176 
WK1TE 1254-1256 

- em arquivos 692 
WRITELN 1438 
WYSIWYG 1383 




/.-Kl) Imiirnprocc: 
Zero, sinalizador de 110 
Zodíaco, signos do (programa) 1261-1270 
Zoom gráfico 1049-1055 
ZX-81 

- áreas da memória 177 

- Assembler 251 

- círculos (desenho) 116 

- CODE 362-364 

- combinação de programas 458 

- edição de programas 552 

- joysticks 291 

- manipulação de cordões 1214 

- técnicas de animação gráfica 319-320 



- pág. 1 a 300; vol. 2 - pág. 301 a 



I; vol. 3 - pág. 601 a 900: vol. 4 - pág. 901 a 1200; vol. 5 - pâg. 1201 a 1500. 
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Pág. 26 - legenda ã esquerda 

Onde se lê: No TK-80X o Caleidoscópio 
Leia-se; No TK-90X, o Caleidoscópio 

Pág. 34 - 1? col. - 4? parágr. 

Onde se lê: 5 + 10 + 200 + 3000 
Leia-se: 5 + 70 + 200 + 3000 

Pág. 53 - 1? col. - 2? parágr. 

Onde se lê: um conector DID 
Leia-se: um conector DIN 

Pág. 56 - Ululo da matéria 

Onde se lê: ARITMÉTICA 
Leia-se: ARITMÉTICA 

Pág. 60 - 3? col. • quadro 

Onde se lê: O octal tem 8 dígitos: 0, 1, 

2, 3, 4, 5, 6, 7 e 8. 

Leia-se: O octal tem 8 dígitos: 0, 1,2, 

3, 4, 5, 6 e 7. 

Pág. 87 - inlertítulo - faixa prela 

EFEITOS DOS BLOCOS GRÁFICOS 

Pág. 245 - 1? col. - 1? e 4? parágr. 
Onde se lê: VAL< - A$) e VAL( = B$) 
Leia-se: VAL(A$) e VAL(BS) 

Pág. 245 - 1? col. - 4? parágr. 
Onde se lê: BS"45 MARCOS" 
Leia-se: B$="45 MARCOS" 

Pág. 260 - 1? col. - 5?, 6?, 7? parágr. 
Pág. 260 - 2? col. - 2? parágr. 
Onde se lê: CHRS 
Leia-se: CHRS 

Pág. 290 - 1." col. - último parágr. 
Pág. 291 • 2? col. - último parágr. 

Onde se lê: comandos GETS 
Leia-se: comandos GET 

Pág. 294 - 1? col. - 2? parágr. 

Onde se lê: poderão ser chocados 
Leia-se: poderão ser checados 

Pág. 301 - 3? col. - 1? parágr. 

Onde se lê: A for menor que o de B 
Leia-se: A for menor ou igual ao de B 

Pág. 327 - 2? col. - 61' parágr. 
Onde se lê: COSCB 
Leia-se: GOSUB 

Pág. 364 • 1? col. - 2" parágr. 

Onde se lê: comandos de remuneração 
Leia-se: comandos de renumeração 

Pág. 366 - 2? col. - 2" parágr. 

Onde se lê: trará 65, o código de B. 
Leia-se: Irará 66, o código de B. 

Pág. 398 - 2f col. - 7? parágr. 

Onde se lê: SI$ 
Leia-se: SS 



Pág. 398 - 3? col. - 11? parágr. 
Onde se lê: SI$( ) 
Leia-se: S$( ) 

Pág. 444 - quadro - 2? parágr. 

Onde se lê: Os micros das linhas 
TRS-80, TRS-Color, Apple, TK-2000 
e MSX, 

Leia-se: Os micros das linhas TRS-80, 
Apple, TK-2000 e MSX, 

Pág. 501 - 1? col. - 3f parágr. 

Onde se lê: mensagens do tipo "Você 
tem um canhão disponível". 

Leia-se: mensagens do tipo "VOCE 
TEM 1 CANHÕES DISPONÍVEIS". 

Pág. 561. - 2t col. - 5? parágr. 

Onde se lê: sistemas telemétricos, 
Leia-se: sistemas telemáticos, 

Pág. 564 - 2." col. - 2? parágr. 

Onde se lê: sistemas telemétricos 
Leia-se: sistemas telemáticos 

Pág. 584 - 2? col. - 2? parágr. 

Onde se lê: linhas 5000 e 5180 
Leia-se: linhas 5000 e 5130 

Pág. 609 - 1? col. - 1" parágr. 

Onde se lê: Alguns computadores (Apple, 
TK-2000, MSX e TRS-80) permitem 
dois ou mais parâmetros, enquanto 
outros (TRS-Color), apenas um. 

Leia-se: Alguns computadores (Spectrum, 
MSX e TRS-80) permitem dois ou 
mais parâmetros, enquanio outros 
(Apple, TK-2000 e TRS-Color), ape- 
nas um. 

Pág. 610 - 1? col. - 1? parágr. 

Onde se If.XxXxX 
Leia-se: X • X . X 

Pág. 634 - 1? col. - 3? parágr. 

Onde se lê: Devido à falta de comandos 
gráficos adequados no ZX-81, não 
apresentamos programas para essa 
máquina. 

Leia-se: Devido à Falta de comandos 
gráficos adequados no ZX-81 e no 
TRS-80, não apresentamos progra- 
mas para essas máquinas. 

Pág. 748 - 1? col. - 2? parágr. 

Onde se lê: Keytone Kappers 
Leia-se: Keystone Kappers 

Pág. 852 - nomenclatura no esquema 
de blocos 

Onde se lê: Detector de visão 
Leia-se: Detector de vídeo 

Pág. 906 - 2? col. - 2? parágr. 

Onde se lê: concectar 
Leia-se: conectar 



Pág. 908 - 1? col. - 2? parágr. 

Onde se lê: Sinciari 
Leia-se: Sinclair 

Pág. 924 - 2? col. - último parágr. 

Onde se lê: TR-Color 
Leia-se: TRS-Color 

Pág. 932 - 3? col. - 2? parágr. 
Onde se lê: LET A = VAL"100" 
Leia-se: LET A = VAL("100") 

Pág. 1014 - 1? col. - 1? parágr. 

Onde se lê: artigo da página 816. 
Leia-se: artigo da página 794. 

Pág. 1124 - 2? col. - 3? parágr. 

Onde se lê: John von Newman 
Leia-se: John von Neumann 

Pág. 1180 - 1? col. - fig. 

Onde se lê: Waiting time (secs) 
Leia-se: Tempo decorrido (segundos) 

Pág. 1260 - 1? col. - 4? parágr. 

Onde se lê: <SCAPE> 
Leia-se: < ESCAPE > 

Pág. 1311 - 3? col. - 1? parágr. 

Onde se lê: saftware 
Leia-se: software 

Pág. 1320 - quadro 

Onde se lê: FORWARD D: 

Leia-se: FORWARD :D 

Pág. 1329 - 3? col. - 1? parágr. 

Onde se lê: < CIRL >< C > 
Leia-se: <CTRL><C> 

Pág. 1349 - 3? col. - 6? parágr. 

Onde se lê: alistamento 
Leia-se: alisamento 

Pág. 1383 - 3. B col. - 2? parágr. 
Pág. 1384 - 3? col. - l? parágr. 
Pág. 1385 - 2? col. - 2? parágr. 

Onde se lê: WYSWYG 
Leia-se: WYSIWYG 

Pág. 1383 - 3? col. - 2? parágr. 

Onde se lê: (do inglês What You See 

What You Gel) 
Leia-se: (do inglês What You See Is 

What You Gel) 




Pág. 7 - 2? col. - 21' parágr. 

Onde se lê: (só vale para o TK-90X): 
Leia-se: (vale para toda a linha Sinclair): 

Pág. 30 - 1? col. - progr. 

Na linha 60. substitua a flecha para 
cima pela letra 1. 
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Pág. 32 - 3? col. - progr. 

Na linha 150, substitua a flecha para 
cima peta letra l. 

Pág. 39-1? col. - progr. 

Para funcionar no ZX-S1, coloque tu- 
do em maiúsculas e troque a Unha 130: 
130 PRINT,,,, "OUTRO NUMERO (S/N)?" 

Pág, 41 - 1? col. - progr. 

Para funcionar no ZX-81, coloque 
tudo em maiúsculas e faça as seguin- 
tes alterações no programa: 

25 LET T = 0 

26 LET C = 0 

40 IF N = -99 THEN GOTO 80 
80 PRINT "MEDIA = ";T/C 
90 STOP 

Pág. 42 - 2? col. - progr. 

Para funcionar no ZX-81, coloque 
tudo em maiúsculas e faça as seguintes 
alterações no programa: 
50 IF G = N THEN GOTO 90 
90 PRINT "MUITO BEM" 
92 PAUSE 100 
94 GOTO 10 

Pág. 43-1? col. - 2? progr. 

Para funcionar no ZX-81, mude tu- 
do para maiúsculas e separe as instru- 
ções da linha 110 em duas linhas: 
110 LET A$ = INKEYS 
115 IF A$< >"S" AND A$o"N" 
THEN GOTO 110 

Pág. 77 - 1? col. - 2? progr. 

Para funcionar no ZX-81, divida a li- 
nha 15 em: 

15 INPUT A 

16 INPUT B 

Pág. 78 - 2? col. - progr. 

Para funcionar no ZX-81. forme no- 
vas linhas com os comandos separados 
por dois pontos (GOTO 1 70) nas linhas 
130, 140 e 150. 

Pág. 94 - 2? col. - 4!' parágr. 

Onde se lê: No ZX-81 a tecla RAMD 

fornece RAND na tela). 
Leia-se: No ZX-81 a tecla RAND pode 

ser usada para essa finalidade). 

Pág. 244 - 2? col. - 1" progr. 

O programa também funciona para 
o ZX-81. Apenas coloque o GOTO 10 
da linha 30 em uma linha separada. 

Pág. 245 - 2? col. - progr. 

O programa também funciona para 
o ZX-81. 

Pág. 334 - 3? col. - progr. 

O logotipo não se aplica a este 
programa. 



Pág. 1214 - 2? col. 

Onde se lê: X$(LEN XS - N TO + 1) 

Leia-se: X$(LEN XS-N TO) 




Pág. 30 - 1? col. - progr. 

Na linha 60, substitua a flecha para 
cima pela letra I. 

Pág. 32 - 3? col. - progr. 

Na linha 150, substitua a flecha para 
cima pela letra l. 

Pág. 46 - 1? col. - progr. 

Acrescente a linha 90: 
90 DIM aS(32) 

Pág. 94 - 1? col. • 3? progr. 
Pág. 100 - 1? col. - 3? progr. 

O logotipo não se aplica a este 
programa. 

Pág. 136 - 3? col. - progr. 

Corrija a linha 200: 
200 CLS:PRINT BR1GHT v;PAPER 2; 
1NK 6; AT 2,4;"MENU PRINCIPAL" 

Pág. 169 - 1? col. - 2? parágr. 

A crescente: 

No micro nacional TK-90X, o co- 
mando BEEP recebeu o nome de 
SOUND. Portanto, se você tem um 
TK-90X, substitua todas as ocorrências 
do comando BEEP pelo comando 
SOUND nas linhas 8010 (programas da 
página 169, 1? e3f colunas), 8010 e 8015 
(programa da página 170. lf coluna) e 
400 (página 170, 2? coluna). 

Pág. 213 - 3? col. - 1? parágr. 
Onde se lê: Os comandos Id de, 16384 

c Id hl. 1.16385 
Leia-se: Os comandos Id de, 16384 e Id 

hl, 16385 

Pág. 248 - 2? col. - progr. 

Na 4? Unha da linha 5120, 
onde se lê: "ld",64,6, 
leia-se: "ld", 64,22, 

Pág. 251 - lf cul. - progr. 

Acrescente ao final da linha 6110: 
:GOSUB 6160 

Na linha 6150, 
onde se lê: GOSUB 6260 
leia-se: GOSUB 6160 

Pág. 251 - 2f col. - progr. 

Acrescente a linha: 
9999 STOP 

Pág. 278 - 2? col. - progr. 

Corrija a linha 1010: 
1010 PRINT AT 12,6;S$ 



Pág. 304 - 2f col. - progr. 

O logotipo não se aplica a este 
programa. 

Pág. 309 - I? col. - 2? progr. 

Corrija as linhas 140 e 145: 
140 DATA "NADAR",5:'ESVAZ1AR",6, 
"ACENDER",?, "DESISTIR" ,8, "LIS 
TAR",9."MATAR", 10, "ATIRAR", 
I0."AJUDAR",11 

145 DATA "PEGAR",2"APANHAR", 

2. "CARREGAR" ,2, "COLOCAR", 

3, "DEIXAR", 3, "LARGAR", 3, "PU 
XAR",4 

Pág. 309 - 2f col. - progr. 

Acrescente a linha 515: 
515 GOTO G(I) 

Pág. 366 - 2? col. - \" progr. 

O logotipo não se aplica a este 
programa. 

Pág. 640 - 2f col. - 4" parágr. 

Onde se lê: UNK 
Leia-se: INK 

Pág. 824 - 2f col. - progr. 

Corrija a linha 750: 
750 REM org 58155 

Pág. 825 - 3? col. - progr. 

Corrija a linha 40: 

40 DATA 83, 67, 79, 82, 69, 45, 48. 

48, 48, 48, 48, 48, 76, 73, 86, 69, 83, 

45, 53, 71, 65, 77, 69, 32, 79, 86, 69. 

82, 32. 33, 33, 33, 35, 35, 33, 35, 35, 

35, 33, 35, 35, 33, 35, 33, 35, 35. 35, 

35, 33, 35, 33, 35, 35. 35, 35, 33. 35, 
35, 33. 35, 35, 35 

Pág. 867 - 3? col. • progr. 

Corrija a linha 100: 
100 GOSUB 2 

e, na linha 2, substitua GOTO 10 por 
GOTO 1 

Pág. 902 - 2? col. ■ progr. 

Corrija a Unha 2720: 
2720 LET PF = 0:IF I$ = "S" OR I$ = 
"s" THEN GOTO 2760 

Pág. 921 - 2." col. - progr. 

Corrija a linha 50: 
50 FOR M = 1 TO N(N) 

Pág. 1042 - 2." col. - progr. 

Corrija a linha 2790: 
2790 DATA "cavaleiro" , "sargento 
" , "lanceiros" , "lanceiros" , "arqu 
eiros" , "arqueiros" , "camponeses" 
."camponeses" 

Pág. 1214 - 2? col. 

Onde se lê: XS(LEN X$ - .N TO + 1) 

Leia-se: X$(LEN X$-N TO) 
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Pág. 6 - 3? col. - quadro 

Corrija a 2? linha de códigos 
numéricos: 

Onde se lê: 152 131 190 176 128 
Leia-se: 151 131 191 176 280 

Pág. 24 - 3? col. - progr. 

Para funcionar no TRS-80, substitua 
a linha 8 por: 
8 CLS 

Pág. 30 - I? col. - 1!" progr. 

Corrija a linha 40: 
40 IF K$ = "F" THEN M = 374 ELSE 
GOTO 30 

Pág. 31 - 2? col. - 4" parágr. 

Onde se lê: O programa para o TRS-80 
funciona de modo idêntico ao pro- 
grama para o TRS-Color. 

Leia-se: O programa para o TRS-80 
funciona de modo idêniico ao pro- 
grama para o TRS-Color. As teclas 
a serem pressionadas, porém, são L 
e R, que comandam, respectivamen- 
te, movimentos à esquerda e à direita. 

Pág. 33 - 3? col. - progr. 

Corrija a linha 150: 
150 IF PO> 1022 OR PO<0 THEN 
PO = LP: GOTO 50 

Pág. 62 - 1? col. - progr. 

O logotipo não se aplica a este 
programa. 

Pág. 63 - 2? col. - 3? parágr. 

Onde se lê: programa para o TRS-80 e 

o TRS-Color, 
Leia-se: programa para o TRS-Color, 

Pág. 224 - 1? e 2? col. - progr. 

Acrescente (após o programa): 
O programa indicado funciona ape- 
nas no TRS-Color. Para executá-lo no 
TRS-80, faça as seguintes modificações: 
multiplique por dois todos os números 
depois dos comandos PRINT@, nas li- 
nhas 10, 20, 30, 60. 90 e 1 10; suprima 
as linhas 15 e 120, e inclua a linha: 
95 TIMER = TIMER + 0.1 

Pág. 270 a 275 

Todos os programas indicados para 
o TRS-Color também funcionam no 
TRS-80. 

Pág. 322 - 1." col. - 2? progr. 

O programa também pode ser execu- 
tado no TRS-80. 

Pág. 375 - If eol. ■ progr. 

O logotipo não se aplica ao programa. 



Pág. 612 - 2? col. - progr. 

Acrescente a linha 35: 
35 PRINT FNT$(I$) 

Pág. 652 - 1? col. - 2? parágr. 
Onde se lê: POST (-2) 
Leia-se: POS ( - 2) 

Pág. 702 - 3? col. - progr. 

O logotipo não se aplica ao programa. 

Pág. 932 - quadro - IH' parágr. 

Esta indicação também serve para o 
TRS-80. 

Pág. 1122 - 1? col. - progr. 
Pág. 1126 - 3? col. - progr. 
Pág. 1127 - 2? col. - progr. 
Pág. 1177 - 3? col. • progr. 
Pág. 1179 - 2? e 3." col. - progr. 
Pág. 1180 - 3? col. - progr. 
Pág. 1184 - I:' col. - progr. 
Pág. 1303 - 1? col. - progr. 

Pág. 1305 - 1?, 2? e 3? col. - progr. 

Os programas para o TRS-Color 
também funcionam no TRS-80. 



Pág. 19 • 2? col. - progr. 

Corrija a linha 430: 
430 RESTORE: FOR J = 0 TO N - l :READ 
A$:PRINT#-P,STR1NGÍ(LL-ML," "); 
SP$;:PRINT# - P,M1D$(AS,2): 
CHRS(13t; 

Pág. 31 - 2? col. - 3!* parágr. 

Onde se lê: A linha 60 investiga se "L" 
foi pressionada... A linha 70 confe- 
re se "R" foi pressionada... 

Leia-se: A linha 60 investiga se "E" foi 
pressionada. . . A linha 70 confere se 
"D" foi pressionada... 

Pág. 45 - 1? col. - 5 o parágr. 

Onde se lè: apenas os das linhas TRS-80 
e MSX 

Leia-se: apenas os das linhas TRS-80, 
TRS-Color e MSX 

Pág. 52 • 3." col. - quadro 

Onde se lê: se N for a locução da tela 
Leia-se: se N for a locação da leia 

Pág. 65 - I? col. - progr. 

Corrija a linha 420 
420 LET K$= INKEY$:IF KS = " " 
THEN GOTO 420 

Pág. 90 - 3? col. - 4? parágr. 

Onde se lê: ...limitar a memória em 
§H3680... que se reserve memória 
só alé §H3680... só poderá usar o 
CLEAR até §H1E80. 



Leia-se: ...limitar a memória cm 
&H3680. . . que se reserve memória só 
até &H3680... só poderá usar o 
CLEAR até &H1E80. 

Pág. 219 - 2? col. - 3? parágr. 

Onde se lê: PSHB armazena tempora- 
riamente na pilha 

Leia-se: PSHS armazena temporaria- 
mente na pilha 

Pág. 296 - 1? col. - progr. 

Corrija a Unha 10: 
10 PC LEAR 1:CLEAR 3000:CLS:PRIN 
T@233;'lNlCIALlZANDO":R$ = CHR$( 
13):POKE 146,1 

Pág. 297 - 2? col. - progr. 

Corrija a linha 100: 
100 DATA COM.115.3.CWAI,108,1,D 
AA,25,,ORA,l86,l,TST,125,3,LEAS, 
66,3,LEAU,67,3,LEAX,64.3,LEAY, 
65.3, MUL,61„EORA, 184, l.ORB,250,l 

Pág. 299 - 3? col. - progr. 

Corrija as linhas 1550 e 1560: 
1550 Pl = 1478:P0 = Pl:P2 = 0 
1 560 PRINT@448 - P2,k:TAB(6)T$<K2): 
P9 = P0 + LEN(T$(K2» 
e acrescente a linha 1565: 
1565 IF LEN(T$(K2)) + P0> 1503 THEN 
P0=P0-32:P2=P2 + 32:Pl = Pl-32: 
GOTO 1565 

Pág. 300 - 1- col. - progr. 

Corrija a linha 1950: 
1950 IF XS< > "$"OR BD$< "0" OR 
BD$>"G" THEN 1980 

Pág. 327 - 3? col. - 2? progr. 

Este programa também pode ser exe- 
cutado no TRS-Color. 

Pág. 495 - 1? col. - 6? parágr. 

Onde se lê: Após digiar C 
Leia-se: Após digitar C 

Pág. 535 • 3? col. - 6? parágr. 

Onde se lê: GEI 
Leia-se: GET 

Pág. 607 - 1? col. - progr. 

Na linha 2340, corrija IF ABS(OY) 
para IF ABS(PY) 

Pág. 656 - 1? col. - progr. 

Corrija as linhas 3040 e 3050: 
3040 IF PEEK(342) = 247 THEN PT = 
PT - 1 

3050 IF PEEK(343) = 247 AND RL> 
-30 THEN 

Pág. 703 - 3.° col. - progr. 

Acrescente a linha 950: 
950 FOR DE=1 TO 3000:NEXT:RE 
TURN 
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Pág. 760 - 3? col. - progr. 

Corrija a linha 9200: 
9200 DIM LE$(27) 

Pág. 829 - 2? col. • progr. 

Corrija a linha 70: 
70 PSHS X 

Pág. 830 - 1? col. - progr. 

Corrija a linha 90: 
90 PULS B 

Pág. 932 - quadro - II" parágr. 

Esta indicação também serve para o 
TRS-Color. 

Pág. 997 - 3? Col. - progr. 

Corrija a Unha 130: 
130 LDA #5 

Pág. 1040 - 2? col. - progr. 

Corrija a linha 1280: 
1280 1F NL>30 THEN NL = 30 

Pág. 1044 - 2? col. - progr. 

Na linha 1420, onde se lê SR$(I), co- 
loque STR$(I) 

Pág. 1047 - 3? col. - progr. 

Nalinha2490, onde se lê SR$<1), co- 
loque STRS(I) 

Pág. 1075 - 2? col. - progr. 

Apague a linha 18 e acrescente a 180: 
180 GOSUB 2410:CLS:END 

Pág. 1118 - 2? col. - progr. 

Corrija a linha 10: 
10 ORG 19781 

Pág. 1236 - 1? col. - progr. 

Apague a linha 9870. 

Pág. 1236 - 3? col. - progr. 

Onde se lê: 9870 (linha) 
Leia-se: 980 

Pág. 1239 - Zf col. - progr. 

Substitua o sinal circunflexo entre as- 
pas "'"por "" nas linhas 550 e 580. 

Pág. 1239 - 3? col. - progr. 

Substitua, na linha 950, PRINT@433 
por PRINT@432 



Pág. 10 - 3? col. - 3? parágr. 

Troque de lugar as linhas: 
20 HTAB 18:VTAB I0:PRINT "000" 
<?20 LOCATE 18,I0:PRINT "000" 

Pág. 16 - 1? col. - progr. 

Corrija a Unha 140: 
140 GOTO 80 



Pág. 30 - l? col. - progr. 

Corrija a linha 60: 
60 LOCATE I8,M:PRINT """ 

Pág. 32 - 2? col, - 2? parágr. 

Onde se lê: a Ieda CLEAR (código 26) 
Leia-se: a tecla < CLEAR > (código 27) 

Pág. 33 - I." col. - I? parágr. 

Onde se lê: teclas Z e X 
Leia-se: teclas com flechas 

Pág. 33 - 1? col, • 1? parágr. 

Acrescente: 

Nos micros da linha MSX, as teclas 
a serem utilizadas para deslocamento da 
base e disparo são, respectivamente, as 
flechas do cursor e da barra de espaços 
(correspondentes aos códigos 28, 29 e 32). 

Pág. 58 - 3? col. - progr. 

Corrija a linha 330: 
330 LOCATE 2 + X.3, 1 8: PRINT 
USING "#";N; 

Pág. 73 - I." col. - progr. 

Corrija as linhas 20 e 30: 
20CLS:CLEAR I0O0O:R$ = "P RMCAI" 
30 CLS:LOCATE 5,1:PRINT"M E N U 
PRINCIPAL" 

Pág. 73 - 3? col. - progr. 

Corrija a linha 1130: 
1130 NEXT:R-INT(10000/(TS.3.A)) 
:PR1NT:PRINT" Número máximo de 
registros - >";R 

Pág. 74 - I." col. - progr. 

Corrija a linha 7070: 
7070 OPEN F$ FOR OUTPUT AS # 1 

Pág. 84 - 2? col. - progr. 

Corrija a linha 3020: 
3020 IN$ = INKEY$:IF IN$ = "" 
THEN 3020 

Pág. 85 - 1" col. - progr. 

Corrija a linha 5070: 
5070IFD>NR AND G = l THEN G=0: 
CH = - 1 ELSE 1F D > NR THEN 5230 

Pág. 93 - 1? col. - progr. 

Corrija a linha 250: 
250 POKE SA,VAL("&HO" + S$) 

Pág. 95 - 2? col. - 1" parágr. 

Onde se lê: o comando RUN: 
Leia-se: o comando RUN (defina antes 

a área onde está a rotina, digitando 

DEFUSR = &HE001): 

Pág. 95 - 2? col. - 2? parágr. 

Onde se lê: 
§HE001 
Leia-se: 
&HE001 



Pág. 107 - 2." col. - 6? parágr. 
Pág. 119 - 3f col. - 2? parágr. 

^crescente: 

E possível desenhar letras e gráficos 
na mesma tela do MSX, porém usamos 
o comando DRAW neste programa, de 
modo a compatibilizá-lo com as versões 
para outros computadores. 

Pág. 120 - 3? col. - 9? parágr. 

Onde se lê: As cores disponíveis no 
PMODE 3,1 são: verde (1), amarelo 
(2), azul (3) e vermelho (4). 

Leia-se: As quatro primeiras cores dis- 
poníveis para o SCREEN gráfico no 
MSX são: preto ( 1 ), verde (2), verde- 
claro (3) e azul-escuro (4). 

Pág. 171 - 3? col. - progr. 

Acrescente estas linhas: 
1 35 FOR 7. = i TO 15 STEP .05: SOUND 8,Z 
137 NEXT:RETURN 
140 SOUND l,0:FOR Z = 0 TO T 
STEP .3 

145 SOUND A,Z:SOUND A.255-Z 

147 NEXT:RETURN 

150 FOR Z = 0 TO 10 

154 FOR ZZ = 0 TO T STEP 5 

156 SOUND l,Z:SOUND A,ZZ 

157 NEXT ZZ,Z:RETURN 
160 FOR Z= 15 TO T 

164 FOR ZZ = 0 TO 15 

166 SOUND l,Z:SOUND A.Z-ZZ 

167 NEXT ZZ,Z:RETURN 

170 IF T = 255 THEN T = 80 

171 SOUND l,0:FOR Z= 1 TO 40 
174 FOR ZZ= 10 TO RND (l).T 

176 SOUND A,ZZ 

177 NEXT ZZ,Z:RETURN 

180 SOUND 1,I:1F T = 255 THEN 
T=100 

184 FOR Z = 10 TO T STEP 5 

186 FOR ZZ = 5 TO Z 

187 SOUND A.Z-ZZ 

188 NEXT ZZ.ZrRETURN 

190 IF T = 255 THEN T= I6:A= 1 

191 FOR ZZ= I TO 30 

192 SOUND A,RND(1)*T 

195 FOR Z= 1 TO RND(I)«200 
197 NEXT Z,ZZ:RETURN 

200 IF T = 255 THEN T= 16:A= 1 

201 FOR ZZ= 1 TO 10 

202 SOUND A,RND(1)*T 

205 FORZ = 1 TO RND(I).16 STEP 8 
207 SOUND 8,Z:NEXT Z,ZZ.RETURN 

Pág. 189 - 3? col. - 1? parágr. 
Onde se lê: SPR1TE(0) A$ 
Leia-se: SPR1TE(0) = A$ 

Pág. 262 - I? col. - progr. 

Este programa funciona no MSX. 

Pág. 401 - 2? col. - progr. 

Acrescente a linha 5005: 
5005 DIM G(1I0) 
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Pág. 412 • 2? col. - 3? parágr. 

Onde se lê: O laço das linhas 70 a 90 co- 
loca nesse local 

Leia-se: O laço das linhas 60 a 90 colo- 
ca nesse local 

Pág. 429 - I? col. - progr. 

Corrija a linha 2030: 
2030 DRAW *'S12BM" + STR$(CX + 3) 
+ ","+STR$(CY + 2) + S$ 

Pág. 430 - 3? col. - 3? parágr. 

Onde se lê: A linha 60 dimensiona 
Leia-se: A linha 82 dimensiona 

Pág. 431 - 2? col. - 2? parágr. 

Onde se lê: das linhas 70 a 110 
Leia-se: das linhas 88 a 96 

Pág. 452 • 1." col. - progr. 

Acrescente a linha 6505: 
6505 CLOSE#l 

Pág. 464 - 1." col. - progr. 

Corrija a linha 800: 
800 AS=INK£Y$:IF A$ = "N" AND 
A$<>"S" THEN 800 

Pág. 553 - 3." col. 

Onde se lê: Linha 220: <SHIFT> 

<GRAPH> 
Leia-se: Linha 220: <SHIFT> 

<GRAPH>\ 



Pág. 579 ■ 2? col. - progr. 

Corrija a tinha 10: 
10 CLS:KEYOFF 



Pág. 612 - 2? col. - progr. 

Acrescente a linha 35: 
35 PR1NT FNT$(1$) 

Pág. 618 - 3? col. - progr. 

Na linha 3400, 
onde se lê: LPRINT TT$;CHR$(32); 
leia-se: LPRINT TT$;CHR$(10); 

Pág. 622 - 2? col. - 2? parágr. 
Onde se lê: F1F2 
Leia-se: Fl, F2 

Pág. 626 - 2? col. - 2? e 3? progr. 

Troque de posição estes programas. 

Pág. 681 - 2? col. - progr. 

Acrescente as linhas 1500 e 1510: 
1500 SCREEN 1 
1510 CLS 

Pág. 692 - 2? col. - 6" parágr. 
Onde se lê: CCTRL-D 
Leia-se: CTRL-D 

Pág. 792 • 2? col. - progr. 

Corrija a linha 10: 



Pág. 793 - 1? col. - progr. 

Corrija a linha 10: 
lOorg -12197 
e suprima a linha 20. 

Pág. 794 - 2? col. - progr. 

Corrija as linhas 20 e 120: 
20 call - 12213 
120 call - 12210 

Pág. 831 - 1? col. - progr. 

Corrija a linha 30: 
30 ld hl, - 15200 

Pág. 916 - 3? col. • 3? parágr. 

Onde se lê: A linha 200 zera C 
Leia-se: A linha 220 zera C 

Pág. 945 - 2? e 3? col. - progr. 

Corrija estas linhas: 
10 org 53693 
80 ld de, 222 
600 ld(-5223),de 
640 ld de,(-5223) 
670 ld( - 5223),de 

Pág. 946 - 1? col. - 2? parágr. 

Onde se lê: A sub-rolina hls 
Leia-se: A sub-rotina ho 

Pág. 946 - 1? col. - 4? parágr. 

Onde se lê: a sub-rotina snp, 
Leia-se: a sub-rotina sn, 

Pág. 946 - 1?, 2? e 3? col. 

Onde se tê: ho 
Leia-se: ao 

Pág. 946 - 2? col. - 3" v 5? parágr. 

Onde se tê: hp 
Leia-se: pp 

Pág. 946 - 2? col. • 5? parágr. 

Onde se lê: as instruções pusch 
Leia-se: as instruções push 

Pág. 971 - 1? col. - progr. 

Corrija a linha 10: 
10 org - 11678 
e acrescente as linhas: 
25 ld a, 88 
28 ld (- 12162), a 
135 call - 12144 

Pág. 1010 - 3? col. - progr. 

Acrescente a linha ISO: 
180 FOR DI = 1 TO T:NEXT 
e ordene as linhas 3000 a 3140 e 4000. 

Pág. 1011 - 1? col. • 1? parágr. 

Onde se lê: as variáveis K0 a K5 
Leia-se: as variáveis Kl a K5 

Pág. 1034 - 2? col. - progr. 

Corrija a linha 355: 
355 D1M T(17.9) 



Pág. 1040 - 1? col. - progr. 

Corrija a linha 1180: 
1 180 IF'M(T<B,8>,T(B,9)>< >0 THE 
N GH = 223 + M(T(B,8).T(B,9)) 

Pág. 1042 - 3? col. - progr. 

Apague a linha 200 e acrescente: 
201 VC = 0:DE = 0 

Pág. 1131 - 2? col. - progr. 

Corrija a linha 90: 
90 cp 0 

Pág. 1186 - 2." col. - progr. 

Corrija a linha 350: 
350 REM ld a,4 

Pág. 1213 - 1? col. - progr. 

Corrija a linha 900: 
900 jp 53850 

Pág. 1232 - 1? col. - progr. 

Corrija a linha 90: 
90 ld a,3 

Pág. 1329 - I? col. - úllimo progr. 

Substitua o programa por: 
AP CIRCULO :LADO 
DESAPAREÇA TAT 
REPITA 72 [PF :LADO PD 5] 
APAREÇATAT 
FIM 

Pág. 1344 - 2? col. - progr. 

Onde se lê: TO DADOS 
Leia-se: AP DADOS 

Pág. 1366 - 3? col. - último parágr. 

Elimine o trecho final do texto: Vol- 
taremos a este assunto oportunamente, 
quando explicarmos os registros do chip 
de vídeo - VDP. 




Pág. 18 - 2? col. - 2? parágr. 

Onde se lê: Modifique a linha 30 
Leia-se: Modifique a linha 120 

Pág. 20 - 1.° col. - progr. 

O programa não funciona no Apple 
e no TK-2000 sem sistema operacional 
de disquete. 

Pág. 44 - 3? col. - penúltimo parágr. 

Acrescente: 

No Apple II e no TK-2000, são mos- 
trados blocos coloridos na tela (coman- 
do VLIN das linhas 85 a 95). 

Pág. 45 - 1? col, - 1? parágr. 

A crescente: 
As linhas 220. 230 e 240 dos programas 
para outros micros correspondem às li- 
nhas 110. 120 e 130 para o Apple. 
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Pág. 52 • 2." col. - progr. 

Acrescente a linha 1095: 
1095 LET TI = TI + l 

Pág. 52 - 2? col. - 6" parágr. 

Onde se tê: em 999999 segundos 
Leia-se: em 99999 segundos 

Pág. 52 - 3? col. - I" parágr. 

Onde se lê: dividindo-se FA por 50 
Leia-se: dividindo-se TI por 50 

Pág. 52 - 3." col. - 3? parágr. 

Onde se tê: A linha 1290 aguarda... e a 
linha 1300 verifica 

Leia-se: A linha 1240 aguarda... e a mes- 
ma linha verifica 

Pág. 66 • 2? col. - progr. 

Acrescente a linha 310: 
310 LET T = T+ l:GOTO 130 

Pág. 66 - 3? col. - 2" parágr. 

Onde se lê: tempo gasto na linha 320 
Leia-se: tempo gasto na linha 310 

Pág. 80-1? col. - progr. 

Retire a linha 10, para funcionar no 
Apple II e no TK-2000. 

Pág. 117 - 2." col. - 2" parágr. 

Onde se lê: As linhas 80 e 90 
Leia-se: As linhas 120 e 130 

Pág. 118 - I :' col. - I" parágr. 

Substitua o trecho a partir da S." li- 
nha por: 

tamanho do círculo, entrando diferen- 
tes valores para XC, VC e R. O núme- 
ro máximo para R que você pode colo- 
car irá depender, logicamente, das coor- 
denadas do centro do círculo. Este não 
pode exceder os limites da tela, senão 
ocorrerá um erro no comando HPLOT. 

Pág. 127 - 3? col. - 4? parágr. 

Onde se lê: <CTPL> e <C>. 
Leia-se: <CTRL> e <C>. 

Pág. 167 - 1? col. - 2? parágr. 

Onde se té: o comando GETS 
Leia-se: o comando GET 

Pág. 168 - 2." col. • 2? parágr. 

Onde se lê: (chamado de hipe 
Leia-se: (chamado de bipe 

Pág. 220 - 3? col. - 5" parágr. 

Onde se lê: RTS 
Leia-se: RTE 

Pág. 259 - 1? col. • progr. 
Pág. 281 - 2? col. - 2" progr. 
Pág. 283 - 3? col. - 3" progr. 

O programa para o TK-2000 tambérn 
funciona para o Apple. 



Pág. 344 - 1? col. • 2" parágr. 

Onde se lê: linha 140, 
Leia-se: linha 410, 

Pág. 344 - 1? col. - 3? parágr. 

Onde se lê: linha 420 
Leia-se: linha 490 

Pág. 656 - 1" col. - progr. 

Corrija a linha 6210: 
62I0IFA$<40THEN PRINT "COMO 
SUA VELOCIDADE ERA BAIXA," 
:PRINT"NADA ACONTECEU": 
GOTO 6500 

Pág. 692 - 2" col. - 6? parágr. 
Onde se lê: CCTRL-I) 
Leia-se: CTRL- D 

Pág. 845 - 3? col. - progr. 

Corrija as linhas: 
2060 1F P= l THEN PR# 1 
2220 NEXT:PRINT 
2230 PRINT # 0:RETURN 

Pág. 932 - quadro - II? parágr. 

A indicação também é válida para o 
Apple II. 

Pág. 1034 - 2? col. - progr. 

Apague a linha 360 e acrescente: 
361 DIM T{I6,9} 




Pág. 88 - 2? col. - 1? parágr. 

Onde se lê: pelo comando MA. 
Leia-se: pelo comando ASS. 

Pág. 116 - 3? col. - progr. 

Para rodar no TK-2000, substitua as 
linhas 50 e 60: 
50 HPLOT 10,75 TO 11,190 
60 HPLOT 10,190 TO 200,190 

Pág. 117 - 2? col. - 2? parágr. 

Onde se lê: As linhas 80 e 90 servem pa- 
ra desenhar a antena. 

Leia-se: As linhas I20e 130 servem pa- 
ra desenhar a antena. 

Pág. 117 - 3? col. - progr. 

Para rodar no TK-2000, acrescente as 
linhas: 

18 XL = XC:YL = YC + R 

29 XN = XC + R*SIN(N):YN = YC + R. 
COS(N) 

30 HPLOT XL,YL TO XN,YN:XL = 
XN:YI. = YN 

Pág. 118 - 1* col. - I? parágr. 

Substitua o trecho a partir da 8." li- 
nha por: 

tamanho do círculo, entrando diferen- 
tes valores para XC, YC e R. O nú- 



mero máximo para R que você pode 
colocar irá depender, logicamente, das 
coordenadas do centro do circulo. Es- 
te não pode exceder os limites da le- 
ia, senão ocorrerá um erro no coman- 
do HPLOT. 

Pág. 127 - 2? col. - 3? parágr. 

Onde se lê: Para entender melhor, ex- 
perimente introduzir a linha: 

Leia-se: Para entender melhor, experi- 
mente introduzir a linha (não vale pa- 
ra o TK-2000): 

Pág. 161 • 3? col. - progr. 
Pág. 162 - 3? col. - progr. 

Estes programas também podem ser 
executados no TK-2000. 

Pág. 432 - 3? col. 

Onde se lê: 1 160 MP:HGR 
Leia-se: 160 MP:HGR 

Pág. 482 - 2? col. - progr. 
Pág. 483 - 1? col. - progr. 
Pág. 485 - I? col. - progr. 
Pág. 486 - 2? e 3? col. - progr. 
Pág. 487 - 2? col. - progr. 
Pág. 518 - 1." col. - progr. 

Estes programas não podem ser exe- 
cutados no TK-2000. 

Pág. 656 - 1." col. - progr. 

Corrija a linha 6210: 
6210 IF A$<40THEN PRINT "COMO 
SUA VELOCIDADE ERA BAIXA," 
:PRINT"NADA ACONTECEU": 
GOTO 6500 

Pág. 768 - 2? COl. - progr. 
Pág. 769 - 3? col. - progr. 
Pág. 771 - 1? col. - progr. 
Pág. 773 - 1? col. - progr. 
Pág. 782 - 2." col. - progr. 
Pág. 786 - 2? col. - progr. 
Pág. 787 - 2? col. - progr. 
Pág. 858 - 3? col. - progr. 
Pág. 875 - 1? e 2? col. - progr. 

Estes programas não podem ser exe- 
cutados no TK-2000. 

Pág. 932 - quadro - II? parágr. 

A indicação também é válida para o 
TK-2000. 

Pág. 960 - 1? col. - progr. 
Pág. 974 - 3? col. - progr. 
Pág. 976 - 3? col. - progr. 
Pág. 977 - 2? col. - progr. 
Pág. 979 - 1? c 3? col. - progr. 
Pág. 980 - 2? col. • progr. 
Pág. 1372 - 2? col. - progr. 
Pág. 1374 - 2? col. - progr. 
Pág. 1376 - I? col. - progr. 

Estes programas não podem ser exe- M 
curados no TK-2000. 



